Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz über mehrere Tabellenblätter

Blattschutz über mehrere Tabellenblätter
22.03.2007 11:20:24
Karo
hallo!!!
folgendes problem: ich habe ein dokument mit mehreren tabellenblättern. jedes tabellenblatt besitzt einen blattschutz mit dem gleichen passwort.
wie kann ich diesen blattschutz mit einem knopfdruck für alle tabellenblätter aufheben und dann für alle wieder reingeben... mit gruppierung funktioniert das nicht...
arbeitsmappe schützen hilft mir net weiter...
vielleicht hat jemand eine lösung? danke!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz über mehrere Tabellenblätter
22.03.2007 11:27:00
mumpel
Hallo!
Diese Frage wurde schon oft beantwortet.

Sub SchutzEin()
On Error Resume Next
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect "DeinPasswort" ' Passwort anpassen
Next Blatt
End Sub

Sub SchutzAus()
On Error Resume Next
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Unprotect "DeinPasswort" ' Passwort anpassen
Next Blatt
End Sub

Gruß, Rene
AW: Blattschutz über mehrere Tabellenblätter
22.03.2007 11:28:25
PeTeR
Hallo Karo,
das geht nur per Makro:

Sub AlleSperren()
for each s in activeworkbook.sheets
s.protect password:="hilfe"
next s
End Sub


Sub AlleEntsperren
for each s in activeworkbook.sheets
s.unprotect password:="hilfe"
next s
End Sub
Viel Erfolg
PeTeR
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige