0

我管理一个 Access DB (accdb)，它包含一些关于我公司的信息，我不希望其他人从我公司的服务器上访问它。

我想使用 Environ (5)=computername 或 Environ (12)=path 来检索一些引用，例如 LEN(environ(path))。例如，使用此功能，我可以确保 accdb 文件仅在 LEN(environ(path))/2+15=55 （我公司服务器上的长度除以 2 加上 15 = 80/2 +15=55 = 算法）。

因此，在打开数据库时，它应该提示输入数字/代码。如果用户插入 55 并且文件路径 = 80，它将打开。如果filepath=100（我公司服务器的文件路径），必须提示100/2+15=65才能打开db。

不幸的是，我不知道如何对其进行编程，也不知道如何阻止使用 SHIFT（在打开时会破坏 VBA 代码），因为我是新手。

所以，如果你愿意，你能帮我解决这些大问题吗（1. algorhytm 使用 Environ，2. 避免在打开时使用 SHIFT）。

提前致谢。

布鲁诺

4

1 回答 1

0

将此代码添加到您的启动表单中。当表单打开时，它将检查用户名和计算机名，如果两者都匹配，则表单将打开。

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 键- 我已经回答了，请参阅此链接

于 2019-02-07T05:41:42.720 回答