Herbers Excel-Forum - das Archiv

alle Blätter zusammen schützen und aufheben

Bild

Betrifft: alle Blätter zusammen schützen und aufheben
von: ömer

Geschrieben am: 26.04.2005 13:27:07
Hallo,
diese Frage hatte ich einmal gestellt, aber ich finde es nicht mehr.
Wie kann ich alle Blätter zusammen mit einme Befehl schützen und aufheben.
Ohne Password und bitte auch mit Password
Vielen vielen Dank im voraus
MFG
ömer
Bild

Betrifft: AW: alle Blätter zusammen schützen und aufheben
von: =Peter=

Geschrieben am: 26.04.2005 13:33:27
Hallo,
eine Möglichkeit:
Sub AlleBlaetterSchuetzen()
'Autor: Unbekannt
' AlleBlaetterSchuetzen Makro
' Alle Blätter einer Arbeitsmappe werden geschützt
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub

Um die Blätter mit einem Passwort zu schützen, muss hinter der Zeile ActiveSheet.Protect noch folgender Text eingefügt werden:
Password:="test".
Damit werden die Blätter mit dem Passwort "test" geschützt.
Um den Schutz für alle Blätter wieder aufzuheben muss ein weiteres Makro erstellt werden und dabei die Zeile "ActiveSheet.Protect" durch "ActiveSheet.UnProtect" ersetzt werden.

HTH
Gruß
Peter
Bild

Betrifft: AW: alle Blätter zusammen schützen und aufheben
von: Hajo_Zi

Geschrieben am: 26.04.2005 14:04:31
Hallo Peter,
das geht aber auch ohne select!
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.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: Alles OK danke Peter und Hajo
von: ömer
Geschrieben am: 26.04.2005 14:27:00
Alles ok , Vielen Dank
Bild

Betrifft: AW: alle Blätter zusammen schützen und aufheben
von: =Peter=
Geschrieben am: 26.04.2005 15:24:31
Hallo Hajo,
der Code kommt zwar nicht von mir, aber Danke für die Verbesserung.
HTH
Gruß
Peter
 Bild
Excel-Beispiele zum Thema "alle Blätter zusammen schützen und aufheben"
Spielpaarungen zusammenstellen Zeichenfolgen zusammenfassen
Dateien einer Ordnerliste in einer Tabelle zusammenstellen Aus einer Liste von Mannschaften mögliche Paarungen zusammenstellen
Werte aus einem nicht zusammenhängendem Bereich auslesen Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel
Daten aus allen Dateien eines Verzeichnisses zusammenführen Verstreute Daten in verschiedenen Tabellen zusammenfassen
Zwei Tabellen ohne Duplikate in einer Dritten zusammenfassen Zellinhalte vor dem Verbinden der Zellen zusammenfassen