как использовать функцию окружающей среды, чтобы другие не использовали мою базу данных Access

Question

Я управляю базой данных Access (accdb), и она содержит некоторую информацию о моей компании, которую я не хочу, чтобы другие обращались к ней с сервера моей компании.

Я подумал использовать Environ (5) = имя_компьютера или Environ (12) = путь для получения некоторых ссылок, таких как LEN (environment (путь)).С помощью этой функции я мог бы, например, убедиться, что файл accdb работает, только если LEN (environment (путь)) / 2 + 15 = 55 (длина на сервере моей компании, деленная на 2 плюс 15 = 80/2+ 15 = 55 = алгоритм).

Итак, при открытии БД он должен запросить номер / код.Если пользователь вставит 55 и filepath = 80, он откроется.Если filepath = 100 (filepath вне сервера моей компании), необходимо запросить 100/2 + 15 = 65, чтобы открыть базу данных.

К сожалению, я не знаю, как его запрограммировать, и я не знаюкак заблокировать использование SHIFT (это нарушает код VBA при открытии), потому что я новичок.

Так что, если вам угодно, вы можете помочь мне решить эти огромные проблемы (1. algorhytm с помощью Environ, 2. избегайте использования SHIFT при открытии).

Заранее спасибо.

Бруно

Answer 1

Добавьте этот код в форму запуска.Когда форма откроется, она проверит имя пользователя и имя компьютера, и если оба совпадения откроются, форма откроется.

Private Sub Form_Open(Cancel As Integer)
    If Not (Environ("username") = "santosh" And Environ("computername") = "ABC-CAP1-093") Then
        Cancel = True
        Application.Quit
    End If
End Sub

Избегайте использования клавиши Shift - я уже ответил, посмотрите это ссылка