860to864: Blätter sperren

Forumthread: Blätter sperren

Blätter sperren

04.04.2007 19: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

AW: Blätter sperren

04.04.2007 21:21:46

Gast

AW: Blätter sperren

04.04.2007 21:21:46

Gast

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ß Gast

Forumthread: Blätter sperren

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread