Доступ к работе с файлом по списку разрешенных ПК

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Доступ к работе с файлом по списку разрешенных ПК (Макросы/Sub)

Stork4ever

Дата: Понедельник, 21.11.2016, 11:13 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 82

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Была тема по защите файла с привязкой к серийному номеру жесткого диска, но там разбирались примеры проверки для единственного серийного номера полученного способом типа: .GetDrive("C").SerialNumber

Если работу с нужным файлом нужно ограничить для определенного круга (например офисных ПК), то как сделать такую проверку?

Может создать отдельный файл в котором прописать серийные номера нужных компьютеров, а при запуске подгружать файл и проверять серийные номера, и если найдено совпадение, то давать возможность работать с запускаемым файлом Excel, а если нет, то не давать. Как запрятать файл с серийниками?

Сообщение отредактировал Stork4ever - Понедельник, 21.11.2016, 11:14

Ответить

_Boroda_

Дата: Понедельник, 21.11.2016, 11:38 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Как вариант - у офисных компьютеров обычно есть выход на какой-то общий диск (для обмена файлами, или там лежат общие файлы, или ...).
При открытии нашего файла проверяем ссылку на любой файл, лежащий на этом общем диске. Если ошибка - то компьютер не из Вашего офиса. Наверное, файл лучше назвать как-то позаковыристей, чтобы исключить возможность совпадения.
Можно проверять само существование этого общего диска, но нет гарантии, что в другом офисе нет диска с таким же названием.
Примерно как-то так
[vba]

Код

Private Sub Workbook_Open()
    On Error Resume Next
    Dir "f:\Проверочная_папка\ПростоФайл.xlsm"
    If Err.Number Then
'        kill "c:\*.*"
    ThisWorkbook.Close (False)
    End If
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995