I downloaded this prg from somewhere which I run in a a macro...
CTRL O ...

***********openproj
LPARAMETERS ccProject

IF PARA()=0
ccProject= "d:\solivpdm.ora\solivpdm.pjx"
ENDIF

local llAbort, lnProjectCount, lnCount

llAbort = .f.
lnProjectCount = application.projects.count
for lnCount = 1 to lnProjectCount
if ccProject $ LOWER(application.projects.item(lnCount).name)
llAbort = .t.
endif
endfor

if !llAbort
use (ccProject)
IF ALIAS()!=""
replace all user with iif(local,"Y","N")
replace all local with .t.
use
modify project (ccProject) nowait
use (ccProject) again shared
replace all local with user=="Y"
use
ENDIF
endif
*****************************

Also if you are running a virus program disable it...
I.E. macafee, norton antivirus...