BruninhuBru

Pessoal, A parte em negrito do código abaixo está vermelha no meu computador e a macro não está rodando em meu computador. Estou usando o Pacote Office 2003 em um Win XP. Alguém sabe o que há de errado? Obrigado! #If VBA7 And Win64 Then 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, nSize As Long) As Long #Else 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, nSize As Long) As Long #End If

Perfeito! Muito obrigado pela ajuda! Abs

Obrigado pela resposta ao meu tópico! Sou novo em programção e queria tirar um dúvida sobre o código que você me passou, me desculpe pela incoveniência. Esse código estará na planilha de nome 123, quando um usuário de matrícula funcional 123 tentar abri-la ele irá conseguir visualizar e trabalhar com ela normalmente, agora, caso seja um usuário de marícula funcional número 124 nã terá acesso a esta planilha, mas apenas a planilha de nome igual a sua matrícula funcional, certo?

Olá pessoal! Sou novo no forúm, preciso da ajuda de vocês. Por favor, me auxiliem, preciso disso urgente. Estou fazendo um modelo de planilha que terá como nome a matrícula funcional do colaborador, porém, ela só pode ser aberta se a matrícula funcional do usuário que estiver logado na máquina for igual ao nome da planilha. Ex: usuário 123 só conseguirá abrir a planilha de nome "123" Se puderem me ajuder, ficarei muito grato. Grande abraço e parabéns pelo site, ele é fantástico. Abs Bruno_galindo16@yahoo.com.br