Propriedade Sync.WorkspaceLastChangedBy (Office)
Exibe o nome de exibição do usuário que salvou pela última vez as alterações na cópia do servidor de um documento compartilhado. Somente leitura.
Observação
A partir do Microsoft Office 2010, este objeto ou membro foi preterido e não deve ser usado.
Sintaxe
expressão. WorkspaceLastChangedBy
Expressão Uma variável que representa um objeto Sync .
Comentários
Se o documento ativo não estiver configurado para sincronização entre a cópia local e a cópia do servidor, a propriedade WorkspaceLastChangedBy gerará um erro em tempo de execução.
Exemplo
O exemplo a seguir verifica se há conflitos entre as cópias local e do servidor do documento compartilhado e relata o nome do usuário que salvou as alterações pela última vez na cópia do servidor.
Dim objSync As Office.Sync
Dim strStatus As String
Set objSync = ActiveDocument.Sync
If objSync.Status = msoSyncStatusConflict Then
strStatus = "The server copy has been changed." & vbCrLf & _
"Changes have been made by: " & _
objSync.WorkspaceLastChangedBy
MsgBox strStatus, vbInformation + vbOKOnly, "Server Copy Changed"
End If
Set objSync = Nothing
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.