Boa noite!!

Talvez uma ideia seria...

Sub Tente()
Users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For Row = 1 To UBound(Users, 1)
.Cells(Row, 1) = Users(Row, 1)
.Cells(Row, 2) = Users(Row, 2)
Select Case Users(Row, 3)
Case 1
.Cells(Row, 3).Value = "Exclusivo"
Case 2
.Cells(Row, 3).Value = "Compartilhado"
End Select
Next
End With
End Sub

Att

Opa. Vou testar o código, mas só na segunda, porque só uso a planilha em rede no serviço.
Eu já testei vários códigos para identificar o usuário, mas não foram eficazes, pois só mostram o usuário que está nela no momento, indiferente se está no modo leitura ou trabalhando nela.

Segunda-feira eu aviso se deu certo ou não.
Obrigado

Boa noite!!

Talvez uma ideia seria...

Sub Tente()
Users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For Row = 1 To UBound(Users, 1)
.Cells(Row, 1) = Users(Row, 1)
.Cells(Row, 2) = Users(Row, 2)
Select Case Users(Row, 3)
Case 1
.Cells(Row, 3).Value = "Exclusivo"
Case 2
.Cells(Row, 3).Value = "Compartilhado"
End Select
Next
End With
End Sub

Att

Então Alexandre, não funcionou esse código.
Ele gera sim uma planilha dizendo qual o usuario.
Porém a macro só funciona com o usuário principal e se alguém que estiver no "modo leitura" tentar clicar na macro, ocorre um erro.

Boa noite!!
Talvez uma ideia seria...
Att