Ausschalten von Symbol- u. Menüleiste, Bearbeitung

Sub AusschaltenAlles() 'Ausschalten von Symbol- u. Menüleiste, Bearbeitungsleiste, Zeilen- u. Spaltenbezeichnung Dim cd As CommandBar Application.ScreenUpdating = False For Each cb In CommandBars cb.Enabled = False Next If ActiveWindow.DisplayHeadings = True Then ActiveWindow.DisplayHeadings = False End If If Application.DisplayFormulaBar = True Then Application.DisplayFormulaBar = False End If Application.DisplayFullScreen = True Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jan,
leider hat deine Lösung nicht zum Erfolg geführt. Die Bearbeitungsleiste ist immer noch da bzw. wenn ich deine Lösung in Workbook_Open einsetze (siehe Code), dann bekomme ich den Laufzeitfehler '91' = Objektvariable oder With-Blockvariable nicht festgelegt.

Option Explicit


Sub Workbook_Open()
'Ausschalten von Symbol- u. Menüleiste, Bearbeitungsleiste, Zeilen- u. Spaltenbezeichnung
Dim c As Object
Set c = CommandBars(1).Controls(3).Controls(5)
If c.State = -1 Then c.Execute
AusschaltenAlles
AktualisierenVerkn
Formatierung
End Sub

Alternative hatte ich deine Lösung (VorAllesAusschalten) in ein Modul geschrieben und mit Workbook_Open () gestartet. Dann funktioniert zwar deine Lösung ohne Laufzeitfehler, führt aber nicht zum Ausschalten der Bearbeitungsleiste. Hinzukommt, dass die Performance stark leidet.

Option Explicit


Sub Workbook_Open()
'Ausschalten von Symbol- u. Menüleiste, Bearbeitungsleiste, Zeilen- u. Spaltenbezeichnung
VorAllesAusschalten
AusschaltenAlles
AktualisierenVerkn
Formatierung
End Sub

AuschaltenAlles () sieht wie folgt aus:


Sub AusschaltenAlles()
'Ausschalten von Symbol- u. Menüleiste, Bearbeitungsleiste, Zeilen- u. Spaltenbezeichnung
Dim cb As CommandBar
Application.ScreenUpdating = False
For Each cb In CommandBars
cb.Enabled = False
Next
If Application.DisplayFormulaBar = True Then
Application.DisplayFormulaBar = False
End If
If ActiveWindow.DisplayHeadings = True Then
ActiveWindow.DisplayHeadings = False
End If
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End Sub

Hast noch eine andere Idee?
Danke und viele Grüße
Rose

Sub Workbook_Open() 'Ausschalten von Symbol- u. Menüleiste, Bearbeitungsleiste, Zeilen- u. Spaltenbezeichnung Dim c As Object Set c = Application.CommandBars(1).Controls(3).Controls(5) If c.State = -1 Then c.Execute AusschaltenAlles AktualisierenVerkn Formatierung End Sub

Beliebteste Forumthreads (12 Monate)

Ausschalten von Symbol- u. Menüleiste, Bearbeitung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread