Macro para saber si está abierto como "solo lectura"

01/02/2010 - 11:48 por Jon | Informe spam
Hola a todos,
me gustaría saber, cómo puedo hacer mediante una macro, para saber si el
archivo que tengo abierto está con la característica de "solo lectura". Me
sería de gran utilidad para proteger ciertas acciones que no quiero que se
ejecuten.
Muchas gracias de antemano.
Saludos,
Jon.
 

Leer las respuestas

#1 Ignacio
01/02/2010 - 17:44 | Informe spam
¡Hola, Jon!

La función GetAttr te permite obtener los atributos de un fichero.
Para saber si el archivo es de sólo lectura, o está protegido contra
escritura, debes preguntarle:
If (GetAttr(ActiveWorkbook.FullName) And vbReadOnly) = vbReadOnly Then
...sentencias a ejecutar si el archivo es de sólo lectura...
End If

¡Ojo con los paréntesis! No sobra ninguno aunque parezca que sí.
Por otra parte, el libro debe estar salvado. ActiveWorkbook.FullName
no funcionará si el archivo es nuevo y aún no ha sido grabado en una
unidad.

Espero que te sirva de algo.

Un saludo,
Ignacio.

Preguntas similares