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.
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.