Hi Leute,
wie kann ich schon beim öffnen einer Tabelle per VBA abfragen, ob ich Macros ausführen darf ?
Meine Tabelle darf nur geöffnet werden können, wenn "Macros ausführen" aktiviert ist.
Vielen Dank Leute
Hallo,
mit Excel geht nicht, denn Du willst offensichtlich das abfragen, was die Abfrage leisten soll.
Also entweder: .bat schreiben oder Hilfe-Datei erzeugen. So schwierig wird es wohl nicht sein, es ist nur ein Eintag in der Registry.
Micha
Hallo Klaus
vielleicht hilft schon folgendes
379. 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 Registe nur über VBA eingeblendet werden können und nicht über Format, Blatt, Einblenden.
VBA Projekt schützen
Gruß Hajo
|
Hallo Klaus
vielleicht hilft schon folgendes
379. 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 Registe nur über VBA eingeblendet werden können und nicht über Format, Blatt, Einblenden.
VBA Projekt schützen
Gruß Hajo
Jau,
So weit war ich auch schon.
Aber ich dachte, ich könnte über Format, Blatt, Einblenden
wieder rein. Aber es funktioniert doch.
Danke Hajo.
Gruss Klaus K.
Hallo Klaus
bläter die mit ....Visible = xlVeryHidden ausgeblendet werden können nicht über Format, Blatt, einblenden eingeblendet werden.
Oder habe ich da was falsch verstanden.
Dies gilt jedenfalls bis Version XP
Gruß Hajo
Nein.....
ICH hatte gedacht, die können sowieso über "Format, Blatt, Einblenden" eingeblendet werden.
Deshalb habe ich es gar nicht erst mit "Visible = xlVeryHidden" versucht.
Dein Tip hat mich also gerettet.
Grus Klaus K.
Das Archiv des Excel-Forums