WedX - журнал о программировании и компьютерных науках

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

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

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

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

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

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

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

Бруно

vba ms-access environ
06.02.2019

  • TBH, вам гораздо лучше ограничить доступ к нему через файловую систему. Я не сталкивался с какой-либо защитой, кроме Encrypt with Password, которую было бы непросто обойти. Другой вариант — использовать СУБД с более тонкой системой безопасности, например SQL Server Express. 07.02.2019
  • Как говорит Коминтерн, используйте шифрование. Вы можете просто полностью отключить VBA, и любая защита на основе VBA потерпит неудачу. Добавление такого кода дает ложное ощущение безопасности, что часто хуже, чем полное отсутствие безопасности. 07.02.2019

Ответы:


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. Я уже ответил, см. это ссылка

07.02.2019
Новые материалы
Объяснение документов 02: BERT
BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..
Как проанализировать работу вашего классификатора?
Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
Работа с цепями Маркова, часть 4 (Машинное обучение)
Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
Учебные заметки: создание моего первого пакета Node.js
Это мои обучающие заметки, когда я научился создавать свой самый первый пакет Node.js, распространяемый через npm. Оглавление Глоссарий I. Новый пакет 1.1 советы по инициализации..
Забудьте о Matplotlib: улучшите визуализацию данных с помощью умопомрачительных функций Seaborn!
Примечание. Эта запись в блоге предполагает базовое знакомство с Python и концепциями анализа данных. Привет, энтузиасты данных! Добро пожаловать в мой блог, где я расскажу о невероятных..
Для любых предложений по сайту: [email protected]