cmdbutton für blattschutz
24.10.2008 16:27:51
daniel
wie kann ich auf einen CmdButton (im ersten Tabellenblatt, da Hauptübersicht) einen Code zuordnen der den Blattschutz in allen Blättern aktiviert (mit Passwort). Und dann einen Button, der den Schutz in allen Blättern deaktiviert? Versuche es schon die ganze Zeit damit:
Private Sub CommandButton3_Click()
On Error GoTo 0
Dim s As String
Dim i As Integer
s = InputBox("Bitte Kennwort eingeben")
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Protect s
Next i
End Sub
Private Sub CommandButton4_Click()
On Error GoTo Ende
Dim s As String
Dim i As Integer
s = InputBox("Bitte Kennwort eingeben")
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Unprotect s
Next i
Ende:
End Sub
Funktioniert aber leider nicht... Danke für Eure Hilfe.
Grüße daniel
Anzeige