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

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.

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

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.

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

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!

Fiz algumas alteracoes e melhorias...

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!