Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz

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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz
04.07.2007 15: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 16:01:10
Heiko
Hi Hubert
danke für deine schnelle hilfe. Klappt super.
Gruß Heiko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige