Poner pass mediante macro

Hola QUINTA, prueba con estas macros, si queda alguna duda me comentas,

Sub ProtegerHoja()
'
' ProtegerHoja Macro
' Macro grabada el 10/10/2005 por William Posada C. (Siem Ltda.)
'

'
ActiveSheet.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
Password:="Perro"
End Sub


Sub DesprotegerHoja()
'
' DesprotegerHoja Macro
' Macro grabada el 10/10/2005 por William Posada C. (Siem Ltda.)
'

'
ActiveSheet.Unprotect
End Sub

Chao.



"QUINTA" escribió en el mensaje news:
Tengo una hoja y la quiero proteger contra escritura, pero quiero que este se
active mediante un macro. ejemplo correr un macro que proteja la hoja con el
pass "perro", cuando se corra el macro de desactivar seguridad que pregunte
al usuario el pass.

gracias