Notifications
Clear all

Cadastro de usuário pelo numero do hd

9 Posts
3 Usuários
0 Reactions
1,793 Visualizações
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Boa tarde

Sres.

Tenho uma planilha que restringe o acesso pelo numero do hd da maquina, então funciona assim se o numero do hd estiver cadastrado a planilha abre automaticamente, caso contrario aparece uma msgbox avisando que "você não tem permissão para essa planilha", ate ai tudo a planilha esta funcionado normalmente, o problema é que para cadastrar uma nova ma´quina tenho que inserir o numero do hd dentro do vba, gostaria de saber se tem como esse cadastro ficar em uma aba do excel, assim eu poderia cadastrar mais de uma maquina e ficaria tudo em uma aba.

Segue planilha em anexo:

são duas planilhas uma pegar o numero do hd a outra é pra vc inserir o numero do hd dentro do vba.

Obs para cadastrar um novo numero ao abrir a planilha não habilitar as macros e digitar direto o numero dentro do vba duas vezes (para a planilha abrir em todas as versões 64 bits e 32bits)

 
Postado : 09/05/2016 2:23 pm
(@mprudencio)
Posts: 2749
Famed Member
 

E so fazer uma lista e usar um loop para verificar se o numero do HD esta na lista.

Algo mais ou menos assim ajuste conforme necessario

O codigo esta bem generico e nao testei mas basicamente é isso

Workbook_Open

Dim HD as string

HD = activecell.value

do while activecell.value <> ""

if activecell = hd Then

Exit sub

Else

activecell.offset(1,0).select

end if

end sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/05/2016 4:14 pm
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

E so fazer uma lista e usar um loop para verificar se o numero do HD esta na lista.

Algo mais ou menos assim ajuste conforme necessario

O codigo esta bem generico e nao testei mas basicamente é isso

Workbook_Open

Dim HD as string

HD = activecell.value

do while activecell.value <> ""

if activecell = hd Then

Exit sub

Else

activecell.offset(1,0).select

end if

end sub

Obrigado pelo retorno, tentei aqui mas não consegui adaptar o codigo.

 
Postado : 09/05/2016 4:36 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

Segue em anexo,
A lista dos hds das maquinas esta na coluna xfd
Veja se é isso que precisa..

Click em se a resposta foi util!

 
Postado : 09/05/2016 9:05 pm
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Segue em anexo,
A lista dos hds das maquinas esta na coluna xfd
Veja se é isso que precisa..

É exatamente isso mesmo, mas algo esta dando errado, coloquei o numero do HD e salvei, mas quando vou abrir novamente mesmo com o numero do HD registrado na ultima coluna, aparece a msg que não tenho permissão.

 
Postado : 10/05/2016 5:24 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Testei ela no outro computador de 32bits e rodou normalmente, sera que esse o problema? temos que colocar pra 64bits?

 
Postado : 10/05/2016 5:52 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

inserir a informação #if win64 para a função workbook open e funcionou normalmente, agora esta do jeito que preciso.

Muito obrigado a todos que ajudaram!

 
Postado : 10/05/2016 6:16 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Fiz algumas alteracoes e melhorias...

Click em se a resposta foi util!

 
Postado : 10/05/2016 7:12 pm
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Fiz algumas alteracoes e melhorias...

Ficou bem melhor, a outra que fiz a alteração deu erro e não estava funcionando, fui perceber hoje, mas baixei esse outro anexo que você fez as melhorias e funciona muito bem, obrigado mais vez meu amigo!

 
Postado : 11/05/2016 5:55 am