Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Blätter Schutz aufheben

Forumthread: Alle Blätter Schutz aufheben

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

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

Betreff
Datum
Anwender
Anzeige
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.


Anzeige
AW: Alle Blätter Schutz aufheben
09.04.2005 16:47:33
ransi
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
AW: Alle Blätter Schutz aufheben
09.04.2005 16:54:10
Lars 
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

Anzeige
Vielen Dank Lars ,Hajo_Zi und Ransi
09.04.2005 20:34:56
ömer
Vielen Dank Lars ,Hajo_Zi und Ransi,
Alle ok "!!
MFG
ömer
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige