Sprich ich klicke auf Januar-> PW Abfrage-> RIchtig-> entsperrt
-> Falsche-> gesperrt
Ich kenne mich leider noch nicht so gut mit Excel aus. Vielen dank für eure Hilfe!
Liebe Grüße Jens Alemt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sPassWort$
If ProtectContents = True Then
sPassWort = InputBox("Passwort")
If sPassWort = "#" Then
MsgBox "OK"
ActiveSheet.Unprotect "#"
Else
MsgBox "Falsches Passwort"
End If
Else
ActiveSheet.Protect "#"
End If
End Sub
Servus