Закрыть доступ (Сохранить и сохранить как) для шаблонов,

%3CLINGO-SUB%20id%3D%22lingo-sub-1197844%22%20slang%3D%22en-US%22%3E%D0%97%D0%B0%D0%BA%D1%80%D1%8B%D1%82%D1%8C%20%D0%B4%D0%BE%D1%81%D1%82%D1%83%D0%BF%20(%D0%A1%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B8%D1%82%D1%8C%20%D0%B8%20%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B8%D1%82%D1%8C%20%D0%BA%D0%B0%D0%BA)%20%D0%B4%D0%BB%D1%8F%20%D1%88%D0%B0%D0%B1%D0%BB%D0%BE%D0%BD%D0%BE%D0%B2%2C%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1197844%22%20slang%3D%22en-US%22%3E%3CP%3E%D0%97%D0%B0%D0%BA%D1%80%D1%8B%D1%82%D1%8C%20%D0%B4%D0%BE%D1%81%D1%82%D1%83%D0%BF%20(%D0%A1%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B8%D1%82%D1%8C%20%D0%B8%20%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B8%D1%82%D1%8C%20%D0%BA%D0%B0%D0%BA)%20%D0%B4%D0%BB%D1%8F%20%D1%88%D0%B0%D0%B1%D0%BB%D0%BE%D0%BD%D0%BE%D0%B2.%3C%2FP%3E%3CP%3E%D0%9C%D0%BE%D0%B6%D0%BD%D0%BE%20%D0%B1%D1%83%D0%B4%D0%B5%D1%82%20%D0%B7%D0%B0%D0%BA%D1%80%D1%8B%D1%82%D1%8C%20%D0%B4%D0%BE%D1%81%D1%82%D1%83%D0%BF%20%D0%BD%D0%B0%20%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5%20%D0%BD%D0%B0%20%D0%BE%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D0%BD%D1%83%D1%8E%20word%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%3F%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3E%D0%92%20%D1%8D%D1%82%D0%BE%D0%BC%20%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80%D0%B5%20%D0%B2%D0%BD%D0%B8%D0%B7%D1%83%2C%20%D0%BD%D0%BE%20%D0%B7%D0%B4%D0%B5%D1%81%D1%8C%20%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D0%B0%D0%B5%D1%82%20%D0%B3%D0%BB%D0%BE%D0%B1%D0%B0%D0%BB%D1%8C%D0%BD%D0%BE%2C%20%D1%83%20%D0%BA%D0%BE%D0%B3%D0%BE%20%D0%B5%D1%81%D1%82%D1%8C%20%D0%B5%D1%89%D0%B5%20%D0%B2%D0%B0%D1%80%D0%B8%D0%B0%D0%BD%D1%82%D1%8B%20%D0%BF%D0%B6%D0%BB.%3C%2FP%3E%3CP%3E%D0%BD%D0%B0%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80%20%D0%B2%20%D1%82%D0%B0%D0%BA%20%D0%BE%D0%BF%D0%B8%D1%81%D0%B0%D0%BD%D0%BE%3A%3C%2FP%3E%3CP%3ESub%20FileSave()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20FileSave%20%D0%9C%D0%B0%D0%BA%D1%80%D0%BE%D1%81%3CBR%20%2F%3E'%20%D0%A1%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5%20%D0%B0%D0%BA%D1%82%D0%B8%D0%B2%D0%BD%D0%BE%D0%B3%D0%BE%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%20%D0%B8%D0%BB%D0%B8%20%D1%88%D0%B0%D0%B1%D0%BB%D0%BE%D0%BD%D0%B0%3CBR%20%2F%3E'%3CBR%20%2F%3EMsgBox%20%22%D0%92%D1%8B%20%D0%BD%D0%B5%20%D0%B8%D0%BC%D0%B5%D0%B5%D1%82%D0%B5%20%D0%BF%D1%80%D0%B0%D0%B2%D0%B0%20%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D1%8F%D1%82%D1%8C%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D1%8B!%22%2C%20vbCritical%3CBR%20%2F%3EExit%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3EActiveDocument.Save%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3ESub%20FileSaveAll()%3CBR%20%2F%3E'%3CBR%20%2F%3E'%20FileSaveAll%20%D0%9C%D0%B0%D0%BA%D1%80%D0%BE%D1%81%3CBR%20%2F%3E'%20%D0%A1%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5%20%D0%B2%D1%81%D0%B5%D1%85%20%D0%BE%D1%82%D0%BA%D1%80%D1%8B%D1%82%D1%8B%D1%85%20%D1%84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2%2C%20%D0%BC%D0%B0%D0%BA%D1%80%D0%BE%D1%81%D0%BE%D0%B2%20%D0%B8%20%D1%8D%D0%BB%D0%B5%D0%BC%D0%B5%D0%BD%D1%82%D0%BE%D0%B2%20%D0%B0%D0%B2%D1%82%D0%BE%D1%82%D0%B5%D0%BA%D1%81%D1%82%D0%B0%3CBR%20%2F%3E'%3CBR%20%2F%3EMsgBox%20%22%D0%92%D1%8B%20%D0%BD%D0%B5%20%D0%B8%D0%BC%D0%B5%D0%B5%D1%82%D0%B5%20%D0%BF%D1%80%D0%B0%D0%B2%D0%B0%20%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D1%8F%D1%82%D1%8C%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D1%8B!%22%2C%20vbCritical%3CBR%20%2F%3EExit%20Sub%3CBR%20%2F%3E%3CBR%20%2F%3EDocuments.Save%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1197844%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EAdmin%20center%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Highlighted
New Contributor

Закрыть доступ (Сохранить и сохранить как) для шаблонов.

Можно будет закрыть доступ на сохранение на определенную word документ?  

В этом примере внизу, но здесь работает глобально, у кого есть еще варианты пжл.

например в так описано:

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

ActiveDocument.Save
End Sub

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

Documents.Save
End Sub

 

0 Replies