Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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
Inhaltsverzeichnis

Blattschutz mit VBA ein u aus

Blattschutz mit VBA ein u aus
Matthias.G.
Nabend Excelaners,
habe dieses Macro für alle Sheets gefunden,
Sub Schutz()
Dim wks As Worksheet
For Each wks In worksheets
wks.Protect password:="dein passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next wks
End Sub
geht das auch nur für meine Sheets 1-12 ? nur nicht gesperrte Zellen aktiv bleiben ?
Gruß Matze

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blattschutz mit VBA ein u aus
13.04.2010 22:50:04
Ramses
Hallo
Probier mal
Sub Schutz()
Dim i as integer
For i = 1 to 12
worksheets(i).Protect password:="dein passwort", DrawingObjects:=True, Contents:=True,  _
Scenarios:=True
Next i
End Sub
Gruss Rainer
AW: Blattschutz mit VBA ein u aus
13.04.2010 23:15:03
Matthias.G.
Hi Ramses,
Er hat die ersten 12 tabellen Blätter mit Blattschutz versehen, ich hab mich bestimmt falsch ausgedrücht, die Tabellenblätter nennen sich 1,2,3... bis 12 kommen aber erst 4. Stelle
Matze
AW: Blattschutz mit VBA ein u aus
13.04.2010 23:16:10
Ramses
Hallo
Dann halt so
Sub Schutz()
Dim i as integer
For i = 1 to 12
worksheets("" & i & "").Protect password:="dein passwort", DrawingObjects:=True, Contents:=True, _
_
Scenarios:=True
Next i
End Sub
Gruss Rainer
Anzeige
thx
13.04.2010 23:18:36
Matthias.G.
Jeppa, thx....
Matze

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige