Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

860to864: Blätter sperren

Blätter sperren
04.04.2007 17:17:00
Heiko
Hi Leute
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")

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter sperren
04.04.2007 19:21:46
Sonnenpeter
Hallo,
probier es mal so.

Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("123"), EnableSelection = xlUnlockedCells
Next i
End Sub
Gruß Sonnenpeter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige