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

¡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.