Office: Menüleisten deaktivieren-nur bei einem Workbook!

Hallo Zusammen,

ich versuche gerade bei einen Workbook, sobald es aktiviert wird, alle Menüleisten auszublenden.

Problem 1:
Menüband (oben) und Blattregister (unten) wird ausgeblendet - funktioniert super bei jedem Öffnen. Aber die Spalten- und Zeilenbezeichnungen werden nur im aktiven Tabellenblatt ausgeblendet, nicht auf jedem Blatt im Workbook. Was kann ich hier tun?

Problem 2:
Das Menüband ist auch bei anderen Excel-Workbooks ausgeschaltet sobald ich sie öffne. Das ist ein großes Problem! Ich möchte die drei Leisten nur bei einen einzigen Excel Workbook ausschalten (und bei diesem auf allen Blättern)!



Code:

Bin für jede Hilfe sehr dankbar

Grüße
Hias

:)

 

mache eine Schleif über alle Worksheets.

 

Hallo Hajo-Zi,

Habe ich versucht, leider ohne Erfolg. Unten der Code.


Grüße Hias

Code:

 

ich würde vermuten?

shBlatt.DisplayHeadings = False

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

 

ich habe es jetzt doch getestet. Unter DieseArbeitsmappe

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
End Sub

 

Hallo,

es gibt keine weiteren Codes in dieser Mappe. Ehrlich gesagt ich habe mir diese Schleifenprozedur wo anders kopiert (Internet) (das ist jetzt peinlich)

Ich habe jetzt gerade noch am Anfang

Dim shBlatt As Worksheet

hinzugefügt, aber auch keine Funktion.


Grüße Hias

 

Gut meine Lösung sagt also nicht zu. Ich bin dann raus.

 

Hallo Hajo_Zi,

Tut mir leid, ich habe deine Lösung nicht gesehen, erst nachdem meine Antwort versendet war.


Diese Lösung ist auf jeden Fall ein Ansatz, ich möchte aber (wenn das ganze funktioniert), die Option einbauen, die alle Leisten wieder einschaltet.


Viele Grüße Hias

 

mit der Variante

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
End Sub


würde ich mich aber auch zufrieden geben.



Wichtiger wäre es aber, das Menüband nur in diesem einen Workbook auszuschalten (Wenn ich das Workbook speichere und schließe, ein anderes öffne dann ist das Menüband ebenfalls weg)

Grüße
Hias

 

Hallo!

Du musst die Blätter in diesem Fall aktivieren, nur dann können die Überschriften deaktiviert werden. Das folgende Makro blendet die Zeilen- und Spaltenüberschriften im Wechsel ein und aus.

Gruß, René

 

Hallo Renè,

super, das ist genau was noch gefehlt hat!

Vielen Dank dafür!

Grüße Hias