Pessoal, preciso de uma macro que descubra o usuário logado, e depois verifica se o arquivo esta na area de trabalho deste mesmo usuario. Eu preciso que a original sempre fique no caminho que eu quero "G:\Arquivos\Planilhas\ macro.xlsm" Exemplo:
O arquivo excel esta localizado num disco compartilhado: G:\Arquivos\Planilhas\ macro.xlsm
Ao abrir a planilha eu fiz uma macro que mostre uma janela dizendo ao usuário que copie uma planilha para sua area de trabalho
Private Sub workbook_open()
MsgBox " Atenção: Sempre deixe um cópia em sua area de trabalho!"
End Sub
Mas, mesmo assim, parece que isto nao esta sendo obedecido, e tem usuários mexendo na planilha original.
Eu ja descobri como verifico o nome do usuario logado.
Function UsuarioRede() As String
Dim GetUserN
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
UsuarioRede = GetUserN
End Function
Sub Mostra()
MsgBox UsuarioRede
End Sub
Mas agora, preciso que a macro verifique se o arquivo esta na area de trabalho dele, se não, quero que ele feche o arquivo.
Por favor, se souberem alguma maneira melhor para eu resolver este problema, não exitem em comentar.
Obrigado.