Blattschutz

Forumthread: Blattschutz
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Blattschutz

Blattschutz

04.07.2007 17: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blattschutz

04.07.2007 17:26:22

Hubert
AW: Blattschutz

04.07.2007 18:01:10

Heiko

AW: Blattschutz

04.07.2007 17:26:22

Hubert

Hi,


Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect Password:="1234", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=True
Next i
End Sub

mfg Hubert

AW: Blattschutz

04.07.2007 18:01:10

Heiko

Hi Hubert
danke für deine schnelle hilfe. Klappt super.
Gruß Heiko

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!