Passwort muss mit Zelle übereinstimmen

Private Sub CommandButton1_Click()
Dim ws As Worksheet, PW$
PW = InputBox("Bitte das Passwort eingeben!", "Passwort")
If PW = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "AlleDaten" Then
If ws.ProtectContents = True Then
ws.Unprotect PW
Else
ws.Protect PW
End If
End If
Next ws
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name  "AlleDaten" Then
wks.Protect "abc"
End If
Next wks
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim strPassword
strPassword = InputBox("Bitte Passwort eingeben:", , "")
If strPassword  "abc" Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
If wks.Name  "AlleDaten" Then
wks.Unprotect "abc"
End If
Next wks
End Sub