macro vba excel protegido / restrito por ip

[marcomedsc]

Ola,

 

estou precisando de um exemplo / modelo de como fazer um macro VBA excel onde caso o IP FIXO da maquina do usuario nao esteja na relação de aceitos, ele nao consiga acessar a planilha!

 

Estou preciusado muito com urgencia. Grato.

[CasaDoHardware]

Se puder ser feito pelo nome da maquina pode ser feitoi por este codigo

 

Private Sub Workbook_Open()

If Environ("ComputerName") <> "Nome do Computador" Then 'Troque Nome do Computador, pelo nome da maquina onde deve ter autorização para funcionar.
MsgBox "voce Não Esta Autorizado A Abrir Esse Arquivo", vbCritical, "Acesso Negado!"
ThisWorkbook.Save
ThisWorkbook.Close
End If

End Sub

 

 

Se for uma lista é necessario usar uma rotina de repetição.