Como guardar datos con una macro a una hoja de excel protegida
Alguien que me pueda ayudar a dar una instrucción a una macro en la que la base de datos esta protegida y al correr el código marca error 1004
Este es el código
Sub GuardarDatosANTICIPO()
Worksheets( BASEDEDATOSDEPEDIDO ).Activate
Range( A2 ).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 137) = FECHAANTICIPO
ActiveCell.Offset(0, 0) = PEDIDO
ActiveCell.Offset(0, 34) = ANTICIPO
End Sub
1 respuesta
Entiendo que si está protegida tendrás que desprotegerla mediante código y volverla a proteger, sería algo así:
(Te he marcado en negrita las líneas nuevas)
Sub GuardarDatosANTICIPO()
Worksheets("BASEDEDATOSDEPEDIDO").Activate
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
activesheet.unprotect password:="contraseña"
ActiveCell.Offset(0, 137) = FECHAANTICIPO
ActiveCell.Offset(0, 0) = PEDIDO
ActiveCell.Offset(0, 34) = ANTICIPO
activesheet.protect password:="contraseña"
End Sub
