shared excel workbook

[fi.or.jp.de]

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.