Ani bych to tak nenazval zámkem, ale jen makrem které tě na vybrané buňky bez hesla nepustí.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim heslo As String
heslo = "heslo"
Select Case Target.Address
Case "$B$4", "$C$4", "$D$4"
If InputBox("Zadej heslo pro zápis do této buňky:", "Ověření") <> heslo Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Select
End Sub
M@citovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim heslo As String
heslo = "heslo"
Select Case Target.Address
Case "$B$4", "$C$4", "$D$4"
If InputBox("Zadej heslo pro zápis do této buňky:", "Ověření") <> heslo Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Select
End Sub
M@citovat