< návrat zpět

MS Excel


Téma: Opakování funkce / makra rss

Zaslal/a 16.7.2020 10:09

Dobrý den,

Mám zámek na buňce D1, který se odemkne, pokud jiná buňka A1 obsahuje nějaký text / hodnotu.

Můžete, prosím, poradit, jak automaticky opakovat výše uvedené pro každý další řádek?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Range("D1").Locked = True
ElseIf Target <> "" Then
Range("D1").Locked = False
End If
ActiveSheet.Protect
End Sub

Zaslat odpověď >

#047340
Stalker
Nastaven rozsah A1:A10. Samozřejmě musí být tento rozsah bez zámku.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Target.Offset(, 3).Locked = True
Else
Target.Offset(, 3).Locked = False
End If
ActiveSheet.Protect
End Sub
citovat
#047341
avatar
alebo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A" & Target.Row)) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then Range("D" & Target.Row).Locked = True Else Range("D" & Target.Row).Locked = False
ActiveSheet.Protect
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00