Ban on conservation and save as a Word

%3CLINGO-SUB%20id%3D%22lingo-sub-1200206%22%20slang%3D%22en-US%22%3EBan%20on%20conservation%20and%20save%20as%20a%20Word%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1200206%22%20slang%3D%22en-US%22%3E%3CP%3E%3CSPAN%3Ehelp%20me%20please%2C%26nbsp%3BWord%20document%20to%20save%20save%20and%20save%20as%2C%20for%20templates%2C%20that%20would%20not%20be%20saved%20on%20the%20computer.%20For%20example%2C%20I%E2%80%99ll%20write%20below%2C%20it%20works%20there%20but%20globally%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%3CSPAN%3E%26nbsp%3B--**********************************************************************************%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%3CSPAN%3ESub%20FileSave()''%20FileSave%20%D0%9C%D0%B0%D0%BA%D1%80%D0%BE%D1%81'%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'MsgBox%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%20vbCriticalExit%20SubActiveDocument.SaveEnd%20Sub%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%3CSPAN%3E--*******************************************************************************%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1200206%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EOffice%20365%20Administration%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1212975%22%20slang%3D%22en-US%22%3ERe%3A%20Ban%20on%20conservation%20and%20save%20as%20a%20Word%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1212975%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F567508%22%20target%3D%22_blank%22%3E%40asarysbek%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%D0%93%D0%B4%D0%B5%20%D0%B0%D0%B4%D0%BC%D0%B8%D0%BD%D1%8B%2C%20%D0%BC%D0%B0%D1%81%D1%82%D0%B5%D1%80%D0%B0%20%D1%81%D0%B2%D0%BE%D0%B5%D0%B3%D0%BE%20%D0%B4%D0%B5%D0%BB%D0%B0%2C%20%D0%BF%D0%BE%D0%BC%D0%BE%D0%B3%D0%B8%D1%82%D0%B5%20%D0%BF%D0%B6%D0%BB.%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
New Contributor

help me please, Word document to save save and save as, for templates, that would not be saved on the computer. For example, I’ll write below, it works there but globally

 --**********************************************************************************

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

ActiveDocument.Save
End Sub

--*******************************************************************************

1 Reply
Highlighted

@asarysbek 

Где админы, мастера своего дела, помогите пжл.