MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Compartilhe

    FlavioLima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 14/02/2016

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FlavioLima em Seg 28 Nov 2016, 14:34

    Pessoal. Pesquisei e não encontrei nada.

    Ao clicar no botão entrar do formulário inicial, de login, eu preciso de um comando vba para que:

    O sistema só abra se localizar uma pasta específica (ou um arquivo dentro da pasta)
    criada por mim no pc por exemplo C:\Windows\System32\NetworkList2\Arquivo

    Eu colocaria a pasta em algum lugar do computador do usuário,
    caso não localize a pasta no caminho indicado apareça uma mensagem:
    "Este computador não tem licença de uso".

    Caso localize abra normalmente o formulário seguinte "Form1"

    Isto é só para tentar inibir que um usuário saia repassando o sistema para outras pessoas indiscriminadamente, sem ao menos dar um "obrigado" ao autor, no caso eu rsrs.

    Sei que não é a melhor nem única forma, mas queria acrescentar assim mesmo.

    Poderia ser uma pasta ou um arquivo qualquer, tipo "nomearquivo.txt"

    Agradeço qualquer ajuda. Acho que é importante para todos.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2333
    Registrado : 14/08/2013

    Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FabioPaes em Seg 28 Nov 2016, 17:55

    Amigo, existem alguns exemplo aqui pelo forum...
    Sim, existem varios...

    Como por exemplo:
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ate mesmo esse aqui completão...
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  Silvio em Seg 28 Nov 2016, 18:42

    Boa tarde...

    Apenas um pitaco...em termo de didática !!

    No primeiro formulário a ser carregado em teu sistema coloque dessa forma no evento ao carregar
    Call VerificaSeFicheiroExiste()


    Depois nesse mesmo formulário copie e cola essa função do JPaulo

    Sub VerificaSeFicheiroExiste()
    byJPaulo, maximoaccess
    Dim fso
    Dim file As String
    file = "C:\Windows\XPTO.dll" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox "("Esse programa não está autorizado a rodar nesse computador" & vbcrlf & _
    "O programa será fechado"), vbinformation, me.caption
    docmd.quit
    Else
    MsgBox " Programa autorizado a rodar nesse computador", vbinformation, me.caption
    End If
    End Sub


    Para criar o arquivo de texto XPTO.Dll basta abrir o bloco de notas e salvar como XPTO. Depois é só mudar a extensão de *.TXT para *.DLL


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    FlavioLima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 14/02/2016

    Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FlavioLima em Seg 28 Nov 2016, 19:11

    Prezado Fabio Paes

    Juro que pesquisei, mas qdo não se entende do assunto as palavras chave sao mal escolhidas as vezes, resultando em inúmeros posts...

    Obrigado pela ajuda na pesquisa, consegui montar uma solução e já ia postar aqui qdo vi a versão do Sílvio, bem mais completa que a minha modesta contribuição. Ia ficar assim:

    No botao de confirmar login e senha, evento ao clicar:

    JPaulo
    Dim fso
    Dim file As String
    file = "C:\teste.txt" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox " Licença não encontrada.", vbInformation, "Protegido por Direitos Autorais"
    Docmd.quit
    Else ...


    Prezado Sílvio

    Muito obrigado por montar a solução, ficou mais completa do que o que tinha pensado em fazer então vou utilizá-la!

    Obrigado a ambos mestres desenvolvedores!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2333
    Registrado : 14/08/2013

    Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FabioPaes em Seg 28 Nov 2016, 19:51

    Grato pelo retorno amigo! Até a próxima se Deus quiser!

    Quanto a a pesquisa, eu recomendo sempre enxugar a pesquisa colocando as palavras importantes, e realizar no Google.com.br


    Para sua duvida por exemplo:

    Verificar existencia pasta;maximoaccess <=== Ira mostrar primeiro os resultados do Maximoaccess


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  Silvio em Seg 28 Nov 2016, 22:11

    Valeu Flávio, o fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 04:52