Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter schützen

Forumthread: Tabellenblätter schützen

Tabellenblätter schützen
11.01.2006 22:27:47
Mister
Hallo!
ich möchte gleichzeitig alle Blätter einer Datei ohne Passwort schützen bzw. den Schutz aufheben. Weiß jemand Rat?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter schützen
11.01.2006 22:34:18
Reinhard
Hi B,
Option Explicit

Sub ein()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws
End Sub


Sub aus()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect
Next ws
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige
AW: Tabellenblätter schützen
12.01.2006 17:36:11
Mister
Danke,
genau das was ich brauche!!
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige