Saber si una hoja está protegida en VB

27/11/2005 - 00:22 por javi | Informe spam
Hola

Estoy intentando hacer que el código diferencie las hojas que están
protegidas de las que no lo están para desprotegerlas o no
automaticamente y poder hacer cosas.

He probado con

if activesheet.protection = true then .

pero no funciona

como soy un poco zoquete también probé con

if activesheet.protect = true then .

pero como ya sospechaba tampoco funciona

¿como saber entonces si una hoja esta protegida (sólo si está protegido,
ya he visto en la ayuda que puedo ver cada una de las posibilidades de
protección) para poder desprotegerla?


Desde ya muchas gracias

Javi
 

Leer las respuestas

#1 KL
27/11/2005 - 01:28 | Informe spam
Hola javi,

que tal algo asi:

Sub test()
For Each ws In ActiveWorkbook.Worksheets
With ws
If .ProtectContents Or _
.ProtectDrawingObjects Or _
.ProtectScenarios Then
MsgBox "hoja """ & .Name & """ esta protegida"
Else
MsgBox "hoja """ & .Name & """ NO esta protegida"
End If
End With
Next ws
End Sub

Saludos,
KL


"javi" wrote in message
news:
Hola

Estoy intentando hacer que el código diferencie las hojas que están
protegidas de las que no lo están para desprotegerlas o no automaticamente
y poder hacer cosas.

He probado con

if activesheet.protection = true then .

pero no funciona

como soy un poco zoquete también probé con

if activesheet.protect = true then .

pero como ya sospechaba tampoco funciona

¿como saber entonces si una hoja esta protegida (sólo si está protegido,
ya he visto en la ayuda que puedo ver cada una de las posibilidades de
protección) para poder desprotegerla?


Desde ya muchas gracias

Javi

Preguntas similares