Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Arbeitsmappe mit x Blättern schützen"
Start des Makros nach Laden der Arbeitsmappe Prüfung, ob eine Arbeitsmappe geöffnet ist
Die "personl"-Arbeitsmappe ausgeblendet speichern Blätter in andere Arbeitsmappen kopieren
Variablenübergabe in andere Arbeitsmappen SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen
Arbeitsmappe-Schließen-Abfrage abfangen VBA-Zugriff auf geschlossene Arbeitsmappe.
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen