Страница 1 из 1
защита от копирования удаления xls файла
Добавлено: 25 мар 2011, 09:07
kooleer
Привет всем.
Нужна помощь.Если кто знает, подскажите плз возможно ли с помощью VBA, ну или нет поставить защиту на xls файл,чтобы никто кроме допустим меня не мог этот файл удалить,копировать, только пользоваться этим файлом.Желательно хотелось бы чтоб был пароль, после ввода которого можно было бы делать с файлом приведённое выше.
Заранее огромное спасибо всем, кто откликнется.
Re: защита от копирования удаления xls файла
Добавлено: 25 мар 2011, 10:57
SAS888
Вопрос не в тему. Это вопрос не по "MS Office и VB(A)", а по Windows.
Re: защита от копирования удаления xls файла
Добавлено: 25 мар 2011, 12:00
kooleer
Ивиняюсь, что не там открыл тему, просто думал, что можно написать код на VBA для книги для выше изложенного.
Re: защита от копирования удаления xls файла
Добавлено: 25 мар 2011, 12:24
kooleer
Возникла другая небольшая просьба.
Может тогда возможно с помощью VBA прописать код для этой книги, чтобы отключить функцию Сохранить и Сохранить как???
Спасиб.
Re: защита от копирования удаления xls файла
Добавлено: 27 мар 2011, 08:48
SAS888
Возможно, например, если вставить в модуль "Эта книга" код:
Код: Выделить всё
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Но, после этого, Вы не сможете сохранить книгу с этим кодом. Нужно придумать какое-нибудь условие, при котором книгу все-таки можно будет сохранять. Например:
Код: Выделить всё
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).[A1] = "" Then Cancel = True
End Sub
Т.е. если в ячейке "A1" первого листа пусто, то сохранение не возможно.
Придумайте наиболее подходящее для Вас условие.