Excel Como bloquear planilha para editar em um unico PC

[Allex66sandro]

Olá, gostaria de saber se existe algum meio por VBA para bloquear a planilha para ser editada em um único PC?

Uso método "proteger planilha", é bem eficaz, mas como tenho várias abas a editar, as vezes acabo esquecendo de colocar a senha antes de fechar. Queria saber se tem como fazer algo assim, que dê para bloquear todas as abas para que possa ser editada somente em um IP.

Desde já agradeço.

[Basole]

Veja se atende.

A rotina chama a função que identifica o ip da maquina, e compara com o ip definido, 

Se for diferente protege todas as abas

 

Sub Auto_open()
Dim sh As Worksheet

If getMyIP <> "192.168.01.10" Then
 ' * se for dif. protege todas as abas
    For Each sh In ThisWorkbook.Worksheets
        sh.Protect "1234"
    Next sh
 
End If

End Sub

Public Function getMyIP()
    Dim objWMI As Object
    Dim objQuery As Object
    Dim objQueryItem As Object
    Dim vIpAddress
        
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
    
    Set objQuery = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
        
    For Each objQueryItem In objQuery
       For Each vIpAddress In objQueryItem.ipaddress
              getMyIP = vIpAddress
            Exit For
       Next
    Next
    
End Function