if ActiveWorkbook.MultiUserEditing then
msgbox "... "

--
HTH...

Jim Thomlinson


"fi.or.jp.de" wrote:

Hi All,

Is there any vba code to know whether the active workbook is shared
or
not ?


like this .....
if activeworkbook is shared then
msgbox "you file is shared, remove share"
else
"my code goes here....."
end if


thanks in advance.