SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно вставить в модуль "Эта Книга" следующий код:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MyPass As String
Dim Password As String
MyPass = "qwerty" 'Строка с паролем для сохранения
Password = InputBox("Пароль?", "Сохранение")
If MyPass <> Password Then ThisWorkbook.Close savechanges:=False
End Sub
При попытке сохранения будет запрошен пароль. Это сделано для того, чтобы была возможность самому сохранить изменения в файле. (иначе невозможно сохранить файл с этим кодом). При неверно введенном пароле файл закрывается без сохранения. При закрытии файла запрос на сохранение не выводится.
И еще: необходимо VBA Project тоже защитить паролем, чтобы User не смог внести изменений в сам код VBA. Так же необходимо запретить копирование файла по сети. (если это надо)
|
