Borrar el contenido de varias hojas
Juntando informacion aqui e alli, llegue a esta macro:
Sub borrartodo() Dim Resp As Byte Resp = MsgBox("Deseas borrar los datos?", _ vbQuestion + vbYesNo, "ATENCIÓN") If Resp = vbYes Then MsgBox "Se eligió continuar...", vbExclamation, "CONTINUAR" COL1.Select TravaDatos With ActiveSheet TravaDatos If .ProtectContents = True Then On Error Resume Next .UsedRange = ““ On Error GoTo 0 COL1.Select End If End With Else MsgBox "Se eligió cancelar...", vbCritical, "CANCELAR" End If End Sub
Funciona de maravilla, me borra todo el contenido de las celdas desbloqueadas.
Ahora tengo 7 hojas, necesito hacer que la macro borre el contenido de las celdas desbloqueadas de todas las hojas, no llegue a la solución hasta el momento, necesito vuestra ayuda.
1 Respuesta
Respuesta de Sebas Torres