Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei Schützen möglich?

Datei Schützen möglich?
23.01.2004 11:22:49
Meik
Hi,
habe hier eine Datei mit ca. 33 Blättern und wenn ich die Blätter schützen möchte, muss ich jedes Blatt einzeln schützen, oder geht's auch anders??
Habe bisher immer die Bereiche makiert, die zugänglich sein sollen und dann das Häckchen entfernt und dann das Blatt geschützt. Allerdings ist das ja ziemlich umständlich, wenn ich das für jedes Blatt mache. Um das Häckchen zu entfernen, kann ich ja mehrere Blätter makieren und das dann synkron erledigen. Dies geht allerdings beim Blattschutz nicht!
Hat jemand vielleicht eine Idee?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Schützen möglich?
23.01.2004 11:31:02
Matthias G
Hallo Meik,
folgende Prozeduren machen das:

Sub SchutzEin()
Dim pw As String
Dim ws As Worksheet
pw = InputBox("Passwort:", "Alle Blätter schützen")
For Each ws In Worksheets
ws.Protect Password:=pw
Next
End Sub


Sub SchutzAus()
Dim pw As String
Dim ws As Worksheet
pw = InputBox("Passwort:", "Alle Blätter ""entschützen""")
For Each ws In Worksheets
ws.Unprotect Password:=pw
Next
End Sub

Gruß,
Matthias
AW: Datei Schützen möglich?
23.01.2004 12:23:42
Meik
Wow, vielen Dank.
Klappt einwandfrei.
Vielen Dank Matthias
Grüße Meik
Anzeige
AW: Danke für die Rückmeldung! - o.T.
23.01.2004 12:27:15
Matthias G
-

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige