Проблема с автозапуском (((

[DarkJoker]

Подскажите пожалуйста, как мне защитить док от изменений но что бы макросы работали?
пробовал так не вышло

Private Sub Document_Open()
    ThisDocument.Unprotect Password:="пароль"
End Sub
Private Sub Document_Close()
    ThisDocument.Protect Type:=wdAllowOnlyReading, Password:="пароль"
    ThisDocument.Save
End Sub

[Вождь]

В режиме для чтения много чего не работает в макросах. А защищенные документы как раз и открываются в режиме чтения. Вставьте выход из него:

ActiveWindow.View.ReadingLayout = False

Ваш код не разбирал.