VB Hilfe Passwort für Blätter
06.02.2006 11:43:51
Andi
möchte mehrere Arbeitsblätter mit einem Passwort schützen,ohne jedesmal bei jedem Blatt einzeln den Schutz aufzuheben und wieder zu aktivieren.Die Blätter haben geschützte Zellen und Zellen die "Frei" sind. Habe folgendes im Archiv gefunden,
Private Sub PasswortSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("Dein Passwort")
Next i
End Sub
Private Sub PasswortLöschen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Unprotect ("Dein Passwort")
Next i
End Sub
meine Frage wo muß ich diesen code einfügen in der Arbeitsmappe oder in allen Blättern? Gibt es eine Möglichkeit dies alles ohne VB zu realisieren?
Mein VB Kenntnisse sind noch sehr eingeschränkt!
gruß Andi
Anzeige