![3ae077fab3ef28732eab73ad8fdf00d7.png](https://i-blog.csdnimg.cn/blog_migrate/3e7fc558e8b1f18f541d50ff0a53ed70.png)
通过事先记录用户的操作环境参数,与表中或VBA代码中的参数进行比对,来达到杜绝非法用户使用自已开发的软件。
![86b083d7d46fef88fba762772ab68863.gif](https://i-blog.csdnimg.cn/blog_migrate/95569d60966b795cdd59fbf71fc97f95.gif)
不需要用户名和密码,就可以达到限制用户非法使用您开发的软件。在这里分享一个方案。
一、原理:第1步:事先在表中记录用户的操作环境参数,可以在用户的电脑上去获得(一般来说是自已的同事,因为他要用你的软件,当然会让你操作他的电脑),比如:
'获得机器名用:
Environ("COMPUTERNAME")
'获得用户名:
Environ("USERNAME")
第2步:用autoexec宏来执行启动窗体,在运行启运窗体前通过函数来判断用户是否合法:
Function CheckComputer()
'如果计算机名等于ZHANGZHI
If Environ("COMPUTERNAME") = "ZHANGZHI" Then
DoCmd.OpenForm "frmStart" 'frmStart是启动窗体
Else
MsgBox "非法使用本软件,即将退出!", vbCritical, "提示"
DoCmd.Quit '退出
End If
End Function
二、视频讲解:在《Access每天三分钟 第三季》第2课的结尾部分,有相关讲解,点击屏幕左下角的
End 推荐阅读![7c687de814aafae1bb935dec9278942a.png](https://i-blog.csdnimg.cn/blog_migrate/b98e2a98a5d360a8c4598e34950f652d.png)
![928b030d4623a3cadd3d9f23b9b5c8c3.png](https://i-blog.csdnimg.cn/blog_migrate/54ef4b36e2697ed722bfa419c2358f0f.jpeg)
![ccb3f0a6cc9657450c1c4e3dceb3d97c.png](https://i-blog.csdnimg.cn/blog_migrate/f75bd0372745c45d170f3e94813e378a.jpeg)
![8b22befa197df011fb151ccdb0f37334.png](https://i-blog.csdnimg.cn/blog_migrate/3210eec1934f9e649b30e61537a2839c.jpeg)
![c4afb96c79ec4f4c1f9185d0228a0b32.png](https://i-blog.csdnimg.cn/blog_migrate/5673e0b2236aa43d57143964f50fdb45.jpeg)
![26c84797b281ef2bcaf5fb23a21cb1f2.png](https://i-blog.csdnimg.cn/blog_migrate/9bf2bc549eb2c991ed051276eea2b409.png)