Pensando na dificuldade que tinha para gerenciar as licenças de softwares de um empresa, resolvi dedicar alguns dias para desenvolver uma ferramenta, no Excel, utilizando VBA e formulários.
Compartilho com os colegas o gerenciador para que me ajudem a continuar desenvolvendo este pequeno projeto que pode ser de grande ajuda.
Características:
- Acesso realizado com criptografia
- Nível de permissão definido por perfil de usuário (3 tipos)
- Cadastro e controle de contas de usuários
- Cadastro de licenças
- Opções adicionais para licenças: alterar licença e sua validade ou excluir
- Cadastro de Uso de licenças: Cadastra Nome de usuário e computador que utiliza a licença
- Opções adicionais do cadastro de uso: alterar usuário, computador ou local da licença e remover uso cadastrado – isso não exclui a licença
- Impressão em tela da lista de licenças com filtro por local (setor, filial…) ou tipo de licença
Tenho utilizado de forma bem simples o gerenciador, mas sei que ele tem potencial para evoluir bastante e é por isso que preciso da colaboração dos colegas para criticarem, darem sugestões, apontarem falhas e possíveis melhorias e também colaborar com o desenvolvimento da ferramenta.
Baixe o Gerenciador de Licenças clicando aqui.
Dados para Acesso
Senha de criptografia: 010203*
Altere-a conforme desejar utilizando a opção do próprio excel ( Arquivo > Proteger Pasta de Trabalho > Criptografar com senha). Esta senha deve ser utilizada inicialmente e para qualquer usuário.
Usuário: admin
Senha: senha
Perfil: Admin
Usuário: user
Senha: 1234
Perfil: Restrito
A ferramenta não foi criada com intuito de gerar retorno financeiro e, agora compartilhada, assim deve ser mantida. Utilizem, alterem, divulguem, mas mantenham o trabalho de forma colaborativa.
Grande Abraço
27 Comentários
Olá
o Arquivo esta com senha amigo?
att
hudson
Lucas,
Bom dia.
Qual é a senha do arquivo .zip?
Desculpe… do arquivo .xlsm
Bom dia, meus queridos. Desculpem pela falha, realmente acabei esquecendo de publicas os dados das contas. Segue abaixo:
1ª etapa de acesso:
Senha de criptografia: 010203*
Altere-a conforme desejar utilizando a opção do próprio excel ( Arquivo > Proteger Pasta de Trabalho > Criptografar com senha). Esta senha deve ser utilizada inicialmente e para qualquer usuário.
2ª Etapa:
Usuário: admin
Senha: senha
Perfil: Admin
Usuário: user
Senha: 1234
Perfil: Restrito
Bom dia, abri o arquivo com a senha informada, mas dá o erro abaixo antes de concluir.
Erro de compilação
Era esperado: Sub ou Function
No fundo aparece o INICIO e o cursor está na linha abaixo:
Private Declare PtrSafe Function FindWindowA Lib “USER32” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
O que pode ser isso?
Uso Excel 2007
Olá, Alexssandro.
Eu criei a ferramenta com o MSo2010 64bits. Esta linha é de compatibilidade de arquivos para sistemas 32, então talvez apenas comentá-la pode resolver o seu problema(adicionar ‘ ao início da linha), ficando assim:
‘Private Declare PtrSafe Function FindWindowA Lib “USER32? (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Clique para continuar a execução ou salve, feche e abra novamente para saber se funcionou. Manda o resultado!
Grande abraço
Muito obrigado, vai ser de grande utilidade.
Sugestão: usar a função DESLOC em Gerenciador de Nomes.
Lucas ele possui algum pré requisito além do excel? Aqui ele informa um erro: “Não foi possível carregar um objeto porque ele não está disponível nesta máquina”, aparece umas 4 vezes. Sabe o que pode ser?
Obrigado, Roger e Paulo.
Arley, só com essa informação eu não consigo identificar alguma solução, porém, imagino que o excel está indicando a falta de algum Controle Adicional que uso nos formulários, como o do calendário que é chamado de MonthView. Tenta, com o uso das funções, encontrar o ponto do erro. Grande abraço
Não consegui utilizar a planilha.. ao Inserir novas licença ocorre um monte de erro..
Olá, Fagner.
Vou te responder por e-mail para que possa me enviar mais detalhes sobre os erros e tentar te ajudar.
Grande abraço
Caro Lucas!
Baixei seu gerenciador de licencas, deu o mesmo problema que o arley, contudo, registrei mscomct2.ocx e parou o erro. so que quando vou colocar a data de validade e seleciono alguma data, dá um erro no VB campo é obrigatorio.
Grato,
Gostaria de um Inventario de equipamentos de ti em vba se possivel
Boa noite,
estou tentando acessar o arquivo porém nem abre tem algum problema?
Grata,
Boa tarde,
A aplicação da erro na minha máquina quando vou inserir a licença e tenho que preencher o campo validade.
Ele não apresenta o calendário para ser selecionada a data. E se eu digitar qualquer coisa não dá.
Poderia me auxiliar.
Obrigado.
Att.: Júnio Moreira
Olá,
Após corrigir o primeiro erro relacionado ao SO 32 bits, ocorreu um novo erro:
Erro de compilação:
‘Sub’ ou ‘Function’ não definida.
Está apontando para esta linha:
Private Sub UserForm_Initialize()
FindWindowA
Pessoal,
Quem teve erro “erro em tempo de execução 424” ao incluir uma nova licença em selecionar uma data, é preciso alterar a parte do código do form “Data”:
DE:
UserForm3.TextBox_Validade = Data.MonthView.Value
PARA:
Cadastro_Licenças.TextBox_Validade = Data.MonthView.Value
Lucas,
Não sei se é necessário corrigir isso na planilha 😉
Abraços
Bom dia,
Ele abre mas da a mensagem que alguns itens não estão disponíveis, sabe como resolver?
Bom dia,
No meu acontece como relatado pela Dayana…
Conseguiu resolver o problema Dayana?
Erro de compilação:
‘Sub’ ou ‘Function’ não definida.
Está apontando para esta linha:
Private Sub UserForm_Initialize()
FindWindowA
Obrigado
bom dia Lucas..
esta dando erro na planilha, o que pode ser?
erro em tempo de execução “9”:
subscrito fora do intervalo
Prezados bom dia.
Exite alguma versão mais atualizada do VBA?
Muito Lucas, está de parabéns pela planilha e por disponibilizar ela gratuitamente para os demais colegas.
eu mesmo irei usufruir dela, e queria saber se consigo alterar, para em vez de buscar por licença, pesquisar por produto.
abraço,
Boa tarde Lucas, o arquivo está com erro apos a inserção da senha.teria algum modo de enviar os prints com os erros?
Antes de tudo, obrigado pela doação. Perfeita planilha, tudo funciona!
Precisei cadastrar os usuários e computadores também, para criar um padrão e não correr o risco de digitações ou acentos, como João e Joao ou “ESTACAO-01” e “ESTAÇÃO-01”. Então pensei se eu poderia alterar o “TextBox” do usuário para um “ComboBox” de uma lista como a já existente, sem precisar de botão dentro do userform do início.
Agradeço novamente pela disponibilização do controle.
Att,
Denilson Guedes
ola bom dia.. trabalho como programador em linguagem visual dataflex.. gostei do seu gerenciador de licencas.. preciso de um para controlar o acesso mensal dos clientes.. tipo a casa vencimento do mes (dia cogitado pra vencer) seja preciso que o cliente entre em contato pra eu gerar uma nova senha…desde ja agradeço. meu contato: (99) 99183-8278 whatsapp
Infelizmente não consigo mais baixar o arquivo. Será que poderia atualizar o link de download?