Makro wird von anderen Excel Dateien übernommen

Computer: Software & Programmierung Visual Basic
#1

Ein letztes mal.

Hoffe ihr könnt mir nochmals helfen. Bei meinem Code wird die obere Toolbar ausgeblendet, so dass nur noch mit meinen Symbolen gearbeitet werden kann. Öffne ich aber eine andere Excel Datei, wird dieser Zustand übernommen. Diese Datei hat dann also auch keine Toolbar mehr. Wie kann ich den Code schreiben, dass nur die Datei ohne Toolbar ist, die auch den Code enthält?

Habe folgenden Code:

Sub Auto_open()
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",False)"
ActiveWorkbook.Save
End Sub

Liebe Grüße, Danny.

#2

Hoffe ihr könnt mir nochmals helfen. Bei meinem Code wird die
obere Toolbar ausgeblendet, so dass nur noch mit meinen
Symbolen gearbeitet werden kann. Öffne ich aber eine andere
Excel Datei, wird dieser Zustand übernommen. Diese Datei hat
dann also auch keine Toolbar mehr. Wie kann ich den Code
schreiben, dass nur die Datei ohne Toolbar ist, die auch den
Code enthält?

Hallo Danny,

Option Explicit

Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",False)"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",True)"
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",True)"
End Sub

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",False)"
End Sub

Gruß
Reinhard

#3

Das mag noch nicht so richtig gehen. Sobald ich ein neues Dokument öffne, ist auch hier die Toolbar verschwunden.

Der komplette Code bei mir war:

Sub Auto_open()
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",False)"
ActiveWorkbook.Save
End Sub
Sub RibbonOn()
’
’ Rem Menüband einblenden
’
’ Tastenkombination: Strg+q
’
Application.ExecuteExcel4Macro „SHOW.TOOLBAR(“„Ribbon“",True)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

#4

Grüezi Danny

Das mag noch nicht so richtig gehen. Sobald ich ein neues
Dokument öffne, ist auch hier die Toolbar verschwunden.

Der komplette Code bei mir war:

…und wie ist er denn jetzt - hast Du Reinhards Vorschlag denn nicht übernommen?

BTW:
Die Codes von Reinhard gehören in ‚Diese Arbeitsmappe‘ und nicht in ein allgemeines Modul.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#5

Sorry, mein Fehler.

Es geht!