Blattschutz beim Speichern und Öffnen
28.02.2014 08:53:08
Josef
ich habe ein kleines Problem.
In meiner Excel soll der Blattschutz aktiviert werden, sobald ich auf speichern klicke und beim Öffnen soll das Passwort (das sich in der Spalte B24 hinterlegt ist) für den Blattschutz abgefragt werden. Doch keines meiner Codes funktioniert. Könnt Ihr mir weiterhelfen?
"
Private Sub Workbook_beforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect Worksheets("Übersicht Ender").Range("b24")
Next wks
ThisWorkbook.Save
End Sub
"
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim strPassword
strPassword = InputBox("Bitte Passwort eingeben:", , "")
If strPassword Worksheets("Übersicht Ender").Range("b24") Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
wks.Unprotect Worksheets("Übersicht Ender").Range("b24")
Next wks
End Sub