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

Blattschutz

Blattschutz
13.06.2003 09: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
Anzeige
Re: Blattschutz
13.06.2003 09: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

Anzeige
Re: Blattschutz
13.06.2003 09:06:40
MarcoW

Hallo,

schick eine Mail an kontakt@marcowalther.de

dann bekommst Du meine Lösung dazu.

Gruß MarcoW

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige