Macro con protección de hoja da error al estar las celdas bloqueadas

Para Dante Amor, en esta macro tuya que funciona perfectamente le añadí las instrucciones para proteger y desproteger la hoja, cuando la ejecuto da error 1004 si tiene las hojas y celdas H11 protegidas, espero me puedas ayudar

Un saludo

Segusuario ( Juan )

Sub Macro()
'Por.Dante Amor
ActiveSheet.Unprotect
Set h1 = Sheets("Presupuesto_Materiales")
Set h2 = Sheets("Presupuesto_Sin_Almacen")
h1.[H11] = h1.[H11] + 1
h2.[H11] = h1.[H11]
ActiveSheet.Protect
End Sub

1 respuesta

Respuesta
1

H o l a:

Tienes que desproteger ambas hojas:

Sub Macro()
'Por.Dante Amor
    Set h1 = Sheets("Presupuesto_Materiales")
    Set h2 = Sheets("Presupuesto_Sin_Almacen")
    h1.Unprotect
    h2.Unprotect
    h1.[H11] = h1.[H11] + 1
    h2.[H11] = h1.[H11]
    H1. Protect
    H2. Protect
End Sub

Sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas