Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz alle Blätter in Mappe

Blattschutz alle Blätter in Mappe
27.04.2006 13:36:46
helena
Hallo
denke wss.protect stimmt nicht dort bleibt Makro stecken

Sub Blattschutz_map_on()
Application.ScreenUpdating = False
Dim wss As Worksheet
For Each wss In Worksheets
wss.Protect = "xxx"
Next wss
Else
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
End Sub

Danke
gruss helena

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ohne = oT
27.04.2006 13:56:01
heikoS
AW: Blattschutz alle Blätter in Mappe
27.04.2006 14:04:41
Heiko
Hallo Helena,
so sollte es gehen:

Sub Blattschutz_map_on()
Dim wss As Worksheet
For Each wss In ActiveWorkbook.Worksheets
wss.Protect Password:="xxx"
Next wss
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Danke es funkt .. (o.T.)
27.04.2006 14:12:53
Helena
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige