Tengo una tabla la cual tengo las celdas protegidas con este código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub
On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then
Application.Undo
MsgBox "No se puede borrar el contenido de esta celda" _
, vbCritical, " Borrar celda"
End If
ExitPoint:
Application.EnableEvents = True
End Sub
El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, y si le das que sí te la borre saltándose el código de arriba.
Gracias.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes.
Tengo una tabla la cual tengo las celdas protegidas con este código:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub
El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, y si le das que sí te la borre saltándose el código de arriba.
Gracias.