< 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 III

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

Aktivní diskuse

zavření souboru z VBA makra bez uložení

Lukas-nevimto • 3.8. 20:24

Zobrazení obrázku v Excelu

JoKe • 3.8. 19:46

Tisk s podmínkou

Jiří497 • 3.8. 15:57

blokovanie excelu

eLCHa • 3.8. 15:15

blokovanie excelu

fiala2503 • 3.8. 15:07

blokovanie excelu

eLCHa • 3.8. 14:29

Tisk s podmínkou

elninoslov • 3.8. 13:54