Moin zusammen,
der folgende Code soll den User zum aktivieren des Makros zwingen:
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Worksheets("Makro\_aus").Visible = True
Application.ScreenUpdating = False
Worksheets("Tabelle2").Visible = xlVeryHidden
Range("B7").Select
Application.ScreenUpdating = True
End Sub
Private Sub Workbook\_Open()
Worksheets("Tabelle2").Visible = True
Application.ScreenUpdating = True
Worksheets("Makro\_aus").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Das klappt auch prima, aber:
ist das Makro wunschgemäß aktiviert und man verläßt die Datei,
gespeichert oder nicht, springt das Makro wieder auf das Blatt
„Makro_aus“ zurück, wo der Hinweis steht, dass die
Makros aktiviert werden müssen.
Kann man diesen Rücksprung, oder dessen Anzeige verhindern?
Gruß und danke schonmal
Rolf
der folgende Code soll den User zum aktivieren des Makros
zwingen:
Das klappt auch prima, aber:
ist das Makro wunschgemäß aktiviert und man verläßt die Datei,
gespeichert oder nicht, springt das Makro wieder auf das Blatt
„Makro_aus“ zurück, wo der Hinweis steht, dass die
Makros aktiviert werden müssen.
Kann man diesen Rücksprung, oder dessen Anzeige verhindern?
Hallo Rolf,
probiers mal so:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets(„Makro_aus“).Visible = True
Worksheets(„Tabelle2“).Visible = xlVeryHidden
Range(„B7“).Select
End Sub
Gruß
Reinhard
der folgende Code soll den User zum aktivieren des Makros
zwingen:
Das klappt auch prima, aber:
ist das Makro wunschgemäß aktiviert und man verläßt die Datei,
gespeichert oder nicht, springt das Makro wieder auf das Blatt
„Makro_aus“ zurück, wo der Hinweis steht, dass die
Makros aktiviert werden müssen.
Kann man diesen Rücksprung, oder dessen Anzeige verhindern?
Hallo Rolf,
probiers mal so:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets(„Makro_aus“).Visible = True
Worksheets(„Tabelle2“).Visible = xlVeryHidden
Range(„B7“).Select
End Sub
Hallo Reinhard,
danke für deine Antwort. Ich habe das obere Makro
durch Deins ersetzt. Gleiches Ergebnis. Wenn ich die
Datei mit „X“ verlassen will, springt er wieder auf
das Blatt „Makro aus“:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets(„Makro_aus“).Visible = True
Worksheets(„Tabelle2“).Visible = xlVeryHidden
Range(„B7“).Select
End Sub
Noch eine Idee?
Excel 2000 - sorry, vergesse ich immer.
Gruß
Rolf
Hallo Rolf,
danke für deine Antwort. Ich habe das obere Makro
durch Deins ersetzt. Gleiches Ergebnis. Wenn ich die
Datei mit „X“ verlassen will, springt er wieder auf
das Blatt „Makro aus“:
Noch eine Idee?
ja, warum das Rad neu erfinden 
Schau mal hier:
http://hajo-excel.de/vba_nur_makros.htm
Gib bitte Rückmeldung ob du da fündig wurdest.
Wenn das Problem weiter bestehen belibt teste ich heute Abend mal an deinem Code.
Gruß
Reinhard
Hallo Reinhard,
heute keine Zeit mehr, werde morgen testen.
Schönen Feierabend.
Gruß und danke erstmal
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rolf,
danke für deine Antwort. Ich habe das obere Makro
durch Deins ersetzt. Gleiches Ergebnis. Wenn ich die
Datei mit „X“ verlassen will, springt er wieder auf
das Blatt „Makro aus“:
Noch eine Idee?
ja, warum das Rad neu erfinden
Schau mal hier:
http://hajo-excel.de/vba_nur_makros.htm
Gib bitte Rückmeldung ob du da fündig wurdest.
Wenn das Problem weiter bestehen belibt teste ich heute Abend
mal an deinem Code.
Hallo Reinhard,
ich habe versucht, den Code der 1. dort vorgestellten Beispielmappe
umzustricken, das hat aber nicht geklappt. Nach Auskommentieren der
„Speichern-nur-mit-Schließen-Schleife“ und Anpassen der Blattnamen
hats dann nicht mehr funktioniert. Ich glaube, da war ich mit dem
obigen Versuch näher dran.
Mein Problem ist immer noch der nicht gewollte Rücksprung auf
das „Makros sind deaktiviert“ Blatt beim Schließen der Datei.
Hast Du noch Lust?
Gruß
Rolf
http://hajo-excel.de/vba_nur_makros.htm
ich habe versucht, den Code der 1. dort vorgestellten
Beispielmappe umzustricken, das hat aber nicht geklappt.
…
hats dann nicht mehr funktioniert. Ich glaube, da war ich mit
dem obigen Versuch näher dran.
Mein Problem ist immer noch der nicht gewollte Rücksprung auf
das „Makros sind deaktiviert“ Blatt beim Schließen der Datei.
Hallo Rolf,
hilft dir das weiter:
Application.WindowState = xlMinimized
ActiveWindow.WindowState = xlMinimized
Windows(„dateiname“).WindowState = xlMinimized
Wenn nicht, ich schaue in 1-2 Stunden noch mal rein.
Gruß
Reinhard
hilft dir das weiter:
Application.WindowState = xlMinimized
ActiveWindow.WindowState = xlMinimized
Windows(„dateiname“).WindowState = xlMinimized
Wenn nicht, ich schaue in 1-2 Stunden noch mal rein.
Moin Reinhard,
was mir hier das minimierte Fenster hilft, blicke ich im
Moment noch nicht, aber laß und das hier beenden, ist nicht
lebenswichtig. Ich nehme Deine Hilfe dann lieber an anderer
Stelle mal wieder in Anspruch.
Allen ein schönes Wochenende
Gruß
Rolf