Blattschutz

Forumthread: Blattschutz
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Blattschutz

Blattschutz

13.06.2003 11:02:15

Turi Hohl

Guten Morgen,
Gibt es eine Möglichkeit den Blattschutz aller Tabellenblätter innerhalb einer Arbeitsmappe mit einem Befehl (ich denke dass es ein Makro sein muss) zu aktivieren und auch wieder zu deaktivieren? Wobei ich ein solches Makro für verschiedene Arbeitsmappen mit einer unterschiedlichen Anzahl Tabellenblätter verwenden möchte. Der Blattschutz ist immer ohne Passwort.
Habe dazu in der Recherche nichts gefunden.
Vielen Dank, Turi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Blattschutz

13.06.2003 11:06:19

Carsten
Re: Blattschutz

13.06.2003 11:06:40

MarcoW

Re: Blattschutz

13.06.2003 11:06:19

Carsten

Private Sub Blattschutz_setzen()
Dim i, k As Integer
k = ActiveWorkbook.Sheets.Count 'Letztes Arbeitsblatt
For i = 1 To k 'Erstes bis letztes Arbeitsblatt
With Sheets(i)
.Protect
End With
Next i
End Sub

Private Sub Blattschutz_aufheben()
Dim i, k As Integer
k = ActiveWorkbook.Sheets.Count 'Letztes Arbeitsblatt
For i = 1 To k 'Erstes bis letztes Arbeitsblatt
With Sheets(i)
.Unprotect
End With
Next i
End Sub

Man könne auch For Each verwenden!

Gruß,

Carsten