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
ServusDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen