Nicht alle TB entsperren
12.08.2007 22:29:00
Josef
Benutze unten stehendes Makro, um den Blattschutz bei allen 32 TB aufzuheben.
Nun soll aber der Schutz bei einem TB "ANTRAG" nicht automatisch aufgehoben werden, also gesperrt bleiben. Wie wird das gemacht?
Bin in VBA leider noch nicht so weit. Habe schon mit PROTECT versucht, aber da bekomme ich nicht die richtige Syntax auf die Reihe.
Kann mir bitte jemand von euch Profis, dabei behilflich sein?
Private Sub txtPassword_Change()
Dim wks As Worksheet
If Len(txtPassword.Text) = 8 Then
If txtPassword = "Passwort" Then
For Each wks In Worksheets
wks.Unprotect "Passwort"
Unload Me
Next wks
Else
MsgBox "War wohl nix!"
txtPassword.Text = ""
End If
End If
End Sub
Danke schon mal im voraus.
Gruß
Josef
Anzeige