Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makros deaktivieren

Makros deaktivieren
14.11.2002 16:56:23
Siggi
Gibt es eine Möglichkeit die Abfrage "Makros deaktivieren" zu deaktivieren, so daß der User nur noch die Möglichkeit hat entweder "Makro aktivieren" oder "Datei nicht öffnen" zu wählen ?
Ich schütze die Tabellendaten z.Zt dadurch, daß man die Daten nur über eine Maske eingegeben werden kann die mit Auto_open automatisch startet. Die Maske läßt sich dann nicht mehr schließen. Allerdings kann man die Sache einfach umgehen, indem man gleich bei Dateiaufruf die Makroausführung verneint.

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

Betreff
Datum
Anwender
Anzeige
Re: Makros deaktivieren
14.11.2002 16:59:55
Hajo_Zi
Hallo Siggi

folgender Vorschlag

384. nur mit aktivem Makro
Füge ein neues Register ein und schreibe groß drauf "Makro wurden nicht aktiviert"
in Private Sub Workbook_BeforeClose(Cancel As Boolean)
blendest Du alle anderen Register mit
Sheets("Tabelle1").Visible = xlVeryHidden aus
Oder mehere außer Tabelle1
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
If Worksheets(I).Name <> "Tabelle1" Then Worksheets(I).Visible = xlVeryHidden
Next I
und in
Private Sub Workbook_Open()
mit Sheets("Tabelle1").Visible = True wieder ein.

Das Ausblenden hat den Vorteil das die Register nur über VBA eingeblendet werden können und nicht über Format, Blatt, Einblenden.
VBA Projekt schützen

Gruß Hajo

Anzeige
Danke, es funktioniert
15.11.2002 16:53:48
Siggi
Danke, es funktioniert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige