Propriedade Document.ReadOnly (Publisher)
Retorna True se a publicação é somente leitura; Retorna False se ele é leitura/gravação. Boolean somente leitura.
Sintaxe
expressão. Readonly
Expressão Uma variável que representa um objeto Document .
Valor de retorno
Booliano
Exemplo
Este exemplo salva a publicação ativa e avisa ao usuário que o arquivo está salvo e se ele é somente leitura ou não.
Sub SaveAndStatus()
Dim bStatus As Boolean
Application.ActiveDocument.SaveAs "c:\testfile.pub"
bStatus = Application.ActiveDocument.ReadOnly
MsgBox "File Saved and Read-only Status = " & bStatus
End Sub
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.