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
152to156
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
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur mit Makro öffnen

Nur mit Makro öffnen
25.08.2002 12:49:01
Markus
Hallo,

ich möchte das die Tabelle nur geöffnet werden kann wenn die Makros akttiviert werdern. Werden diese nicht aktiviert darf die Tabelle sich nicht öffnen.

Gruss

Markus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur mit Makro öffnen
25.08.2002 12:50:18
Hajo_Zi
Hallo Markus

das geht nur über einen Umweg

381. 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 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

Re: Nur mit Makro öffnen
25.08.2002 13:08:43
Markus
Hallo Hajo,

besten Dank!! Es funktioniert toll. Eine Zusatzfrage wie gebe ich mehrere Register ein mit folgendem Befehl blendet er nur das erste Register aus:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Ausgabeformular;Handelsspannen;Configuration").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Sheets("MAKRO").Visible = True
End Sub

Gruss

Markus

Anzeige
Re: Nur mit Makro öffnen
25.08.2002 13:17:30
Hajo_Zi
Hallo Markus

mit folgendem Code werden alle Tabelle bis auf Tabelle1 ausgeblendet.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige