Clever-Excel-Forum

Hallo Leute,

mir ist die Blatt ein/-ausblenden Funktion abhanden gekommen.
Wenn ich eine neue Excel Arbeitsmappe öffne und mit Rechtsklick auf ein Blatt gehe öffnet sich das Dialogfenster nicht. Also es passiert überhaupt nichts.

Eigentlich habe ich nichts umgestellt. Kennt jemand diesen Fehler und kann mir helfen?

Der normale Rechtsklick in den Feldern funktioniert einwandfrei. Und mit Doppelklick kann ich die Blätter auch umbenennen. Nur der Rechtsklick funktioniert nicht.
Sowohl bei bestehenden Arbeitsmappen, als auch bei welchen, die ich neu erstelle.

Hallo
versuchs mal mit diesem Code:

Sub blatt_rechtemaustaste()
With Application.CommandBars("Ply")
.Reset
.Enabled = True
End With
End Sub

Gruss

Hat funktioniert - vielen, vielen Dank :)

Ich hatte vor kurzem eine externe Arbeitsmappe geöffnet, bei der einiges ausgeblendet und gesperrt war. ich schätze mal, dass diese Datei den Fehler verursacht hat.

Hallo,

hier noch weitere, zum ein- und ausblenden.
Die Makros haben eine Doppelfunktion, ein, oder aus, je nach Zustand vor dem Makrostart.
Zeile / Spalte, bei einen Rechtsklick auf die Zeilen-, oder Spaltenbeschriftungen Links und Oben.

Code:
'

' Rechtsklick- Kontextmenü- Blattregister EIN/AUS

'

Public Sub Kontext_Menue_Blattregister_Maus_EIN_AUS()

   Application.CommandBars("Ply").Enabled = IIf(Application.CommandBars("Ply").Enabled = True, False, True)

End Sub

'

' Rechtsklick- Kontextmenü- Tabelle EIN/AUS

'

Public Sub Kontext_Menue_Tabelle_Rechte_Maus_EIN_AUS()

    Application.CommandBars("Cell").Enabled = IIf(Application.CommandBars("Cell").Enabled = True, False, True)

End Sub

'

' Rechtsklick- Kontextmenü- Zeilen- Angabe EIN/AUS.

'

Public Sub Kontext_Menue_Zeile_Rechte_Maus_EIN_AUS()

    Application.CommandBars("Row").Enabled = IIf(Application.CommandBars("Row").Enabled = True, False, True)

End Sub

'

' Rechtsklick- Kontextmenü- Spalten- Angabe EIN/AUS.

'

Public Sub Kontext_Menue_Spalte_Rechte_Maus_EIN_AUS()

    Application.CommandBars("Column").Enabled = IIf(Application.CommandBars("Column").Enabled = True, False, True)

End Sub

'

' Alle Menüleisten Ein/Ausblenden

'

Sub RibbonEinAusblenden()

    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""" & ", " & IIf(einAus, "True", "False") & ")"

    einAus = Not einAus

End Sub

DieMarie

gbw-99

DieMarie

hddiesel