mehrere Blätter auf einmal schützen

Bild

Betrifft: mehrere Blätter auf einmal schützen
von: Sven
Geschrieben am: 01.10.2015 17:51:27

Hallo,
ich kapier´s nicht.
Ich möchte in meiner Arbeitsmappe alle Blätter auf einmal mit Blattschutz versehen und auch wieder aufheben.
Ich habe diesen gefunden:
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


Aber ich kann ihn einfach keiner Schatfläche zuordnen.
Kann mir jemand mit einem Beispiel weiter helfen?
Vielen Dank
Sven

Bild

Betrifft: AW: mehrere Blätter auf einmal schützen
von: Hajo_Zi
Geschrieben am: 01.10.2015 17:54:06
Hallo Sven,
das liegt daran das Sie Privat sind und nur aus dem VBA Editor gestartet werden können.
Gruß Hajo

Bild

Betrifft: AW: mehrere Blätter auf einmal schützen
von: Sven
Geschrieben am: 01.10.2015 18:09:18
Alles klar - jetzt hat´s klick gemacht...
Ich danke dir
LG
Sven

Bild

Betrifft: Quatsch
von: Rudi Maintaire
Geschrieben am: 01.10.2015 21:12:50
Hallo,
das geht durchaus,so lange die Prozedur in einem allgemeinen Modul steht.
Die Prozedur wird im Dialog lediglich nicht angezeigt.
Man muss nur den Namen der Prozedur eintippen.
Dito bei Option Private Module.
Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "mehrere Blätter auf einmal schützen"