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 SubBaixe a planilha
Abraço
Marcos Rieper