Blätter sperren
04.04.2007 17:17:00
Heiko
habe hier einen Code mit dem ich alle Tabellenblätter sperren kann. Jetzt möchte ich aber noch das unter Blatt schützen das Häkchen bei Gesperrte Zellen auswählen wegfällt. Kann mir da einer helfen ?
Gruß Heiko
Hier der Code:
Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("123")