Bom dia galera do Planilhando,

Estou com dificuldades para encontrar um cód que impeça uma planilha de ser aberta em outro computador. Encontrei vários tópicos que falava sobre esse assunto como o cód da duvida do Pedro:

    Private Sub Workbook_Open()

    ' Deve ser igual ao que esta registrado no PC
    ' Pois Diferencia Maiuscula e Minuscula.

    If Environ("ComputerName") = "NOME DO SEU COMPUTADOR" Then

    MsgBox "Seja Bem Vindo"

    Else

    ActiveWorkbook.Save
    'Fecha a planilha
    ActiveWorkbook.Close
    'Fecha o Excel
    Application.Quit

    End If


    End Sub

Esse não deu certo, quando eu salvava a planilha e tentava abrir novamente no mesmo PC ela fechava automaticamente.

Acredito que tenha como colocar um cód que utiliza o IP do computador. Fuçando na Internet achei esse cód que da certo se os computadores estiverem em rede, mais a partir do momento que a planilha fosse copiada para um pen drive e colada em outro PC a mesma era aberta normalmente.

Private Sub Workbook_Open()
If Left(ThisWorkbook.FullName, 1) <> "C" Then
 MsgBox "Não encontrado a unidade C "
 ThisWorkbook.Close
End If
End Sub

Será que alguém consegue me ajudar? Desde já agradeço.