saintjhony

Boa tarde Basole, O que estou tentando fazer é o seguinte. Estou utilizando a macro abaixo para determinar se a plhanilha XX está aberta e gostaria de complementa-la para retornar o(s) nome(s) de usuário que estão com a planilha aberta. Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer On Error Resume Next ' Turn error checking off. filenum = FreeFile() ' Get a free file number. ' Attempt to open the file and lock it. Open filename For Input Lock Read As #filenum Close filenum ' Close the file. errnum = Err ' Save the error number that occurred. On Error GoTo 0 ' Turn error checking back on. ' Check to see which error occurred. Select Case errnum ' No error occurred. ' File is NOT already open by another user. Case 0 IsFileOpen = False ' Error number for "Permission Denied." ' File is already opened by another user. Case 70 IsFileOpen = True ' Another error occurred. Case Else Error errnum End SelectEnd Function

Boa tarde, Não estou encontrando uma solução para o meu problema. No trabalho tenho uma planilha salva em rede e preciso de uma macro que exiba o nome do ou dos usuários ativos. Se alguém puder me dar uma díca... Obrigado