Makro ausführen wenn die Datei geöffnet wird
28.02.2008 01:13:22
Gesa
möchte gerne, dass er nachfolgendes Makro beim Öffnen der Datei "TEST" ausführt:
Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled = _
False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = False
End Sub
Wenn die Datei geschlossen wird, soll dieses Makro ausgeführt werden:
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Enabled = _
True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Drucken...").Visible = _
True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
End Sub
Gibt es dafür eine Lösung?
Für Hilfe bin ich wie immer :-) sehr dankbar (was würde ich bloß ohne das Forum machen..
Schöne Grüße
Gesa S.