Cómo deshabilitar Eliminar en una hoja de cálculo en VBA

Desactivación de opciones de eliminación en el que la aplicación Microsoft Office Excel utilizando Visual Basic para Aplicaciones o VBA , puede proteger los datos en hojas de cálculo que no se debe modificar. Utilice el evento " Workbook_SheetBeforeRightClick " para desactivar la opción " Eliminar" en la barra de menú. En VBA , también puede proteger la hoja de cálculo al no permitir al usuario borrar los contenidos mediante la tecla " Supr " de su teclado. Instrucciones
1

lanzamiento de Microsoft Office Excel y escriba " 1 " en " A1 ", " 2 " en " A2 ", " 3 " en " A3 ", " 4 " en " A4 " y " 5 " en " A5 ". Haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar el Editor de Visual Basic .
2

doble clic en " ThisWorkbook " en el panel Explorador de proyectos para abrir el módulo de código .

3

Copia y pega el siguiente código para desactivar "Borrar " en la hoja de trabajo :

Private Sub Workbook_SheetBeforeRightClick ( ByVal Sh As Object , ByVal Target As. Range, Cancel As Boolean )

Dim cmdBCntrl Como CommandBarControl

Dim pos As Integer

On Error Resume Next

Sh.Protect UserInterfaceOnly : = True

aplicación . . . CommandBars ( "Cell" )

pos = Controls ( " Eliminar ... ") Índice

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

. Controls ( " Eliminar ... ") . Eliminar

extremo con

On Error GoTo 0

End Sub
4

volver a Microsoft Excel , y tratar de clic derecho en cualquier celda. El menú no incluye la opción " Eliminar" . Pulse la tecla " Supr " de su teclado y que usted recibirá un mensaje que indica que la celda está protegida.