Proteger hojas

Una forma:

Sub XXX()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Protect "clave"
Next
End Sub

Abraham

muchas gracias
calvo


"Abraham" escribió:

Una forma:

Sub XXX()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Protect "clave"
Next
End Sub

Abraham

iba a preguntarte... ¿y desprotegerlas? pero he aplicado lo de investigar y lo he hallado:
modificando el "Protect" por el "Unprotect" :-)
Añadidos dos botones y perfecto, me viene muy bien, muchas gracias.

____________________________________________________________________________________
Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
OUTLOOK con EXCHANGE news://msnews.microsoft.com/microso...s.exchange
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Abraham" escribió en el mensaje de noticias
news:

Una forma:

Sub XXX()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Protect "clave"
Next
End Sub

Abraham