Beim öffenen der datei makro ausführen

Bild

Betrifft: Beim öffenen der datei makro ausführen
von: stivi
Geschrieben am: 20.11.2003 08:42:27

hallo Leute

ich habe folgendes Problem, und komme nicht mehr weiter:
Ich will beim öffnen einer Datei verschiedene Leisten ausschalten. Ich habe folgenden Coden im Tabellblatt geschrieben:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub


Jetzt werden diese Leisten erst ausgeschaltet wenn ich jeweils auf einer Zelle in der Tabelle drücke. Wie sieht der Code aus, der beim öffnen der Tabelle den Makto ausführt und beim schliessen der Tabelle ihn rückgängig macht. Es wäre echt toll, wenn mir jemand helfen könnte! Danke schon im Voraus!
Bild


Betrifft: AW: Beim öffenen der datei makro ausführen
von: Nike
Geschrieben am: 20.11.2003 08:55:07

Hi,
schau dir mal im Modul "Diese Arbeitsmappe"
die Prozeduren


Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

'und

Private Sub Workbook_Open()
End Sub


an...

Bye

Nike


Bild


Betrifft: AW: Beim öffenen der datei makro ausführen
von: stivi
Geschrieben am: 20.11.2003 09:06:59

Hallo,

Ich habe jetzt folgenden Code in der Arbeitsmappe einsgschreiben, aber es funktioniert nicht:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub


Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
End Sub


Mache ich noch irgend etwas falsch oder mache ich grundlegend etwas falsch!
Kannst Du mir bitte noch einmal helfen! Danke!


Bild


Betrifft: AW: Beim öffenen der datei makro ausführen
von: Rainer
Geschrieben am: 20.11.2003 11:02:35

Hallo,

das Ganze nur vertauscht. Schreibs mal so:


Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
End Sub


Gruß Rainer


Bild

Beiträge aus den Excel-Beispielen zum Thema " importierte negative Zahlen sind Text "