Verificar se o mdb/accdb de um banco externo está aberto - válido tambem para documentos do Word e do Excel

Em primeiro lugar, esclareço que o exemplo aqui utilizado não é 100% meu. Fiz apenas algumas adaptações em especial para adequar a arquivos do Word e do Excel.

---

Quando se trata de aplicativos Access, costumamos testar se existe o arquivo ".ldb" ou ".laccdb" associado ao aplicativo para verificar se ele está aberto. Esse processo, no entanto, pode ser falho, uma vez que se o aplicativo for fechado inesperadamente devido a algum erro ou se ele travar e tivermos que fechá-lo utilizando o gerenciador de tarefas, o ldb ou laccdb continuará existindo, mas o arquivo não está aberto.

Por esse método aqui apresentado, será testado o banco de dados mdb ou accdb e não o ldb ou laccdb.

Alem de bancos de dados Access, o método pode ser utilizado tambem com arquivos que possam ser conectados ao Access, como documentos do Word e do Excel.

Esse exemplo está preparado para os três tipos de arquivos.

Bom dia.

Analisando os exemplo, e com o intuito de melhoramento, proponho a seguinte forma que funciona para arquivos MS-ACCESS.

Utilizando a técnica de verificar se os arquivos com extensão LDB e LACCDB estão presentes na pasta, mesmo com extensão ACCDR (RUNTIME) do arquivo analisado, podemos ainda aprimorar da seguinte maneira:

Antes, sabendo que o arquivo LDB/LACCDB podem permanecer na pasta quando o aplicativo sofrer uma parada inesperada, considere testar o arquivo.

1: Verificar se o arquivo LDB/LACCDB está presente na pasta. Se não estiver considere o mesmo fechado

2: Se o LDB/LACCDB estiver presente passamos a testa-lo da seguinte forma:

2.1: Tentar deletar o arquivo LDB/LLACCDB. Se conseguir deletar presume-se que o arquivo analisado está fechado e sofreu uma parada inesperada e,  portanto = fechado

2.2: Tentar deletar o arquivo LDB/LLACCDB. Se ocorrer o erro 70 (Err.Number= 70) significa que o arquivo analisado está em uso. Portanto = Aberto. Nesse caso tratamos o erro 70 como erro esperado.

Para exemplificar o descrito acima utilize o anexo e chame a função da seguinte forma, passando o caminho do arquivo que deseja analisar:

MsgBox Fnc_Verificar_Uso_PathMSAccess(Informe aqui o caminho completo (caminho + nome do arquivo) desejado)