Arbeitsmappe mit x Blättern schützen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Arbeitsmappe mit x Blättern schützen von: Martin
Geschrieben am: 03.03.2005 09:33:00

Geschätzte Mitglieder des Forums

Damit sichergestellt werden kann, dass die sämtliche Tabellen beim Öffnen jeweils geschützt sind (auch wenn vorher der Schutz aufgehoben wurde) möchte ich ein Makro schreiben, das dies beim Öffnen möglichst elegant sicherstellt. Mit dem nachfolgenden wird nur die erste Seite geschützt. Gibt es Möglichkeiten alle Mappen (unabhängig welche und wieviele) gemeinsam zu schützen?

Sub Auto_Open()
ActiveSheet.Protect Password:="Haus13"

Für Eure Mithilfe danke ich im Voraus.
Martin Würsch

Bild


Betrifft: AW: Arbeitsmappe mit x Blättern schützen von: Hajo_Zi
Geschrieben am: 03.03.2005 09:35:11

Hallo Martin,

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



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: Danke! von: Martin
Geschrieben am: 03.03.2005 09:48:02

Ich danke Dir Hajo

Das ich so schnell Anwort erhalten habe.
Einen schönen Tag wünscht
Martin


Bild


Betrifft: AW: Danke! von: Hajo_Zi
Geschrieben am: 03.03.2005 09:53:36

Hallo Martin,

die Checkbox "FRage noch offen" ist dazu da falls die Frage noch offen ist und Sie soll in der Liste der offenen Fragen erscheinen.

Ich lese nicht was an Deiner Frage noch offen ist?

Gruß Hajo


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsmappe mit x Blättern schützen"