Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Blattschutz für alle Arbeitsblätter aufheben

Blattschutz für alle Arbeitsblätter aufheben
Wolfango
Guten Morgen,
ich suche einen VBA-Code, mit welchem ich auf einen Schlag für alle (Anzahl beliebig) in einer Datei vorhandenen Arbeitsblätter den Blattschutz aufheben kann (bei bekanntem Passwort).
Danke!
Gruß,
Wo.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Blattschutz für alle Arbeitsblätter aufheben
06.05.2011 09:23:08
oberschlumpf
Hi
Versuch mal:
Sub sbProtect()
Dim liIdx As Integer
For liIdx = 1 To Sheets.Count
Sheets(liIdx).Unprotect "passwort"
Next
End Sub
Schaui dir zu Unprotect mal die Hilfe in Excel an. Ich weiß jetzt nicht genau die Syntax mit dem Passwort.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Blattschutz für alle Arbeitsblätter aufheben
06.05.2011 09:44:26
Wolfango
...Danke!!!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige