Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1212to1216
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
Inhaltsverzeichnis

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.

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
AW: Blattschutz für alle Arbeitsblätter aufheben
06.05.2011 09:44:26
Wolfango
...Danke!!!
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige