advise if active workbook is read only

[EXCELMACROS]

Hello guys,

I have more than one user using the same SS, I want to begin my macro with a
condition,

if ActiveWorkbook is readonly then
msgbox("abc")
exit sub
else
.... my macro
end if

Thank you in advance,

 

[EXCELMACROS]

found it on

http://support.microsoft.com/default.aspx/kb/153058

thanks,