Beim öffenen der datei makro ausführen

Forumthread: Beim öffenen der datei makro ausführen

20.11.2003 08:42:27

stivi

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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Beim öffenen der datei makro ausführen

20.11.2003 08:55:07

Nike

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

AW: Beim öffenen der datei makro ausführen

20.11.2003 09:06:59

stivi

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!

AW: Beim öffenen der datei makro ausführen

20.11.2003 11:02:35

Rainer

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

Beliebteste Forumthreads (12 Monate)

Beim öffenen der datei makro ausführen

Forumthread: Beim öffenen der datei makro ausführen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beim öffenen der datei makro ausführen

Forumthread: Beim öffenen der datei makro ausführen

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread