Menü bleibt für andere Datein ausgeblendet

NLS · 2016-05-10T11:57:10+00:00

Hallo zusammen, mein Makro welches in einer Arbeitsmappe das gesamte Menü ausblendet, blendet auch in anderen Arbeitsmappen das Menü aus, obwohl es dort nicht so sein sollte... Was habe ich in diesem Fall falsch gemacht? Gruß NLS

im Moment habe ich das stehen unter Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = True
End With
End Sub

"Application.CommandBars("Worksheet Menu Bar").Enabled = False" kann in Office 2007-2016 definitiv nicht funktionieren (wenn ich das sage kannst Du es glauben), das Menüband kann man damit nicht ausblenden. Du bekommst das nur nicht mit weil Du vorher schon in den Vollbildmodus schaltest.
Wie bereits erwähnt musst Du in DieseArbeitsmappe bei Workbook_Activate alles ausblenden und bei Workbook-Deactivate alles einblenden.

Private Sub Workbook_Activate()

Application.DisplayFullScreen = True
Application.DisplayStatusBar = False

   With ActiveWindow
       .DisplayGridlines = False
       .DisplayHeadings = False
       .DisplayOutline = False
       .DisplayZeros = False
       .DisplayHorizontalScrollBar = False
       .DisplayVerticalScrollBar = False
       .DisplayWorkbookTabs = True
   End With
   
End Sub

Private Sub Workbook_Deactivate()

Application.DisplayFullScreen = False
Application.DisplayStatusBar = True

   With ActiveWindow
       .DisplayGridlines = True
       .DisplayHeadings = True
       .DisplayOutline = True
       .DisplayZeros = True
       .DisplayHorizontalScrollBar = True
       .DisplayVerticalScrollBar = True
       .DisplayWorkbookTabs = False
   End With
   
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Menü bleibt für andere Datein ausgeblendet

Forumthread: Menü bleibt für andere Datein ausgeblendet

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Menü bleibt für andere Datein ausgeblendet

Forumthread: Menü bleibt für andere Datein ausgeblendet

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread