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

Schutz für mehrere Blätter

Schutz für mehrere Blätter
07.03.2005 12:31:41
tobias
Hallo!
Ich möchte gerne den Schutz mehrer Blätter gleichzeitig aufheben und vieder herstellen - geht das? Mit strg und markieren ist es mir nicht gelungen.
Für einen Tipp wäre ich sehr dankbar.
Grüße tobias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schutz für mehrere Blätter
07.03.2005 12:35:27
Josef
Hallo Tobias!
Das geht nur mit einer Schleife!
Z.B.:

Sub SchutzAn()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Protect Password:="deinPasswort"
Next
End Sub
Sub SchutzAus()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Unprotect Password:="deinPasswort"
Next
End Sub
Gruß Sepp
<font color=blue>P.S.: Rückmeldung nicht vergessen!</font>
<hr noshade style="height:5px; background-color:#EEEEEE; border:1px solid blue">

AW: Schutz für mehrere Blätter
07.03.2005 12:35:51
Gert
Hallo Tobias,
Lösung:"Services" ---&gt"Excel-Recherche" ---&gt"Blattschutz aufheben" eingeben.
Lösung wahrscheinlich in VBA.
mfg
Gert
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige