Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen löschen verhindern

Betrifft: Zellen löschen verhindern von: Manfred
Geschrieben am: 31.08.2004 08:01:19

Hallo und guten Morgen

Ich möchte das Popup-Menue, das beim Anclicken mit der echten Maustaste auf eine Zelle kommt, so verändern, daß die Auswahl "Zellen löschen..." und "Zellen einfügen..." deaktiviert ist.
Das Löschen eines Blattes über Popup kann mit folgendem VBA-Code deaktiviert werden:

Application.CommandBars("Ply").Controls("Löschen").Enabled = False

Wie heißt das Popup-Menue für das Anclicken einer Zelle ??

  


Betrifft: AW: Zellen löschen verhindern von: Marcl
Geschrieben am: 31.08.2004 08:25:15

Moin Manfred,

hier ein kleiner Code zum abstellen und beim Verlassen, zum Ursprung zurücksetzen.

Private Sub Workbook_Open()

'   [STRG]+[V] deaktivieren:
    Application.OnKey "^v", ""

'   Menue Bearbeiten teilweise deaktivieren:
    With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
        .Controls("Einfügen").Enabled = False
    End With

'   Menue Bearbeiten teilweise deaktivieren:
    With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
        .Controls("Zellen löschen...").Enabled = False
    End With

'   Menue rechte Maustaste deaktivieren:
    Application.CommandBars("Cell").Controls("Zellen löschen...").Enabled = False
    Application.CommandBars("Cell").Controls("Zellen einfügen...").Enabled = False

End Sub



Private Sub Workbook_BeforeClose()
'(Cancel As Boolean)

'   Standardeinstellung fuer [STRG]+[X] wieder herstellen:
    Application.OnKey "^v"

'   Die Menues wieder aktivieren:
    Application.CommandBars("Worksheet Menu Bar").Reset
    Application.CommandBars("Standard").Reset

'   Menue rechte Maustaste wieder aktivieren:
    Application.CommandBars("Cell").Controls("Zellen löschen...").Enabled = True
    Application.CommandBars("Cell").Controls("Zellen einfügen...").Enabled = True

End Sub



Gruß
Marcl


  


Betrifft: AW: Zellen löschen verhindern von: Manfred
Geschrieben am: 31.08.2004 10:38:29


Danke MarcI

Es funktioniert !!!


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen löschen verhindern"