ich möchte in meiner Arbeitsmappe per Schaltfläche, und Eingabemaske, alle Tabellenblätter gleichzeitig mit ein und demselben Passwort sichern, und wieder freigeben.
Hätte da jemand eine Lösung, bzw. einen VBA-Code ?
Gruß
Fred
Sub PW()
Dim Pass$, Z
Pass = InputBox("Bitte Passwort eintragen", "Schutz")
For Each Z In ActiveWorkbook.Sheets
Z.Protect Password:=Pass
Next
End Sub
Sub PW()
Dim Pass$, WB, Z
Pass = InputBox("Bitte Passwort eintragen", "Schutz")
Set WB = Workbooks("Mappe3.xls")
For Each Z In WB.Sheets
Z.Protect Password:=Pass
Next
End Sub
Sub Schutz_alle_Blaetter()
' SchutzalleBlaetter Makro
Dim i, j As Integer
pw = InputBox("PW eingeben")
j = Sheets.Count
For i = 1 To j
Sheets(i).Select
ActiveSheet.Protect pw
Next
End Sub