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
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
