Herbers Excel-Forum - das Archiv

Alle Blätter Schutz aufheben

Bild

Betrifft: Alle Blätter Schutz aufheben
von: ömer

Geschrieben am: 09.04.2005 16:42:51
Hallo,
bitte wie kann ich Schutz für alle Blätter der Mappe aufheben ?
Vielen Dank im voraus
ömer
Bild

Betrifft: AW: Alle Blätter Schutz aufheben
von: Hajo_Zi

Geschrieben am: 09.04.2005 16:45:48
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.


Bild

Betrifft: AW: Alle Blätter Schutz aufheben
von: ransi
Geschrieben am: 09.04.2005 16:47:33
hallo ömer
schau dir mal in der VBA hilfe protect & unprotect an.
dann bau dir eine schleife die alle blätter durchläuft.
in der schleife machst du unprotect.
ransi
Bild

Betrifft: AW: Alle Blätter Schutz aufheben
von: Lars
Geschrieben am: 09.04.2005 16:54:10
Hi,
Option Explicit
Sub Schutz_aufheben()
Dim objSheet As Object
'Falls auch andere als Tabellenblätter dabei sind
For Each objSheet In ActiveWorkbook.Sheets
objSheet.Unprotect Password:="xxx"
Next
End Sub
Mit freundlichen Grüßen Lars

Bild

Betrifft: Vielen Dank Lars ,Hajo_Zi und Ransi
von: ömer
Geschrieben am: 09.04.2005 20:34:56
Vielen Dank Lars ,Hajo_Zi und Ransi,
Alle ok "!!
MFG
ömer
 Bild
Excel-Beispiele zum Thema "Alle Blätter Schutz aufheben"
Kennwort für Blattschutz Blattschutz aufheben
Kommentare in geschützte Tabellen einfügen Tabelle vor der Bearbeitung schützen
Blattschutzdialog über VBA aufrufen In geschützter Zelle in geschütztem Blatt Werterhöhung
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen Blattschutz für eine Serie von Tabellen setzen und aufheben
Blattschutz beim Speichern setzen Zellschutz nur für Formeln