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

Beiträge aus den Excel-Beispielen zum Thema "alle Blätter zusammen schützen und aufheben"