Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Enabled = True
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Protect "Passwort"
Next i
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
Application.CommandBars(1).Enabled = False
Dim Antwort As String, PW As String
Dim i As Integer
Antwort = MsgBox("Soll das Dokument schreibgeschützt geöffnet werden ?", vbYesNo + vbQuestion, "Schreibschutz ja/nein")
If Antwort = vbNo Then
PW = InputBox("Bitte Passwort eingeben: ")
If PW = "Passwort" Then
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect
Next i
Else
MsgBox "Passwort fehlerhaft. Datei wird mit Schreibschutz geöffnet."
End If
End If
End Sub
bekomm ich nach der 2. eingabe vom Blattschutz den Fehler das er mir immer sagt "Das eingegeben Kennwort ist ungültig"und er makiert die Zeile
Worksheets(i).Unprotect
ich weiss nicht woran es liegt, hoffe auf Hilfe
Gruß
Tobi