Office: Blattschutz mehrere Blätter über Schaltfläche

Hallo!

Ich habe eine Excelmappe mit etlichen Blättern. Auf dem Deckblatt möchte ich zwei Schaltflächen anbringen: "Blattschutz ein" und "Blattschutz aus". Über diese Schaltflächen sollen alle Blätter auf- bzw. zugesperrt werden (kein Kennwort).

Ist das so möglich?

Danke im Voraus!

lg alex26

 

Hallo Alex,

ordne den Schaltflächen folgene Makros zu

Code:

Option Explicit
Dim WsTabelle As Worksheet

Private Sub Aufheben()
    For Each WsTabelle In Sheets
        WsTabelle.Unprotect ("Passwort")
    Next WsTabelle
End Sub

Private Sub Schutz()
    For Each WsTabelle In Sheets
        WsTabelle.Protect ("Passwort")
    Next WsTabelle
End Sub

Gruß Hajo

 

Hallo Hajo!

Danke für Deinen Tipp. Leider hat es bei mir nicht funktioniert - habe Makros bisher nur mit dem Makro-Rekorder erstellt. Vermutlich hab ich irgendwas falsch gemacht.

Wenn ich auf die Schaltfläche klicke, bekomme ich die Fehlermeldung:

---------------------------
Microsoft Visual Basic
---------------------------
Fehler beim Kompilieren:

End Sub erwartet
---------------------------
OK Hilfe
---------------------------

Anbei die Beispieldatei.

Danke!

LG

alex26

 

Hallo Alex,

warum schreibst Du 2 Zeilen zur Makrobezeichnung
Sub Schaltfläche1_KlickenSieAuf()
Private Sub Schutz()

das war in meinem Code nicht.

Gruß Hajo

 

Hallo Hajo!

Habe nun den Code für "ein":

Sub Schaltfläche1_KlickenSieAuf()

For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub

bzw. "aus":

Sub Schaltfläche2_KlickenSieAuf()

For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub

verwendet und damit funktioniert es prima.

Sub Schaltfläche2_KlickenSieAuf() kommt automatisch, wenn ich der Schaltfläche das Makro zuweise.

Danke nochmals!

LG

alex26

 

Hallo Alex,

das Stimm so nicht. In Deiner Variante, man kan auch die rechte Maustaste drücken und Makro zuweisen.

Gruß Hajo