Office: (Office 2013) Excel Datei öffnen als Vollbild(komplett)

okrian · 1. Februar 2017

Hallo ,

ich habe es geschafft das meine Excel Datei sich im Vollbildmodus öffnet und beim schließen das Format wieder Standard ist.*Smilie
Kann mir einer sagen ob ich das Vollbild auch ohne :
Die obereLeiste von Win mit dem x zum schließen
und ohne die Taskleiste für die Dauer des Vollbildes haben kann ?!

Mit freundlichen Grüßen
David

:)

AndreaNoway · 2. Februar 2017

In den Codebereich des Blattes im Open oder Activate-Ereignis
...zum Ausblenden
Code:

Private Sub Worksheet_Activate()

ActiveSheet.ScrollArea = "A1:A1"
With ActiveWindow
.DisplayHorizontalScrollBar = False ' blendet horizontralen Scrollbalken aus
.DisplayVerticalScrollBar = False ' blendet vertikalen Scrollbalken aus
.DisplayHeadings = False ' blendet Überschriften aus
.DisplayWorkbookTabs = False ' blendet Reiter für Blattanwahl aus
End With
With Application
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)" ' blendet das Ribbon aus
.DisplayStatusBar = False ' blendet Statuszeile aus
.CommandBars("Worksheet Menu Bar").Enabled = False ' blendet die Menüleiste aus
.DisplayFormulaBar = False ' blendet Standard u. Formatzeile aus
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und unbedingt im Close oder Deactivate Ereignis

Code:

Private Sub Worksheet_Deactivate()

ActiveSheet.ScrollArea = ""
With ActiveWindow
.DisplayHorizontalScrollBar = True ' blendet horizontralen Scrollbalken ein
.DisplayVerticalScrollBar = True ' blendet vertikalen Scrollbalken ein
.DisplayHeadings = True ' blendet Überschriften ein
.DisplayWorkbookTabs = True ' blendet Reiter für Blattanwahl ein
End With
With Application
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", true)" ' blendet das Ribbon ein
.DisplayStatusBar = True ' blendet Statuszeile ein
.CommandBars("Worksheet Menu Bar").Enabled = True ' blendet die Menüleiste ein
.DisplayFormulaBar = True ' blendet Standard u. Formatzeile ein
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mehr geht nicht... Die Datei könnte sonst nur noch mit ALT + F4 geschlossen werden. Ebenso hat die Taskleiste nichts mit Office zu tun. An die kommst du ohne weiteres nicht heran.

AndreaNoway · 3. Februar 2017

Im Anhang eine Datei, mit der man getrickst zu einem Vollbild kommt.
Abgesehen von der Taskleiste.
Bei mehreren Bildschirmen muss weiter getrickst werden.
Im Code müssen ein zwei Werte schlicht ausprobiert werden.

Im windowState xlMaximized können die Werte der Anzeigebreite, -höhe und -position nicht verändert, sondern nur gelesen werden.
Im xlNormal schon. Also wird das Bild maximiert, die Werte Breite und Höhe ausgelesen, der windowState auf xlNormal gesetzt und die Werte der Ganzdarstellung gesetzt.
So ist die der .top - Wert in den negativen Bereich verschiebbar, bis die obere Leiste und das "Schliessen-Kreuz" nicht mehr sichtbar sind.
Die .height wird auf einen Hohen Fantasiewert gestellt.
Vollbild.

Code:

Dim sngBreite As Single
Dim sngHoehe As Single

With Application
.WindowState = xlMaximized
sngBreite = .Width
sngHoehe = .Height
.WindowState = xlNormal ' Werte setzen nicht im xlMaximized möglich
.Width = sngBreite - 15 ' Werte anpassen
.Top = -23 ' Werte anpassen, bis Zeile 1
.Height = 1000 ' und Spalte A komplett angezeigt wird
.Left = 1
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Excel Datei öffnen als Vollbild(komplett)

Excel Datei öffnen als Vollbild(komplett)

Excel Datei öffnen als Vollbild(komplett)

Excel Datei öffnen als Vollbild(komplett) - Similar Threads - Excel Datei öffnen

Zugriff auf andere Excel Datei ohne aktives Öffnen

Word-Datei mit Excel im Bearbeitungsmodus öffnen

Problem beim Öffnen von Dateien oder Ordnern über Links in Excel 2016 für Mac

Warum kann ich meine Excel-Datei nicht öffnen?

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Mehrere EXCEL Dateien per Makro durchsuchen und öffnen

[Excel] per Makro eine Datei öffnen und ein Makro ausführen