Benutzermodus Menü ausblenden
06.02.2023 12:30:46
Christian
ich habe ein Tabelle mit verschiedenen Tabellenblättern erstellt, ich möchte diese meinen Kollegen diese als eigenständiges Programm zur Verfügung stellen. Mit dem
unten genannten Code funktioniert dies auch ganz gut ( Benutermodus / Entwicklermodus) ... Öffnet man jedoch ein zweites mal Excel.. wechselt Excel zwischen den
zwei Excel Tabellen wie wild umher bis schlussendlich ein Fehler erscheint..
Kann mir vielleicht jemand einen Tipp geben was ich falsch gemacht habe.
Sub Benutzermodus()
Dim ws As Worksheet
With Application
.Caption = "TECHNISCHE VERTRIEBSUNTERSTÜTZUNG" ' Titel
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)" ' Menüleiste ausblenden
.DisplayFormulaBar = False 'Bearbeitunsleiste ausblenden
.DisplayStatusBar = False 'Statusleiste ausblenden
End With
With ActiveWindow
.Caption = ""
.DisplayWorkbookTabs = False ' Tabellenblattleiste ausblenden
.WindowState = xlMaximized
' Scrollleiste einblenden
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
End With
For Each ws In ThisWorkbook.Worksheets ' Überschriftszeile auf allen Tabellenblättern ausblenden
ws.Activate
ActiveWindow.DisplayHeadings = False
Next ws
Startseite.Select
Startseite.ScrollArea = "A1"
End With
End Sub
Sub Entwicklermodus()
Dim ws As Worksheet
With Application
.Caption = "TECHNISCHE VERTRIEBSUNTERSTÜTZUNG" ' Titel
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)" ' Menüleiste einblenden
.DisplayFormulaBar = True 'Bearbeitunsleiste einblenden
.DisplayStatusBar = True 'Statusleiste einblenden
End With
With ActiveWindow
.Caption = ""
.DisplayWorkbookTabs = True ' Tabellenblattleiste einblenden
.WindowState = xlNormal ' Größe festlegen
' Scrollleiste einblenden
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
End With
For Each ws In ThisWorkbook.Worksheets ' Überschriftszeile auf allen Tabellenblättern einblenden
ws.Activate
ActiveWindow.DisplayHeadings = True
Next ws
Startseite.Select
Startseite.ScrollArea = ""
End Sub