Dobrý den,
prosím o radu. Pro někoho asi banalita, ale ve VBA netvořím, jen mám tento kód.
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? Děkuji.
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
Opakování funkce / makra
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 260
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 5
- 2317
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
-
- 11
- 2292
-
od WolfGunCZ
Zobrazit poslední příspěvek
09 lis 2023 13:16
Zpět na “Programování a tvorba webu”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti