Permitir borrar fila

[mdomfu]

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.

[Haplox]

Hace 21 horas, mdomfu dijo:

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.

¿Pero lo que quieres es cambiar todo el código para que haga lo que pides? ¿O quieres conservarlo y, aparte, hacer magia para que realice lo que pides? Porque no lo entiendo

 

Hace 21 horas, mdomfu dijo:

si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error.

Logico ¿No?

[mdomfu]

En 19/12/2019 at 17:29 , Haplox dijo:

¿Pero lo que quieres es cambiar todo el código para que haga lo que pides? ¿O quieres conservarlo y, aparte, hacer magia para que realice lo que pides? Porque no lo entiendo

 

Logico ¿No?

Sí, es lógico.

Lo que me gustaría es que esas celdas estuvieran protegidas contra el borrado (no me sirve proteger la hoja, a de ser vía VBA) pero que me permitiera borrar filas en caso de que se añadan por accidente.

Gracias.

[Haplox]

Hace 15 horas, mdomfu dijo:

pero que me permitiera borrar filas en caso de que se añadan por accidente

¿Y cómo piensas que VBA va a saber eso, digo lo del accidente? . Lo único que se me ocurre es que te pida confirmar la eliminación, y si dices sí que tengas que poner una contraseña, o algo así... Tú dirás

[mdomfu]

Porque accidente es entre-comillado. Yo sería consciente de cuando lo añado. Omitamos lo del accidente, reformulo:

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

¿Cómo hago para que Excel me permita eliminar filas teniendo el código de arriba (que evita que se borren celdas) habilitado?

Gracias.

[Haplox]

 

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
  resultado=MsgBox ("¿Realmente desea eliminar la Fila",vbYesNo, "Eliminación de Fila")
  If resultado = vbYes Then 
    GoTo ExitPoint
  else
    Application.Undo
    MsgBox "No se puede borrar el contenido de esta celda" _
    , vbCritical, " Borrar celda"
  End If
End If

ExitPoint:
Application.EnableEvents = True
End Sub

[mdomfu]

En 24/12/2019 at 8:42 , Haplox dijo:

 

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
  resultado=MsgBox ("¿Realmente desea eliminar la Fila",vbYesNo, "Eliminación de Fila")
  If resultado = vbYes Then 
    GoTo ExitPoint
  else
    Application.Undo
    MsgBox "No se puede borrar el contenido de esta celda" _
    , vbCritical, " Borrar celda"
  End If
End If

ExitPoint:
Application.EnableEvents = True
End Sub

Gracias por el código.

Pero eso solo me deja borrar el contenido de la celda, no la fila entera. La idea es poder tener el aviso de que no se puede borrar el contenido de la celda a la vez que, en el caso que sea necesario, poder borrar una fila entera sin que me sale el aviso de que no se puede borrar la fila.

[Haplox]

Me rindo...

[Jose BN]

En 3/1/2020 at 6:14 , Haplox dijo:

Me rindo...

Gran Batalla has vencido!!! Haplox

[Haplox]

Hace 1 hora, Jose BN dijo:

Gran Batalla has vencido!!! Haplox

En el fondo creo que sí

[mdomfu]

Vaya faena! Esperaré a más respuestas a ver...

Gracias.