Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zustand einer Protection?

Forumthread: Zustand einer Protection?

Zustand einer Protection?
22.01.2004 15:17:35
Sebastian
Hallo Leute,
ich hab da mal eine Frage:
Kann ich mit einem VBA Befehl feststellen, ob meine Arbeitsmappe oder meine Tabelle gerade Passwortgeschützt ist? Wenn ja, wie?
Danke und Gruß,
Sebastian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zustand einer Protection?
22.01.2004 15:19:04
Gerd
Nein, nur ob geschützt oder nicht.
Gerd
AW: Zustand einer Protection?
22.01.2004 15:23:01
Sebastian
Gut, danke. Kannst du mir bitte noch verraten, wie ich prüfe, ob sie geschützt sind?
Sebastian
AW: Zustand einer Protection?
22.01.2004 15:26:46
Gerd 

Sub teste()
If ActiveWorkbook.ProtectStructure Or _
ActiveWorkbook.ProtectWindows Then
MsgBox "Mappenschutz!"
End If
End Sub

Gerd
Anzeige
AW: Zustand einer Protection?
22.01.2004 15:29:15
Boris
Hi Sebastian,
klar geht das. Einfach den Schutz per VBA mit einem absolut unmöglichen Passwort aufheben. Ist der Schutz ohne PW vorhanden, geht das auch so ohne Probleme - oder es gibt nen Fehler, der entsprechend behandelt wird (mein Code steht im Modul der Tabelle - daher das Schlüsselwort Me):
Option Explicit

Sub passwortschutz_ja_nein()
On Error GoTo fehler:
Me.Unprotect "xyz"
Me.Protect
MsgBox "Datei ist ohne Passwort geschützt.", , "Gebe bekannt..."
Exit Sub
fehler:
MsgBox "Datei ist passwortgeschützt", , "Gebe bekannt..."
End Sub

Grüße Boris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige