Herbers Excel-Forum - das Archiv

Alle Blätter schützen

Bild

Betrifft: Alle Blätter schützen
von: ömer

Geschrieben am: 01.04.2005 10:53:11
Hallo,
bitte, wie kann ich alle Blätter einer Mappe mit einem Befehl schützen( ohne Password)
Vielen Dank im voraus
MFG
ömer
Bild

Betrifft: AW: Alle Blätter schützen
von: serge
Geschrieben am: 01.04.2005 11:00:22
Hi ömer
mit den VA
Option Explicit
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect password:="ras"
Next WsTabelle
Sollte es gehen
Serge
Bild

Betrifft: AW: Alle Blätter schützen
von: Andi
Geschrieben am: 01.04.2005 11:00:48
Hi,
guck mal hier:
https://www.herber.de/forum/messages/592205.html
Schönen Gruß,
Andi
Bild

Betrifft: AW: Alle Blätter schützen
von: Franz W.
Geschrieben am: 01.04.2005 11:03:11
Hallo Ömer,
Sub schutz()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect
Next
End Sub


Grüße
Franz
Bild

Betrifft: Vielen Vielen Dank an alle!!
von: ömer
Geschrieben am: 01.04.2005 23:24:03
Vielen Vielen Dank an alle!!
 Bild