Al intentar modificar una celda escrita pida clave

Pregunta para DANTE AMOR

Tengo una instrucción que:

Al escribir en la 3 columna se ponen fecha y hora en las dos primeras columnas

Después de escritas las filas anteriores se bloquean, pero ahora necesito que:

Al intentar borrar cualquiera de las filas ya escritas, pida una clave.

Esto es con lo que vosotros me habéis ayudado

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Range("A" & Target.Row) = Date
Range("B" & Target.Row) = Format(Now, "hh:mm")
End If
If Not Application.Intersect(Target, Range("A1:c500")) Is Nothing Then
Application.ScreenUpdating = False
Set Rango = Range("A1:c500")
ActiveSheet.Unprotect
For Each celda In Rango.Cells
celda.Select
If celda = "" Then
Selection.Locked = False
Selection.FormulaHidden = False
Else
Selection.Locked = True
Selection.FormulaHidden = False
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
End If
End Sub

0

Añade tu respuesta

Haz clic para o