Vollbild und diverse Leisten ausblenden

Forumthread: Vollbild und diverse Leisten ausblenden

16.11.2022 20:31:01

Christian

Hallo zusamnmen,
wenn ich meine Tollbar und andere leisten für eine Tabelle oder Sheet entfernen möchte,
wird mir in allen geöffneten Tabellen die Leiste entfernt, wie kann ich nur ein Arbeitsmappe (Workbook)
oder Worksheet ansprechen?
Habs schon mal mit ThisWorkbook.Sheets("Startsteite").Activate ... so heißt das sheet probiert, hat aber nichts genutzt.
Besten Dank im Voraus.
Christian


Sub BenutzerModus()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
Application.DisplayFullScreen = True
' ActiveWindow.DisplayHorizontalScrollBar = False
' ActiveWindow.DisplayVerticalScrollBar = False
' ActiveWindow.DisplayWorkbookTabs = False
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vollbild und diverse Leisten ausblenden

17.11.2022 08:14:28

Oberschlumpf
AW: Vollbild und diverse Leisten ausblenden

19.11.2022 11:57:02

Christian
AW: Vollbild und diverse Leisten ausblenden

19.11.2022 12:42:06

Oberschlumpf

AW: Vollbild und diverse Leisten ausblenden

17.11.2022 08:14:28

Oberschlumpf

Hi Christian,
aber mit Sheets("Startsteite").Activate bist du zumindest schon mal auf einem guten Weg, wenn du genau eben bei Auswahl von "Startseite" deinen Code ausführen lassen willst.
Noch besser (nach meinem Verständnis) könntest du dein Problem aber lösen, wenn du diesem Code im Arbeitsmappen-Modul verwendest:


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim lshStart As Worksheet, lboStart As Boolean, lstrThis As String
lstrThis = ActiveSheet.Name
For Each lshStart In Sheets
If lshStart.Name = lstrThis Then
If lshStart.Name = "Startseite" Then
lboStart = True
Else
lboStart = False
End If
Exit For
End If
Next
If lboStart = True Then
With Application
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
.DisplayFullScreen = True
End With
Else
With Application
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",true)"
.DisplayFormulaBar = True
ActiveWindow.DisplayGridlines = True
.DisplayFullScreen = False
End With
End If
End Sub

Hilfts?
Nein?
Dann zeig mal ne Bsp-Datei per Upload.
Ciao
Thorsten

AW: Vollbild und diverse Leisten ausblenden

19.11.2022 11:57:02

Christian

Vielen Dank.... :-) hat nach einigem probieren funktioniert :-) Ihr seit klasse....

AW: Vollbild und diverse Leisten ausblenden

19.11.2022 12:42:06

Oberschlumpf

und was hältst du von der Idee, auch mal hier zu antworten?
https://www.herber.de/forum/messages/1907369.html

Beliebteste Forumthreads (12 Monate)

Vollbild und diverse Leisten ausblenden

Forumthread: Vollbild und diverse Leisten ausblenden

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread