Frage zum Blattschutz / Mappenschutz
09.10.2005 20:36:12
Silk
ich habe eine Frage zum Blattschutz bzw. Arbeitsmappenschutz. Ich habe eine Mappe mit diversen Arbeitsblättern, die ich alle "mit einem Klick" schützen will. Es gibt auf dem Hauptarbeitsblatt nun einen Button, der entweder alles schütz oder aber über ein UserForm den Nutzer nach dem Passwort fragt:
Private Sub ProtectionButton_Click()
If (ThisWorkbook.HasPassword = False) Then
UnprotectForm.ProtectAll
Else
UnprotectForm.Show
End If
End Sub
Private Sub UnprotectAll()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
ws.Unprotect PwEdit.Text
Next ws
ThisWorkbook.Unprotect PwEdit.Text
End Sub
Public Sub ProtectAll()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect "test"
Next ws
ThisWorkbook.Protect "test"
End Sub
Das Problem besteht nun darin, das die Abrage ThisWorkbook.HasPassword nicht immer funktioniert, d.h. es kommt seltsamerweise vor, dass das HasPasswort Flag False liefert, obwohl zuvor ProtectAll() durchlaufen wurde. Was mache ich da falsch ?
Danke schonmal