Excel и безопасность.

[dvdai]

Здравтвуйте!

Есть файл excel, в котором есть поля, используемые как входные данные ("входные ячейки"). На основе этих данных ведется расчет в файле. И есть поля с выходными данными ("выходные ячейки").

Задача следующая: Ограничить доступ пользователей к файлу (чтобы не было возможности копировать файл, просматривать макросы и тд). Но при этом каким-то образом организовать возможность ввода данных во входные ячейки и видеть результаты выходных ячеек

Подскажите, пожалуйста, как это можно сделать?

[EducatedFool]

Запретить просматривать макросы - можно (но если пользователь ОЧЕНЬ захочет их посмотреть, то ему это всё равно удастся)

Исключить возможность копирования файла - только что разве средствами ОС (ограничение прав доступа на файл). Excel тут ни при чём - пользователь просто скопирует файл, не открывая его.

Короче, стойкость защиты во многом зависит от уровня "любознательности" пользователя.
При желании все эти защиты можно обойти.

[dvdai]

Меня интересуют любые средства - например, доступ через Access, через какие-то инструментарии средств разработки. В общем, любой способ.
Возможно, конечно, это надо было не здесь спрашивать, но все же

Спасибо за ответ!

[b00s]

юзайте Tools->Protection . Там все это можно зделать, ну кроме конечно "чтобы не было возможности копировать файл"

[cent]

Запретить просматривать макросы - можно (но если пользователь ОЧЕНЬ захочет их посмотреть, то ему это всё равно удастся)

Исключить возможность копирования файла - только что разве средствами ОС (ограничение прав доступа на файл). Excel тут ни при чём - пользователь просто скопирует файл, не открывая его.

Короче, стойкость защиты во многом зависит от уровня "любознательности" пользователя.
При желании все эти защиты можно обойти.

Согласен, средствами Excel защитить от копирования нельзя, только правами в ОС.

А вот открыв файл можно сделать ВСЕ

При желании все эти защиты можно обойти

[EducatedFool]

В принципе, задача реализуема, если уровень компьютерной грамотности пользователей невысок.

Защиту от копирования (точнее, от использования файла на другом компьютере) реализовать можно...

1) Всё работает только в том случае, если включены макросы.
Для необходимости включения макросов пользователем перед сохранением файла программно скрываем (xlSheetVeryHidden) все листы (оставляя видимым один пустой лист)
Отобразить листы сможет только макрос (доступ к макросам запаролен)

2) Делаем привязку файла к жесткому диску (3 строки кода) и к полному пути файла (1 строка кода)
Таким образом, если файл будут пытаться открыть на другом компе или из другой папки (или даже просто переименовав файл), он самоуничтожится и закроется.

Повторюсь: профессионал сможет легко обойти такую защиту, но пользователю она доставит немало хлопот...

[cent]

Я думаю в тему будет поинтересоваться о привязке именно к жесткому диску. КАК это реализуется!?
И вообще, каковы возможности VBA в привязке к железу? и как это реализуется?

[EducatedFool]

каковы возможности excel в привязке к железу?

Возможности точно такие же, как у любого другого приложения.

КАК это реализуется!?

Примерно так:

Private Sub Workbook_Open()
    Const My_Drive_C_SerialNumber = "12345678" ' сюда пишем серийный номер своего диска
    If Drive_C_SerialNumber <> My_Drive_C_SerialNumber Then
        MsgBox "Вы пытаетесь открыть файл на другом компьютере", vbCritical, "Нет доступа"
        Application.DisplayAlerts = False
        newsh = ThisWorkbook.Worksheets.Add.Name    ' создаём пустой лист
        For Each sh In ThisWorkbook.Worksheets
            If sh.Name <> newsh Then sh.Delete    ' удаляем все листы этого файла, кроме пустого
        Next
        ThisWorkbook.Save
        ThisWorkbook.Close False
    End If
End Sub

Function Drive_C_SerialNumber() As String
    Drive_C_SerialNumber = CreateObject("scripting.filesystemobject").GetDrive("c:\").SerialNumber
End Function

Это лишь пример. Но для защиты "от дурака" может хватить...

Разумеется, выводить MsgBox с сообщением перед удалением листов нельзя - нажатием Ctrl + Pause выполнение макроса легко остановить.
(в принципе, это решается путём application.EnableCancelKey=xlDisab led)

Есть ещё множество нюансов, но, в любом случае, полноценной защиты не обеспечить.
Пока ещё не существует такой программы, которую невозможно было бы взломать. Что уж говорить про защиту файла Excel...

[SStone]

К вопросу о защите файла...
Не хотел создавать новую тему - позвольте задам вопрос здесь!

Как-нибудь можно установить низкую безопастность макросов именно для данного файла средствами VBA без привязки к определенному компьютеру? Т.е. чтобы перед открытием файла Exсel не спрашивал и не отключал макросы, а сразу запускал книгу с ними?