La disattivazione di eliminare le opzioni in te applicazione di Microsoft Office Excel utilizzando Visual Basic, Applications, o VBA, in grado di proteggere i dati nei fogli di lavoro che non dovrebbero essere modificati. Utilizzare l'evento "Workbook_SheetBeforeRightClick" per disattivare l'opzione "Elimina" dalla barra dei menu. In VBA, è anche possibile proteggere il foglio di lavoro non permettendo all'utente di eliminare qualsiasi contenuto con il tasto "Elimina" sulla loro tastiera.

istruzione

1 Avviare Microsoft Office Excel e digitare "1" a "A1", "2" a "A2", "3" a "A3", "4" in "A4" e "5" in "A5". Fare clic sulla scheda "Sviluppatore", e cliccare su "Visual Basic" per avviare l'editor di VB.

2 Fare doppio clic su "ThisWorkbook" dal riquadro Gestione progetti per aprire il modulo di codice.

3 Copiare e incollare il seguente codice per disattivare "Cancella" sul foglio di lavoro:

Private Sub Workbook_SheetBeforeRightClick (ByVal Sh come oggetto, obiettivo di ByVal come gamma, Cancel come booleano)

Dim cmdBCntrl As CommandBarControl

pos fioco come Integer

On Error Resume Next

Sh.Protect UserInterfaceOnly: = TRUE

Con Application.CommandBars ( "Cell")

pos = .Controls ( "Elimina ..."). Indice

Set cmdBCntrl = .Controls.Add (Prima: = pos, Temporary: = True)

.Controls ( "Elimina ..."). Delete

End With

On Error GoTo 0

End Sub

4 Tornare a Microsoft Excel e provare pulsante destro del mouse su qualsiasi cella. Il menu non includerà l'opzione "Elimina". Premere il tasto "Elimina" sulla tastiera e si otterrà un messaggio che indica che la cella è protetta.