Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Beim öffenen der datei makro ausführen

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!

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

Betreff
Datum
Anwender
Anzeige
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!
Anzeige
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige