Una macro para limpiar celdas bloqueadas

Que tal buen día quiero de su ayuda para poder modificar esta macro, es para limpiar celdas pero estas celdas están bloqueadas, quiero que se desbloqueen se limpien las celdas y se vuelvan a bloquear, como les comente al principio tengo un código pero me da error en la segunda línea si ustedes me apoyan con otro código que mejor.

Sub Limpiar_Celdas_Almacen()
h1.Unprotect "ALMS-036"
Range("B10:E29,P10:Q29,I11:J11,I13:J13,I15:J15,I17:J17,I11:J11,I11:J11,I11:J11,I11:J11,I11:J11,I11:J11"). _
FormulaR1C1 = ""
h1.Protect "ALMS-036"
End Sub
 

1 respuesta

Respuesta
-1

Prueba este código y modifica el rango en la variable hoj

Sub celdasdesproteger()
ActiveSheet. Unprotect
Beep
Dim Estilo, Mensaje, Título, Respuesta
Mensaje = "Realmente deseas borrar todos los datos"
Título = "¡¡ALERTA!!"
Estilo = vbYesNo + vbCritical + vbDefaultButton1
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
    Dim hoj As Range
    Set hoj = Range("A1:Z6536")
    For Each celda In hoj
    If celda.Locked = False Then celda.Clear
Next
End If
ActiveSheet.Protect
End Sub

no me borra la información.

Cambia esta sentencia

 If celda.Locked = False Then celda.Clear

por esta:

If celda.Locked = False Then celda.Clear: celda.Locked = False

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas