VB6+Excel +Access编写的仓库管理、材料管理、成本核算系统代码封装为DLL

lym321

原帖由 excel333 于 2011-7-23 21:03 发表


谢谢分享，很想分享VB源码啊！

只有安装，没有卸载。EXCEL安全性被修改为低了，要通过修改HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security\Level的值改为2才可以设置宏安全性的高低。

长知识了
对楼上的
双手
致敬

望江婷

关于EXCEL安全性被修改为低，可以运行下面的宏恢复到默认设置
Private Declare Function SHSetValueDWORD Lib "shlwapi.dll" Alias "SHSetValueA" (ByVal hkey As Long, ByVal pszSubKey As String, ByVal pszValue As String, ByVal dwType As Long, pvData As Long, ByVal cbData As Long) As Long
Private Declare Function SHDeleteKey Lib "shlwapi.dll" Alias "SHDeleteKeyA" (ByVal hkey As Long, ByVal pszSubKey As String) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_DWORD = 4

Sub Macro1()
SHDeleteKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Office\11.0\Excel\Security"
End Sub

望江婷

关于使用次数限制，是为了做实验，是不是可行，所以加了这个功能，运行下面的破解文件可以继续使用
破解使用.rar (91.39 KB, 下载次数: 343)

2011-7-24 08:04 上传

点击文件名下载附件

望江婷

关于安装，这里的安装不是真正意义的安装，只是判断释放了一下vb6必须的运行库到%systemroot%\system32文件夹，除宏的安全性设置是操作了一次注册表，其他的没有修改一个注册表，所以谈不上卸载，本身就是绿色无污染的，嘿嘿

lym321

原帖由 望江婷 于 2011-7-24 07:48 发表
关于EXCEL安全性被修改为低，可以运行下面的宏恢复到默认设置
Private Declare Function SHSetValueDWORD Lib "shlwapi.dll" Alias "SHSetValueA" (ByVal hkey As Long, ByVal pszSubKey As String, ByVal pszValue ...

楼主
真是高手
佩服

现在的程序
以简单操作为主
楼主能不能
再编一段代码

使Excel 宏安全性
自由定制-----也就是随时随地，简单、自由、一键更改
(批处理文件也可、脚本文件也可)
只要在Windows操作系统下
一键就能完成的应用程序
谢谢

望江婷

使Excel 宏安全性
自由定制-----也就是随时随地，简单、自由、一键更改
个人感觉没有这个必要，你要的这个功能Excel本身就带有这个，何必再繁琐，只有在安全级别最低时才能畅通无阻的运行宏代码

lym321

原帖由 望江婷 于 2011-7-24 10:10 发表
使Excel 宏安全性
自由定制-----也就是随时随地，简单、自由、一键更改
个人感觉没有这个必要，你要的这个功能Excel本身就带有这个，何必再繁琐，只有在安全级别最低时才能畅通无阻的运行宏代码

Excel 自带
宏安全性设置
有个局限性
就是
每次打开工作薄
都要
重新设置一下

修改注册表后
就是
永恒的
当我不希望
如此操作
又
修改成默认状态
又是永恒的 (自由定制，就是这种概念)

[ 本帖最后由 lym321 于 2011-7-24 10:27 编辑 ]

excel333

原帖由 望江婷 于 2011-7-24 08:04 发表
关于使用次数限制，是为了做实验，是不是可行，所以加了这个功能，运行下面的破解文件可以继续使用
962176

原来是...\budget\cishu
楼子封做的很好，可以分享封装源码吗！

望江婷

原帖由 excel333 于 2011-7-24 10:26 发表


原来是...\budget\cishu
楼子封做的很好，可以分享封装源码吗！

对就是做了个试验，看看这个注册表好永不，源码整理完后放上

天上非云

好棒的资料啊，太感谢您了