Blattschutz deaktivieren
09.09.2005 13:24:00
Achim
Wer kann helfen?
Mit einem Makro möchte ich das Kennwort(Blattschutz im DienstplanMaster) deaktivieren. Bekomme immer Fehler.
Wie sollte ich es besser machen
Private Sub Workbook_Open()
Sheets("DienstplanMaster").Select
Dim i As Integer
For i = 1 To ActiveSheets.Count
Sheets(i).Unprotect ("momo" & i)
Next i
End Sub
Gruß Achim H.
Anzeige