Помогите как сделать так чтобы в сети люди могли просматривать файл Excel но не могли сохранять его даже к себе на комп.
» запрет сохранение в Excel
Можно вставить в модуль "Эта Книга" следующий код:
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. Так же необходимо запретить копирование файла по сети. (если это надо)
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. Так же необходимо запретить копирование файла по сети. (если это надо)
А это вообще возможно? Если дать доступ к файлу, то его можно и скопировать, ИМХО
Страницы: 1
Предыдущая тема: HxD
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.