![Jeza.m](./pictures/avatars/5a7d7f87e2352.jpg)
Ahoj zkusil to třeba takhle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Locked = False And Target <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub
Za Unprotect a Protect lze dle potřeby přidat do uvozovek heslo.
M@citovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Locked = False And Target <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub
Za Unprotect a Protect lze dle potřeby přidat do uvozovek heslo.
M@citovat