Propriedade Sync.LastSyncTime (Office)
Obtém a data e a hora em que a cópia local do documento ativo foi sincronizada com a cópia do servidor pela última vez. 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. LastSyncTime
Expressão Uma variável que representa um objeto Sync .
Comentários
Use a propriedade LastSyncTime para determinar quanto tempo decorrido desde que a cópia local do documento ativo última foi sincronizada com a cópia do servidor. Verifique a propriedade Status para determinar se a cópia local e a cópia do servidor estão fora de sincronia.
Se o documento ativo não estiver configurado para sincronização entre a cópia local e a cópia do servidor, a propriedade LastSyncTime gera um erro em tempo de execução.
Exemplo
O exemplo a seguir alerta o usuário e exibe o status de sincronia caso tenha passado mais de 24 horas desde LastSyncTime.
Dim objSync As Office.Sync
Dim dtmLastSync As Date
Dim strStatus As String
Set objSync = ActiveDocument.Sync
dtmLastSync = CDate(objSync.LastSyncTime)
If DateDiff("h", dtmLastSync, Now) > 24 Then
strStatus = "Document has not been synced " & _
" within the last 24 hours." & vbCrLf & _
"Document status: " & objSync.Status
MsgBox strStatus, vbInformation + vbOKOnly, "Error Information"
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.