[Resolvido]Deleter todos os objetos do BD

Olá Grandes Mestres, estou de volta.

Meu caso é o seguinte: tenho um sistema que roda em uma repartição pública em que sua rede é toda aberta e que funcionário de certa sala pega arquivo da repartição do lado e por aí vai. Nesse troca troca, meu sistema é copiado para alheios que conseguem abrí-lo. O sistema é amarrado ao HD, tem data de expiração (tenho contrato de manutenção), tem senhas para evitar importar objetos, os principais objetos do sistema são ocultos, o shift é desativado, enfim, é aparentemente bem protegido, mas vez por outra entro em determinadas salas e vejo o mesmo sistema apenas com algumas mudanças na apresentação (as opções são as mesmas, etc.) ou é muita coincidência. Tem gente na área que está ganhando dinheiro com este sistema.
PS. Abrindo esses bancos tenho como provar que é o meu, mas para evitar maiores problemas prefiro aproveitar para aprender mais com os MESTRES e protegê-lo.
1. Quero saber como faço para evitar definitivamente a importação dos objetos, sabendo que o sistema tem senha do ACCESS e senha de acesso ao sistema e para importar pede a primeira senha e que a maioria dos objetos está oculto e em OPÇÕES está desmarcado a opção exibir objetos ocultos.
2. Como faço para, no caso de tentar abrir o sistema em outro HD ele apagar todos os objetos do sistema. Sei que com DoCmd.DeleteObject acTable, "Nome da tabela" apago determinado objeto e quero apagar todos sem ter que colocar os nomes de um por um (tem mais de mil objetos).
3. Aceito qualquer tipo de sugestão para proteger meu banco

Antecipadamente muito grato a todos

Abraços

Originalmente desenvolvido em ACCESS 2003.

Grande Criquio,

Grato pela dica. Fazer isso não muito trabalhoso ou perigoso? O sistema é muito grande, tem dezenas de tabelas relacionadas e o cliente principal tem 270 mil registros cadastrados. Qualquer besteira e a desgraça está feita.
Ainda referente ao tópico do post, como deleto todos os objetos de uma uma só vez. Pelo menos, se alheios tentarem abrir o sistema antes de copiarem seus objetos eles iriam receber um aviso que o sistema iria "suicidar-se" apagando todos os objetos. Nem eu, nem ele.

Captou?

Mais uma vez muito grato. O código do JPaulo eu já ví e incluisive não funcionou, isto é, executei e não fez nada (não parei para verificar o motivo) e é só para tabelas. E os formulários, módulos, consultas, etc.?
Contudo vou estudar sua sugestão. Tenho medo de fazer alguma besteira e as consequências serem piores. Este sistema funciona redondinho há mais de 10 anos e uma bronca agora seria fatal.
Também vou dormir pensando no problema.

Muito grato

Abraços

Valeu Grande Mestre

Você me convenceu. Vou fazer um estudo bem detalhado de todo o sistema e colocar sua idéia em prática.
Mesmo assim ainda estou necessitando (melhorar meus conhecimentos) do código para apagar todos os objetos, deixar o BD zerado.
Olhei com mais atenção o código de JPaulo, executei, não deu erro algum, mas também não fez nada. Continua todas as tabelas no mesmo local. Quero apagar também os objetos que porventura estejam ocultos (incluindo tabelas, consultas, formulários, macros, módulos e relatórios, enfim, tudo).
Fico no aguardo

Muito grato

Mais uma vez muito obrigado pelo seu interesse no meu problema.
Baixei o código de JPaulo que você indicou e acho ser exatamente o que necessito. Vou estudá-lo em todos os seus detalhes. O post da divisão do banco já havia visto rapidamente e sendo uma indicação sua irei revê-lo detalhadamente.

Muito obrigado por tudo.

Grande abraço