защита от копирования удаления xls файла

kooleer · 25 мар 2011, 09:07

Привет всем.
Нужна помощь.Если кто знает, подскажите плз возможно ли с помощью VBA, ну или нет поставить защиту на xls файл,чтобы никто кроме допустим меня не мог этот файл удалить,копировать, только пользоваться этим файлом.Желательно хотелось бы чтоб был пароль, после ввода которого можно было бы делать с файлом приведённое выше.
Заранее огромное спасибо всем, кто откликнется.

SAS888 · 25 мар 2011, 10:57

Вопрос не в тему. Это вопрос не по "MS Office и VB(A)", а по Windows.

kooleer · 25 мар 2011, 12:00

Ивиняюсь, что не там открыл тему, просто думал, что можно написать код на VBA для книги для выше изложенного.

kooleer · 25 мар 2011, 12:24

Возникла другая небольшая просьба.
Может тогда возможно с помощью VBA прописать код для этой книги, чтобы отключить функцию Сохранить и Сохранить как???
Спасиб.

SAS888 · 27 мар 2011, 08:48

Возможно, например, если вставить в модуль "Эта книга" код:

Код: Выделить всё

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" первого листа пусто, то сохранение не возможно.
Придумайте наиболее подходящее для Вас условие.