¿Macro para proteger hoja? (Con opciones de bloqueo)
Quiero crear una macro que me permita utilizar las opciones de bloqueo de excel y me ponga el password
Lo que tengo es lo siguiente:
Sub actualizadatos()
'
' actualizadatos Macro
'
Sheets("Hoja1").Unprotect "micontraseña"
ActiveWorkbook.RefreshAll
Sheets("Hoja1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
¿Dónde puedo poner que se me proteja nuevamente con "micontraseña"?
Lo que tengo es lo siguiente:
Sub actualizadatos()
'
' actualizadatos Macro
'
Sheets("Hoja1").Unprotect "micontraseña"
ActiveWorkbook.RefreshAll
Sheets("Hoja1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
¿Dónde puedo poner que se me proteja nuevamente con "micontraseña"?
1 Respuesta
Respuesta de angelcrisnor
1
Creo que lo último que te faltaba es utilizar el parámetro password al proteger la hoja:
Sub actualizadatos()
Sheets("Hoja1"). Unprotect
ActiveWorkbook. RefreshAll
Sheets("Hoja1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="contraseña"
End Sub
Espero que te sirva. Si es así, recuerda por favor finalizar la pregunta para poder atender a otras personas.
Sub actualizadatos()
Sheets("Hoja1"). Unprotect
ActiveWorkbook. RefreshAll
Sheets("Hoja1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="contraseña"
End Sub
Espero que te sirva. Si es así, recuerda por favor finalizar la pregunta para poder atender a otras personas.
