Deaktivieren löschen Sie Optionen in Microsoft Office Excel -Anwendung mit Visual Basic für Applikationen oder VBA , können die Daten in Arbeitsblätter, die nicht geändert werden sollte schützen. Benutzen Sie den " Workbook_SheetBeforeRightClick " Ereignis, um die Option "Löschen" aus der Menüleiste zu deaktivieren. In VBA können Sie auch das Arbeitsblatt schützen , indem sie keine der Nutzer , keine Inhalte mit Hilfe der Taste "Entf" auf Ihrer Tastatur löschen. Anleitung
1
Starten Sie Microsoft Office Excel , und geben Sie " 1 " in " A1 ", "2 " in " A2 ", "3 " in " A3 ", " 4 " in " A4 " und "5 " in " A5 ". Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VB -Editor zu starten.
2
Doppelklicken Sie auf " ThisWorkbook " aus dem Projekt- Explorer-Fenster , um den Code -Modul zu öffnen.
3
Kopieren Sie den folgenden Code, um abzuschalten "Löschen" auf dem Arbeitsblatt :
private Sub Workbook_SheetBeforeRightClick (ByVal Sh As Object , ByVal Target As Range Cancel As Boolean)
Dim cmdBCntrl Wie CommandBarControl
Dim pos As Integer
On Error Resume Next
Sh.Protect UserInterfaceOnly : = True
Anwendung . . . CommandBars ( "Cell" )
pos = Controls ( "Löschen ... " ) Index der
Set cmdBCntrl = Controls.Add . ( Vorher: = pos , Temporary : = True)
. Controls ( "Löschen ..."). löschen
End With
On Error GoTo 0 End Sub
4
zurück zu Microsoft Excel zu wechseln, und versuchen Sie es mit der rechten Maustaste auf eine beliebige Zelle . Das Menü wird nicht die Option "Löschen" . Drücken Sie die Taste "Entf" auf Ihrer Tastatur , und Sie werden eine Meldung, dass die Zelle geschützt ist erhalten .
