Ru-Board.club
← Вернуться в раздел «Программы»

» запрет сохранение в Excel

Автор: sanchosskor
Дата сообщения: 18.12.2006 15:58
Помогите как сделать так чтобы в сети люди могли просматривать файл Excel но не могли сохранять его даже к себе на комп.
Автор: SAS888
Дата сообщения: 02.11.2007 09:07
Можно вставить в модуль "Эта Книга" следующий код:

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. Так же необходимо запретить копирование файла по сети. (если это надо)
Автор: Juice
Дата сообщения: 15.12.2007 23:53
А это вообще возможно? Если дать доступ к файлу, то его можно и скопировать, ИМХО

Страницы: 1

Предыдущая тема: HxD


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.