Funktion für VBA Schutz

• Funktion für VBA Schutz von peter vom 23.09.2003 12:37:09
  • AW: Funktion für VBA Schutz - von Nepumuk am 23.09.2003 20:32:17
    • AW: Funktion für VBA Schutz - von Peter am 24.09.2003 07:22:22
      • AW: Funktion für VBA Schutz - von Nepumuk am 24.09.2003 17:28:54
        • AW: Funktion für VBA Schutz - von Peter am 25.09.2003 08:55:53

Betrifft: Funktion für VBA Schutz
von: peter

Geschrieben am: 23.09.2003 12:37:09

Hallo Excels,
ich möchte durch eine Funtion im Tabellenblatt anzeigen lassen, ob es einen
VBA-Schutz für diese Mappe gibt.
Hat dafür jemand eine Idee.
Gruss
Peter


Betrifft: AW: Funktion für VBA Schutz
von: Nepumuk
Geschrieben am: 23.09.2003 20:32:17

Hallo Peter,
wie VBA-Schutz? Ob das VBA-Projekt mit einem Kennwort geschützt ist?
Gruß
Nepumuk




Betrifft: AW: Funktion für VBA Schutz
von: Peter
Geschrieben am: 24.09.2003 07:22:22

Hi Nepumuk,
erst einmal vielen Dank das sich doch noch jemand meiner Frage angenommen hat.
Ja genau.
Ich möchte in einer Zelle im Arbeitsblatt angezeigt bekommen ob es einen VBA-Schutz gibt.
Gruss
Peter




Betrifft: AW: Funktion für VBA Schutz
von: Nepumuk
Geschrieben am: 24.09.2003 17:28:54

Hallo Peter,
so geht's:

Option Explicit
Public Function VBA_Schutz() As Boolean
VBA_Schutz = ThisWorkbook.VBProject.Protection
End Function

Code eingefügt mit: Excel Code Jeanie

VBA-Projekt schützen, Mappe speichern, schließen und wieder öffnen. Wenn du nun in eine Zelle

=vba_schutz()

eingibst, erhältst du den Rückgabewert Wahr. Ist das Projekt nicht geschützt, dann Nein.
Gruß
Nepumuk




Betrifft: AW: Funktion für VBA Schutz
von: Peter
Geschrieben am: 25.09.2003 08:55:53

Hi Nepumuk,
Ich Danke Dir, klappt ganz Super.
Gruss
Peter

Excel-Beispiele zum Thema " Funktion für VBA Schutz"

Funktion ANZAHL2 ohne ausgeblendete Spalten		Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche		Alle Prozeduren und Funktionen auflisten
In Funktionskategorie einordnen		Ausgabe einer benutzerdefinierten Funktion in Matrixformel
Benutzerdefinierte Funktion durch Code erstellen und löschen		Ermittlung von Entfernungen über benutzerdefinierte Funktion
Handhabung von Arrays in benutzerdefininierten Funktionen		Arbeitsmappen-Titel über benutzerdefinierte Funktion
Eigene Funktionskategorien erstellen		Auf- und absteigend sortieren ohne Sortierfunktion
Handhabung der Datenbankfunktion DBSUMME()		Alle Funktionstasten aus- und einschalten
Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel		Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen
SUMMEWENN-Funktion über mehrere Tabellenblätter		Integragtion von SVERWEIS in eine Namens-Funktion
Benutzerdefiniere Funktion einer Schaltfläche zuweisen		Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack
Alternative zur DEC2BIN-Funktion ohne Begrenzung auf 512		NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten
Über benutzerdefinierte Funktion Filterkriterium anzeigen		Im Assistenten anzuzeigende Funktion festlegen
Variablen auf mehrere Arten in Funktionen integrieren		Benutzerdefinierte Funktion als Matrixformel
Matrixfunktion über VBA eintragen, auslesen und löschen		Verlauf prognostizieren (über Funktion SCHÄTZER)
Funktionstaste F11 beim Öffnen ein- und beim Schließen aus		Beispiele zum Einsatz der ZÄHLENWENN-Funktion
SVERWEIS-Funktion ohne Berücksichtigung leerer Zellen		ComboBox mit der Funktion des Autofilters
Benutzerdefinierte Funktion zur Ermittlung hinterleger Kategorien		Eine Zusammenstellung von Matrix-Funktionen
Der Einsatz der SVERWEIS-Funktion in einem Ausgabeblatt		Beispiele zum Einsatz der ZELLE-Funktion
Beispiele für den Einsatz der Funktion SVERWEIS		Kennwort für Blattschutz
Blattschutz aufheben		Kommentare in geschützte Tabellen einfügen
Tabelle vor der Bearbeitung schützen		Blattschutzdialog über VBA aufrufen
In geschützter Zelle in geschütztem Blatt Werterhöhung		Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen
Blattschutz für eine Serie von Tabellen setzen und aufheben		Blattschutz beim Speichern setzen
Zellschutz nur für Formeln		Blattschutz setzen und dennoch mit AutoFiltern
Blattschutz aufheben, Daten eintragen, Blattschutz setzen		Blattschutz für VBA-Einträge ausschließen
Blattschutz mit und ohne Passwort aufheben und setzen		Benutzerdefinierte Menüleiste vor Veränderungen schützen
Nur nichtfarbige Zellen schützen		Tabellenblattnamen vor Änderung schützen
Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens		Blattschutz für alle Arbeitsblätter setzen oder aufheben