Bloquear Uso de Planilhas Verificando o Nome do Computador

Objetivo: Demonstrar qual o nome do computador atual, pode ser usado para permissão de utilização de um arquivo Excel.

Este código VBA serve para bloquear a utilização em computadores não autorizados, por exemplo se você vendeu uma licença de uso da sua aplicação e não quer que ela seja utilizada em outros computadores, ou se somente um usuário pode utilizá-la por ser o único apto a tal.

Para incluir este código VBA você pode utilizar o exemplo do artigo Habilitando a Guia Desenvolvedor e Copiando Procedimentos VBA da internet.

'Colocar no início do módulo esta linha de código por ser uma API do Windows

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'Retorna o nome do computador
Private Function lfNomeComputador() As String
    Dim stBuff As String * 255, lAPIResult As Long
    Dim lBuffLen As Long

    lBuffLen = 255
    lAPIResult = GetComputerName(stBuff, lBuffLen)

    If lBuffLen > 0 Then lfNomeComputador = Left(stBuff, lBuffLen)
End Function

Public Sub lsRetornaNomeComputador()
    Dim CompName As String

    CompName = lfNomeComputador
    If CompName <> "Rieper" Then
       MsgBox "Este computador não tem direito de executar esta aplicação."
       ActiveWorkBook.Close SaveChanges:= False
   End If
End Sub

Abraço

Marcos Rieper