[Resolvido]Verificar se o sistema está no computador permitido

Colegas boa tarde, eu tendei de varias formas , até perdi a macro, mas nenhuma funcionou.
eu quero colocar um código que o sistema antes de abrir , verificar se está no computador que eu instalei, para que niguém copiar e colar em outro pc, ou  seja , fazer cópia.

Alguém me ajuda por favor ja fiz de tudo e nada

Olá Gilliard,

Não falta exemplos no fórum, efetue uma "Busca", veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja este por exemplo:
https://www.maximoaccess.com/t1097-passwords-senhas-em-txt-ou-dll

Abraço

Olá Gilliard,

Como ficou a situação, resolveu?
Veja mais este se ajuda:
https://www.maximoaccess.com/t9349-resolvidoserial-do-hd

Ficamos aguardar o retorno.

Abraço

Eu já fiz de outra forma, coloquei uma imagem numa pasta especifica do pc e ao abrir a bd ela vai á procura da imagem, se não encontrar não abre.
De momento não tenho essa bd nem o código que utilizei comigo mas foi feito em modulo vba, se quiseres posso tentar reconstruir o código mas não de momento porque tenho muito trabalho em mãos pode ser que alguém do fórum t possa ajudar antes de mim.

rapaz ja peguei como faz a verificação , agora acontece outro tipo de problema, erro de tempo de execução 28"

Não testei mas acho que é assim:

Ok nas opções do access colocas em mostrar formulário o formulário que queres que abra quando abres a bd.

Vamos fazer por exemplo um formulário de nome "PainelPrincipal"
Guardamos também uma imagem numa pasta do computador, por exemplo "NomeImagem.jpg"
Fazemos se preferires a função para vários locais tais como Disco C: Disco D: e Pendrive assim podes fazer funcionar nos pcs que tenham 1 ou dois discos e podes abrir se utilizares provisóriamente em outro pc com a pendrive inserida na porta USB, neste caso H: se não encontrar a Pendrive H: não abre.
Atenção, convém caso coloques a imagem no disco C: e houver vários utilizadores tens que colocar o caminho para a imagem e a imagem numa pasta publica/partilhada entre todos se não só abre para o utilizador que configuras, tal como a bd também tem de estar numa pasta publica se não só consegues aceder tu, mas isso deves saber.


No formulário "PainelPrincipal", na aba de opções EVENTOS em Ao Abrir colocas:

On Error Resume Next
If Len(Dir("D:\NomeImagem.jpg")) > 0 Or Len(Dir("H:\Programas Access\NomeImagem.jpg")) > 0 Or Len(Dir("C:\Users\Utilizador\NomeImagem.jpg")) > 0 Then
Else
MsgBox "Acesso não autorizado, contacte o Administrador."
DoCmd.Quit
End If

belza , vou ver esse e te retorno

meu amigo deu certo . mas tire umas duvidas , estava  tendo problemas com essa verificação que dava tempo de execução 28 , vendo a sua, a única maneira diferente que entendi é que a sua não tem Call MsgBox.
aquela imagem que fica na barra de tarefas do computador ,tipo você abre o access você vê o ícone la em baixo no inferior do pc o ícone do Acces , ja imagem que coloquei não aparece mais.
Mas de qualquer forma ja te agradeço . so essas duvidas

Não compreendi o que queres.
Call MsgBox se vires foi substituído por MsgBox
Quanto ao resto tens de explicar melhor.

Boa tarde.

Não seria mais eficiente gravar em uma tabela ou arquivo externo (dll, txt, ini) o serial do HD, assim quando o BD for aberto em outro PC verá que o serial é outro e fechará?

É exactamente a mesma coisa, se não encontrar a imagem não abre e melhor é que se necessitares podes abrir a bd em outro pc utilizando a imagem na pen, fica tipo uma chave de ignição da bd.

Boa tarde Amigos

Funciona em todos os PCs desde que devidamente autorizado pelo administrador da SENHA de registo.

Copiar BD e colar numa pasta do seu PC.

Ao abrir pela 1ª vez vão receber a informação abaixo.




Clicar em OK


Reabra a BD ….

Vai abrir a caixa de dialogo abaixo.





Digite a senha 1234.  Pode e deve ser alterada no VBA.


A senha de Login também é 1234

Abre o Formulário Principal


Este é um Demo válido por 30 Dias  

Quando terminar os 30 dias abrirá novo Menu.



Clique na opção pertendida. A Senha é a mesma.

Faço todas as operações pelo Team Viewer para não ter que dar a senha, no formato accde e depois para accdr.


Espero a vossa ajuda para melhorar.  

BD feita no Office 2013 32 Bits

Testado aqui ( Access 2010, 32Bits ) funfando perfeitamente.

NO caso eu peguei o exemplo do nosso amigo toyebom , mas dependendo de como você iria colocar o programa  seria uma boa , tipo Eu  iria entregar o programa para um cliente de bem longe, manaus exemplo, seria uma boa já entregar o programa com o Nº de HD já no códigos, mas  para isso teria que fazer um código chamando as diretrizes do windows, ou seja ele iria procurar aonde esta gravado a numeração,"eu  não sei  como faz" eu também queria saber como faz ( se alguém souber me ajuda ) por outro lado se fosse entregar o programa para um cliente  de cidade vizinha eu iria no estabelecimento colocar a imagem de verificação(eu faço isso), pois se entregar o sistema com essa imagem de busca ou com a senha de anticópia do nosso colega Maximo VIP não iria adiantar muito , porque o cliente pode passar essa programa com essa imagem ou senha à outro pessoas ,

crysostomo

Leu tudo direitinho ?

Parece que não ….

- Digite a senha 1234.  

Pode e deve ser alterada no VBA.

- Faço todas as operações pelo Team Viewer

para não ter que dar a senha

, no formato accde e depois para accdr.

eu li colega , só estou, só não entendeu o que eu quis dizier.
Os 2 exemplos são muito útil, mas ficaria mais legal um código chamando as diretrizes do windows aonde está o numeração do hd ou outras para que o programa já seje feito com a numeração do computador.
enquanto eu não encontro eu uso o exemplo do colega ai.
Abçs ..

Assis, funciona direitinho,muito bacana!!! Mas me tire uma dúvida por favor:
Como fazer esse sistema acionar o meu? Ao ativar o acesso por 30 dias ou deixar o sistema livre, abre o formulário Menu e só tem opção de sair do BD. Queria que abrisse o meu sistema. Grata.

crysostomo


Qual senha ?

Faça o download desta mensagem

- Senha de Login ?

Tem de entrar pelo formulário " Main_Login "

Seleciona " Administrador "

Digita a Senha " 1234 "

Clica em "Entrar"

Abre o formulário "Menu"
Tem um botão para abrir o formulário "Main_Login_NovaSenha"

Não pode entrar diretamente neste formulário "Main_Login_NovaSenha", pois ao abrir já tem de estar selecionado o usuário da senha que vai ser alterada.

'-------------------------------------------------------
- Senha de Liberar ?

Tem de ser alterada diretamente no VBA

Abre o formulário "Liberar" em estrutura, clika Código VBA


Veja a imagem

crysostomo

Atenção as regras do fórum. Leia o ponto 12 no link abaixo

https://www.maximoaccess.com/t48-regras-do-forum#136

Desculpa Assis

crysostomo

Se tiver duvidas no exemplo, pergunte.

Cumprimentos

Ps - Não tem de me pedir desculpa. São as regras, e não sou o autor.

Assis, mais uma vez agradeço pelo exemplo, é perfeito, mas tem um porém: se o cliente alterar a data do sistema (Windows) ele consegue desbloquear o BD. Tem algo que possa impedir isso?

marialopes

Altere lá a data do seu Windows para  dia que entender.


Abra a BD

Selecione um utilizador, a password é 1234, e

Mostre uma imagem do formulário "Menu" aberto.

Aguardo

Veja aí por favor:

Foi isso que me pediu?

Amigos boa tarde, passei aqui , pois estou com uma nova lógica sobre isso ( criada pelo Alexandre Fim) , agora estou em estrada , mais tarde eu partilho com vocês

estamos aguardando ansiosamente sobre esse novo metodo...rs

Assim que estiver no escritório eu compartilho com vocês!

daqui a pouco vou anexar aqui , estoui atolado com 1 sistema aqui por causado comando DoCmd.GoToRecord , , acNewRec que não funciona, parou meu projeto aqui

iai conseguiu resolver

bom dia alozs , .
Rapaz estou em uma luta tremenda, muitos comando não funcionam ,,quase briguei com a microsoft rsrs.
Parei de fazer ontem em um stress, só Jesus na causa. vou ver se consigo pelo menos a metade da diagrama hoje.
Não esqueci não, mandarei o arquivo. Hoje a tarde mande um alô nesse tópico para me lembrar que eu mandarei hoje o arquivo!

Criado pelo nosso amigo Alexandre Fim

valeu crysostomo vai ser de grande ajuda em projetos futuros

Rapaz , bom dia , estou com outro parada maneira aqui melhor que essa, pegar a placa de rede.
mas só que não sei inserir ela como esta o arquivo acima

Rapaz , bom dia , estou com outro parada maneira aqui melhor que essa, pegar a placa de rede.
mas só que não sei inserir ela como esta o arquivo acima na atualização.,
vou tentar aqui e te passo, caso não conseguir faz pra nós.

existe outro meio de verificar tabela com o campo sem ser o DLookup?

Sim, com recordset.