Passwort muss mit Zelle übereinstimmen
13.02.2014 07:41:18
Johannes
ich hoffe das ihr mir helfen könnt. Ich möchte Tabellenblätter sperren und entsperren, wenn bei der Passwortabfrage das Wort eingegeben wird, dass z. b. in der Tabelle2 Zelle A1 hinterlegt ist. Ist das überhaupt möglich?
Falls das möglich ist, dann benötige ich die Änderung in den folgenden 3 VBA-Codes:
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
Anzeige