Ir ao conteúdo
  • Cadastre-se

Retornar UserName do(s) usuários ativos de planilha salva em rede.


Posts recomendados

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
Link para o comentário
Compartilhar em outros sites

A planilha é compartilhada? 

 

Tente adaptar este codigo:

Private Sub Workbook_Open2()Dim usersusers = ActiveWorkbook.UserStatusWith Workbooks.Add.Sheets(1)    For Row = 1 To UBound(users, 1)        .Cells(Row, 1).Value = users(Row, 1)        .Cells(Row, 2).Value = users(Row, 2)        Select Case users(Row, 3)            Case 1                .Cells(Row, 3).Value = "Exclusivo"            Case 2                .Cells(Row, 3).Value = "Compartilhado"        End Select    NextEnd WithEnd Sub
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...