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

Blattschutz Switch ein/aus

Blattschutz Switch ein/aus
30.11.2007 10:32:00
Peter
Liebes Forum
Ich möchte für Tabelle6 einen Blattschutz Switch einrichten, d.h. wenn die Datei geschützt ist, soll sie entschützt werden, andernfalls umgekehrt.
Wie kann ich abfragen, wie der Zustand ist? mit If Tabelle6.Protection = False komme ich nicht weiter.
Danke für jede Hilfe, Peter

Sub BlattSchutzSwitch()
If Tabelle6.Protection = False Then
Tabelle6.Protect userinterfaceonly:=True
Else
Tabelle6.Unprotect
End If
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz Switch ein/aus
30.11.2007 10:39:42
mumpel
Hallo!
Versuchs mal so:

Sub BlattSchutzSwitch()
If Sheets("Tabelle6").ProtectContents = False Then
Sheets("Tabellle6").Protect userinterfaceonly:=True
Else
Sheets("Tabelle6").Unprotect
End If
End Sub


Gruß, Rene

AW: Blattschutz Switch ein/aus
30.11.2007 10:55:00
Peter
Hallo René
Das hat funktioniert. Vielen Dank!
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige