当我们用Access开发一个软件完成之后,为了保护我们的劳动成果,一般有2种方式:设置VBA工程密码,编译生成mde/accde格式的仅执行文件。
而由于mdb格式已使用多年,现在网上轻易便能找到破解mdb格式的工具。而accdb格式虽然暂时没有破解工具在网上流传,但VBA本身其实已经很多年没有什么更新了,每次的新版本仅仅只是维护。因此VBA工程密码是不怎么保险的方式。那么剩下的唯一出路,就只有生成mde/accde格式的仅执行文件了。
一般我们都是通过菜单或功能区来生成。
但随着我们使用Access开发的越来越深入,就会想,每次都要点几下也挺烦的,能不能用代码自动来完成这个生成mde/accde的功能呢?
通过在VBA界面按F2打开对象浏览器,我们只找到一个 Runcommand acCmdMakeMDEFile 命令。然而很可惜,此命令是没有参数的,我们不能指定文件路径名,它本质还是和我们手动操作一样,达不到我们“自动”的需要。
拔剑四顾心茫然,敢问路在何方?路当然是有的,否则本公子半天牛逼不都白吹了!我当然不会干那种只收刀片不收红包的事情啦!
不卖关子,答案揭晓:
其实Access还有一个完全隐藏的功能可以来实现自动生成mde/accde,只不过这个功能,我们从对象浏览器,帮助文档,都是找不到它的踪迹的。
这难道就是传说中口口相传,不落文字的武林门派最高秘传心法?! 还等什么!快抢一本走罢!
'============================================================================
'函数名称: MakeMDE
'功能描述: 根据MDB/ACCDB文件,编译生成MDE/ACCDE文件。
'输入参数: MDBPathname 源MDB文件路径名。
' MDEPathname 要生成的MDE/ACCDE文件路径名。
'返回参数: 成功返回True,失败返回False。
'相关调用:
'使用注意: 这里用的是Access的隐藏功能,603这个常量值,在对象浏览器和帮助文档中是找不到的。
' 因此有可能未来的新版本Access不支持此功能,不过目前到2019都还能用。
' 另外此函数不能放在要用来生成的MDB/ACCDB文件中,必须要在另一个文件中使用。即你
' 不能把此函数放在A.mdb中,然后再调用它A.mdb生成A.mde。必须把函数放在B.mdb中,
' 调用它来生成A.mde。
'兼 容 性: Access 2003~2019
'参考资料:
'作 者: 红尘如烟
'修订记录: 2012-07-21 创建。
' 2019-03-31 添加错误处理,进行完善。
'============================================================================
Function MakeMDE(MDBPathname As String, MDEPathname As String) As Boolean
On Error GoTo ExitHere
'此常量Access本身没有,必须有这句常量声明,或者直接使用603这个值。
Const acSysCmdMakeMDE = 603
MakeMDE = False
Dim appAccess As New Access.Application
appAccess.SysCmd acSysCmdMakeMDE, MDBPathname, MDEPathname
appAccess.Quit acQuitSaveNone
MakeMDE = True
ExitHere:
Set appAccess = Nothing
Exit Function
ErrorHandler:
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
Resume ExitHere
End Function