Blattschutz
04.07.2007 15:11:56
Heiko
Hallo Leute
ich hab da einen Code gefunden mitdem ich alle Tabellen mit einem Passwort schützen kann. Ich muß aber noch ab und zu Kommentare eingeben das leider nicht klappt wenn ich die Blätter mit dem Code gesperrt habe. Was muß ich im Code ändern damit ich Kommentare einfügen kann obwohl das Blatt gesperrt ist. Bitte um Hilfe !!!
Gruß Heiko
Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("1234")
Next i
End Sub