Excelente dica! Obrigado por compartilhar!

Abraços
Tomás

Por destino ou conhecidência, o seu codigo era o que eu estava procurando… e como eu uso o Excel x64 tive q adpatar o código mas, o que aconteceu aqui foi o seguinte, todas as “(aspas) e ‘(apostrofes) tiveram q ser substituidos, pois estavam em um padrão diferente do VBA e a string “ThisWorkbook.Close SaveChanges:=False” da SUB programRights deve vir abaixo do evento “Case Else” assim:

Sub ProgramRights()
Dim NameofUser As String
NameofUser = UserName
Select Case NameofUser
Case Is = “Bruno”
MsgBox “Planilha LIberada pra este Computador”
Case Else
MsgBox “Planilha NÃO Liberada para este Computador”
ThisWorkbook.Close SaveChanges:=False
End Select

End Sub

Caso contrário o arquivo fecha do mesmo jeito.

e para liberar basta colocar o nome do usuario (não do computador) na string Case Is = “NOME DO USUARIO”.

Mas ainda sim é muito falho, cada usuario tem uma identifição unica, uma chave no registro do tipo {A658-H545……} mas como só tenho um mes em VBA ainda não sei como acessar tal chave e compará-la.

Se alguem quiser dar um Help o Local da Chave é:

HKEY_CURRENT_USER\Identities\
Chave: Default UserID

Tomás, irei postar no forum mas como tá tarde, ou cedo, posto quando acordar!

O Codigo completo com algumas melhorias tanto x86 como x64:

Option Explicit

Private Declare PtrSafe Function GetUserName Lib “advapi32.dll” _
Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare PtrSafe Function GetComputerName Lib “kernel32″ Alias _
“GetComputerNameA” (ByVal lpBuffer As String, ByRef nSize As Long) As Long

Private Declare PtrSafe Function lOpen Lib “kernel32″ Alias “_lopen” _
(ByVal lpPathName As String, ByVal iReadWrite As Long) As Long

Private Declare PtrSafe Function lClose Lib “kernel32″ _
Alias “_lclose” (ByVal hFile As Long) As Long

Private Declare PtrSafe Function DisplaySize Lib “user32″ Alias _
“GetSystemMetrics” (ByVal nIndex As Long) As Long

Private Declare PtrSafe Function FindWindow Lib “user32″ Alias “FindWindowA” _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function GetSystemMenu Lib “user32″ _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Const SC_CLOSE As Long = &HF060
Private Const OF_SHARE_EXCLUSIVE = &H10
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Sub ComputerCheck()
Dim CompName As String
Dim UsrName As String
Dim Usuario As String

Usuario = Usuario:
CompName = ComputerName
UsrName = UserName
‘ If CompName “W7-NOT” Then
‘ MsgBox “This application does not have the right to run on this computer.”
‘ ActiveWorkbook.Close SaveChanges:=False
‘ End If
MsgBox Prompt:=CompName & vbCrLf & UsrName, Buttons:=vbOKOnly, Title:=”Nome do Computador”
End Sub
Private Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars – 1)
End If
End Function
Sub ProgramRights()
Dim NameofUser As String
NameofUser = UserName
Select Case NameofUser
Case Is = “Bruno”
MsgBox “Planilha LIberada pra este Computador”
Case Else
MsgBox “Planilha NÃO Liberada para este Computador”
ThisWorkbook.Close SaveChanges:=False
End Select

End Sub
Private Function ComputerName() As String
Dim stBuff As String * 255, lAPIResult As Long
Dim lBuffLen As Long
lBuffLen = 255
lAPIResult = GetComputerName(stBuff, lBuffLen)
If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)
End Function

O melhor lugar para esta dúvida é no nosso fórum:

http://www.tomasvasquez.com.br/forum

Nos vemos lá!
Abraços
Tomás

Private Declare Function GetUserName Lib “advapi32.dll” _
Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib “kernel32″ Alias _
“GetComputerNameA” (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Private Declare Function lOpen Lib “kernel32″ Alias “_lopen” _
(ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose Lib “kernel32″ _
Alias “_lclose” (ByVal hFile As Long) As Long
Private Declare Function DisplaySize Lib “user32″ Alias _
“GetSystemMetrics” (ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib “user32″ Alias “FindWindowA” _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib “user32″ _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Const SC_CLOSE As Long = &HF060
Private Const OF_SHARE_EXCLUSIVE = &H10
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Sub ComputerCheck()
Dim CompName As String

CompName = ComputerName
‘ If CompName “W7-NOT” Then
‘ MsgBox “This application does not have the right to run on this computer.”
‘ ActiveWorkbook.Close SaveChanges:=False
‘ End If
MsgBox Prompt:=CompName, Buttons:=vbOKOnly, Title:=”Computador Nome”
End Sub
Private Function UserName() As String
Dim sName As String * 256
Dim cChars As Long

cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars – 1)
End If
End Function

Sub ProgramRights()
Dim NameofUser As String

NameofUser = UserName
Select Case NameofUser
Case Is = “W7-NOT”
MsgBox “Planilha LIberada pra este Computador”
Case Else
MsgBox “Planilha NÃO Liberada para este Computador”
End Select
ThisWorkbook.Close SaveChanges:=False
End Sub

Private Function ComputerName() As String
Dim stBuff As String * 255, lAPIResult As Long
Dim lBuffLen As Long

lBuffLen = 255
lAPIResult = GetComputerName(stBuff, lBuffLen)
If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)
End Function

Se alguém descrobrir como fazê-la funcionar e publicar ai no blog, ficarei grato

Sempre tem um jeito, não? Apesar da maioria achar que são artimanhas para desbloquear aplicativos, para mim são mais alertas para os desenvolvedores estarem atentos a essa realidade.

Valeu a colaboração
Abraços
Tomás

http://mbfigueredo.blogspot.com/2010/11/vou-postar-aqui-uma-coisa-que-descobri.html

Muitíssimo obrigado pelo seu relato. Ele com certeza é um alívio e prova de que as aplicações VBA podem e devem ser levadas a sério. Quanto a segurança, coloco sempre dicas, comentários, posts e tópicos no fórum sobre o assunto. Confira por exemplo estes dois:

http://www.tomasvasquez.com.br/blog/microsoft-office/vba-verificando-se-o-projeto-vbaproject-esta-protegido
http://www.tomasvasquez.com.br/blog/microsoft-office/vba-excluindo-um-modulo-vba-programaticamente

São artigos que impactam diretamente em técnicas de segurança para proteger seus projetos. Com o tempo, outros serão produzidos. Se quiser colaborar, será um honra tê-lo como autor de artigos.

Parabéns pelo blog!
Abraços
Tomás

Também faço algumas planilhas em excel utilizando VBA e a proteção destas planilhas me tem dado dor de cabeça. Também já conhecia como muitos alguns programas que tiram as senhas de diversos tipos de arquivos, os mais variados, mas desconhecia que o broffice fizesse isso, apesar de os ter usado por um tempo, com intuito de teste. Então agradeço o esclarecimento.
Quero também discordar de nosso amigo que acha que fazer alguns tipos de trabalho no excel não é profissional. Quero relatar um fato que aconteceu comigo, será rápido e ilustrará bem.
Um cliente procurava um programador para criar um soft para ele executar determinada atividade, pois não existe nada parecido no mercado. Após consultar um monte de gente, que cobravam caro e pediam muito tempo para entregar o programa pronto ele decidiu fechar com o cara que prometeu entregar mais rápido, já que ele tinha uma certa pressa, quero salientar que não era o mais barato. Após vencido o prazo dado o cara entregou uma versão para teste cheia de erros e incoerências. Um colega meu conversando com ele passou meu telefone e ele entrou em contato comigo. Meu conhecimento em programação é muito pouco, então indiquei um colega programador que me tira algumas dúvidas de vez em quando, mas deixei claro que se ele quisesse algo no excel que lhe atendesse eu faria em menos de 30 dias.
Após falar com esse meu colega programador os dois me ligaram. O colegar pra dizer que o que o cara queria fazer era impossível de fazer tão rápido e não seria nada barato, o cliente pra me perguntar por quanto eu o faria. Fechei o preço com ele e entreguei o “programinha” em 20 dias para ele fazer os primeiros testes. Após algumas correções rápidas sugeridas por ele estava pronto, e a contento. Ele o utiliza até hoje e já me indicou vários outros clientes.

Voltando ao assunto principal seria muito mais interessante para todos se ao invés de você só mostrar as falhas desse umas dicas para como melhor se proteger. Fica aqui a dica e garanto que será um post bem mais visitado e comentado.

Até outra oportunidade!!!