Klicken Sie rechts auf das Blatt-Registerkarten deaktiviert in Excel

Ich habe diesen vba code in das Modul "DieseArbeitsmappe" zu deaktivieren Sie das Rechtsklick-Menü in einer Excel-Arbeitsmappe.

Private Sub Workbook_Activate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = False
   End With
End Sub

Private Sub Workbook_Deactivate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = True
   End With
End Sub

Funktioniert wie ein Charme.

Problem ist, ich kann nicht auf dem Menü der rechten Maustaste auf Registerkarten in einer Arbeitsmappe jetzt.
Den zweiten Teil des Codes soll, um es wieder einzuschalten, ging ich davon? Doch es muss nicht.

Selbst wenn ich den code entfernen ganz, ohne Arbeitsmappe, nicht auch ein neues, hat ein Menü wenn ich rechts-Klick auf eine der Registerkarten.

Gibt es einen Allgemeinen vba-codesnippet, dass "resets" excel vielleicht? Oder ein Allgemeines "aktivieren Sie alle Menüs" Ding?

REVISION:
Dieser code hier gepostet nicht deaktivieren Sie das Rechtsklick-Menü, entfernt es die option "löschen" aus das Menü.

  • Bei mir tritt das gleiche Verhalten hier. Ich habe die Kontext-Menüs zurück nach erfolgreich lief Enabled = True für jeden einzelnen Application.CommandBars wie @Kablam angegeben, aber Sie sind wieder Weg, nach dem schließen der Arbeitsmappe. Also, ich Frage mich, wenn das problem wirklich gelöst werden, mit wenigen Zeilen VBA-code. Irgendwelche Vorschläge?
InformationsquelleAutor Kablam | 2009-01-30
  1. 4

    omg

    Application.CommandBars("Ply").Enabled = True

    -.-

    Gestartet googeln verschiedenen keywords nach dem letzten Bearbeiten und BAM.

    • Ok, gut für Sie und uns alle! Nun, markieren Sie es als die richtige Antwort, bitte.
    InformationsquelleAutor Kablam
  2. 2

    Wieder zu spät wie immer, aber in Angriff genommen mit dem gleichen problem heute. Hier ist die Lösung, um Ihre rechts-Klick-Funktionalität zurück:

    Option Explicit
'
Sub tester()
    '
    Dim cBar As CommandBar
    '
    For Each cBar In CommandBars
        Debug.Print cBar.Name
        If (cBar.Type = msoBarTypePopup) Then cBar.Enabled = True
    Next
End Sub
    • Dieses makro den Tag gerettet für mich. Jetzt brauche ich nur, um herauszufinden, was gestohlen das rechts-Klick-Funktion in den ersten Platz!
    • Die letzten paar Tage bin ich nicht in der Lage, Rechtsklick auf Blatt-Reiter in Excel, und wählen Sie verschieben oder kopieren. Das rechts-Klick-Menü nicht kommen. Es sieht aus wie könnte es ein VBA-Problem, wie MS-support hat Hilfe um dieses Problem zu beheben, indem Sie einige script im VBA-panel, aber jetzt ist es wieder nach einem Neustart des Systems. Wie Sie diese anwenden? (sorry für mein VBA-Analphabetismus )
    InformationsquelleAutor Mikael Katajamäki
  3. 0

    Beachten Sie auch, dass die unten auch vorhanden. Einige makro von der Arbeit hatte Sie alle deaktiviert, in meinem Excel.

    Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Row").Enabled = True
Application.CommandBars("Column").Enabled = True
    • Herzlich willkommen auf Stack Overflow. Danke für deinen Beitrag, aber dies nicht wirklich die Frage beantworten. Sie finden Anregungen zum basteln gute Antworten, die man der Hilfe-Seite Beantworten.
    InformationsquelleAutor Marxcr
Schreibe einen Kommentar