Redes de Computadores (TI)

Observe o código VBA a seguir.

Option Explicit

Public WithEvents oApp _

As Word.Application

Public Sub AutoExec()

Set oApp = Me.Application

End Sub

Private Sub oApp_DocumentBeforeSave _

(ByVal Doc As Document, _

SaveAsUI As Boolean, _

Cancel As Boolean)

If Not Doc.HasPassword Then

Cancel = True

MsgBox Operação inválida., _

vbCritical + vbOKOnly, _

Erro

End If

End Sub

Se esse código for associado ao modelo Normal.dotm do

Microsoft Word, ele fará com que