AW: Alle Blätter Schutz aufheben
09.04.2005 16:45:48
Hajo_Zi
Hallo ömer,
die Recherche (Service) hilft da auch schon.
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
'* H. Ziplies *
'* 28.12.02 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("")
Next WsTabelle
End Sub
Private Sub Schutz()
'* H. Ziplies *
'* 28.12.02 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
For Each WsTabelle In Sheets
WsTabelle.Protect ("")
Next WsTabelle
End Sub
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.