lcTable = "C:\VFP\MiTabla.DBF"
IF _Exclusive(lcTable)
   USE (lcTable) EXCLUSIVE
ELSE
   MESSAGEBOX(lcTable "is in use.")
ENDIF

*--------------------------------------------------
* FUNCTION _Exclusive(tcTabla)
*--------------------------------------------------
* Verifica si una tabla esta abierta en  EXCLUSIVO
* USO: _Exclusive("C:\VFP\MiTabla.DBF")
* PARAMETRO:
*    tcTabla = Ruta completa del archivo .DBF
* RETORNO: .T. si se puede abrir en exclusivo
*--------------------------------------------------
FUNCTION _Exclusive(tcTabla)
  LOCAL lnHandle, llRet
  lnHandle = FOPEN(tcTabla)
  IF lnHandle = -1
    llRet = .F.
  ELSE
    llRet = .T.
    =FCLOSE(lnHandle)
  ENDIF
  RETURN llRet
ENDFUNC
---------------------------------------------------