如何使用environ函数来避免其他人使用我的Access DB

Question

我管理一个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=algorythm)时才有效。

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

不幸的是，我不知道如何编程，也不知道如何阻止SHIFT的使用(打开时会破坏VBA代码)，因为我是一个新手。

所以，如果你愿意的话，你能帮我解决这些巨大的问题吗。使用Environ的algorythm，2。避免在打开时使用SHIFT)。

提前谢谢。

Bruno

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

避免使用移位键-我已经回答了，请参阅此链接