Herbers Excel-Forum - das Archiv
Arbeitsmappe mit x Blättern schützen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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.
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
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