Passwortschutz
02.02.2010 20:14:32
Toni
Hallo, ich habe eine Datei bzw.alle Arbetisblätter mit einem Passwort geschützt. Über VBA lautet der Befehl
Private Sub cb_BlattschutzAUS_Click()
Dim Blatt As Worksheet
Dim Passwort As String
Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
For Each Blatt In ActiveWorkbook.Sheets
If Passwort > "" Then
Blatt.Unprotect Password:=Passwort
Else: Blatt.Unprotect
End If
Next
End Sub
Irgendwie muss ich mich beim Testen mal vertippt haben, jedenfalls wird das Blatt mit dem vermeintlichen Passwort nicht mehr freigegeben. Wie kann ich meine Fehleingabe anzeigen lassen oder aber das Passwort knacken, damit ich wieder freien Zugang zu den Daten habe?
Wer kann helfen, ich habe keine Plan, auch nicht passendes bislang im Netz gefunden, was wirklich funktioniert, obwohl ja alles mit den passenden Tools so einfach sein soll. LG Toni