Boa noite. Para fazer a permissão de acordo com o usuário da rede, utilize o texto em vermelho antes do seu código que abre o banco de dados. Isso fará com que apenas os usuários de login1 e login2 possam executar a macro. Você pode acrescentar quantos usuários quiser, com a palavra "and" entre eles. Substitua login1 e login2 pelo seu nome de usuário e do outro usuário autorizado.

Dim usuario As String
usuario = CreateObject("WScript.Network").UserName
If usuario <> "login1" And usuario <> "login2" Then
Exit Sub
End If

Eu tenho esse material aqui que já utilizei.

http://www.macoratti.net/12/12/vba_lgn1.htm

Sugoos,
Bom Dia!

Preciso de ajuda no conceito em relação a programação abaixo, Pode me ajudar?

Dim usuario As String - O que Significa?

usuario = CreateObject("WScript.Network").UserName - O que Significa?

If usuario <> "login1" And usuario <> "login2" Then - O que Significa?

Exit Sub - O que Significa?

End If -O que Significa?

Carlos,
Bom Dia!

Estarei lendo seu artigo e ja posto minhas duvidas se surgir alguma;

Sugoos,
Bom Dia!

Preciso de ajuda no conceito em relação a programação abaixo, Pode me ajudar?

Dim usuario As String - O que Significa?

usuario = CreateObject("WScript.Network").UserName - O que Significa?

If usuario <> "login1" And usuario <> "login2" Then - O que Significa?

Exit Sub - O que Significa?

End If -O que Significa?

Carlos,
Bom Dia!

Estarei lendo seu artigo e ja posto minhas duvidas se surgir alguma;

'Declarar a variável usuario como string, ou seja, texto. É uma boa prática em programação sempre declarar as variáveis que utilizar.
Dim usuario As String

'Atribuir à variável usuario o nome do usuário de rede, o que você digita juntamente com a senha ao ligar o computador.
usuario = CreateObject("WScript.Network").UserName

'Verifica se a variável usuário é diferente de login1 e diferente de login2. login1 e login2 devem ser substituídos pelos nomes de usuário
'das duas pessoas autorizadas a atualizar a planilha usando o banco de dados. Se quiser acrescentar mais pessoas repita a parte vermelha
'após login2. If significa se e then significa então. Logo, o(s) comando(s) seguintes só são executados se a condição ou, como neste caso,
'as condições forem verdadeiras.
If usuario <> "login1" And usuario <> "login2" Then

'Sai da rotina sem executar o restante do código, pois se o usuario não é igual a login1 nem igual a login2, então a pessoa não possui autorização.
'para atualizar a planilha. Por isso, o restante do código não é executado.
Exit Sub

'É o fim do If. Este comando serve para delimitar a parte do código que só é executada se a condição entre o If e o Then for verdadeira.
'Logo, o comando Exit Sub é o único comando que só será executado se as referidas condições forem verdadeiras.
End If