查看: 13058|回复: 48
求高手用VBA做登陆框，并且有修改密码和设置权限的功能
阅读权限20
在线时间 小时
在EXCELHOME看到有人用VBA做过一个登陆框，就是在打开EXCEL的时候弹出一个登陆框，然后选择登陆名称并且
输入密码才能打开EXCEL，不同的账号登陆后有不同的权限（相应的可以查看哪几张工作薄），并且还可以修改密码。
&&本来不知道有这个功能就算了，那天让我见识到之后我心里特别痒想自己做一个。于是我把他的宏套用到我的表里面，
就是按钮13（单击）这个宏（见附件），可是根本不行::'(& &看来是我太天真了......好吧，我也承认我只懂一点函数，VBA
只会用录制宏的功能。希望哪位朋友能帮我在附件里做出登陆框来....然后把设置权限和修改密码的功能也加进去那就完
&&当然随便占用别人的时间来帮忙完成自己的工作是不好滴...哪位朋友如果帮我完成了留下自己的邮箱，我会有礼物相赠[em07]& &一定是大家感兴趣的啦，呵呵.....
09:10 上传
点击文件名下载附件
195.56 KB, 下载次数: 425
第一个分卷
09:10 上传
点击文件名下载附件
244.14 KB, 下载次数: 343
第二个分卷
阅读权限20
在线时间 小时
另外，这个信贷管理系统是我用纯函数做的。在函数置顶区里和EXCELHOME的朋友分享过了。觉得有用的朋友可以下载拿去用，做的不好的地方欢迎大家批评。
&&附件有点大，所以是分卷传上来的。
&&另外，那个按钮13单击宏，我看了下，基本明白了意思，但是貌似这个是关联到一个单击的控件的？那那个按钮在哪找？登录EXCEL前就弹出来的登陆框这个怎么设置的啊？我感觉这个比函数难懂多了::L
阅读权限20
在线时间 小时
还有，这个会不会很麻烦？做出来要很长时间那就真是不好意思了...::$
阅读权限95
在线时间 小时
为测试方便，密码被我改成了123
11:24 上传
点击文件名下载附件
244 KB, 下载次数: 976
11:24 上传
点击文件名下载附件
244 KB, 下载次数: 814
11:24 上传
点击文件名下载附件
165.53 KB, 下载次数: 772
阅读权限95
在线时间 小时
另外，操作人员我只留到第13行
阅读权限20
在线时间 小时
非常感谢，我先看看，留个邮箱我发点有意思的东西给你咋样？不能让你白幸苦嘛=.=
阅读权限95
在线时间 小时
阅读权限20
在线时间 小时
我看了下，果然是高手。但是还有几个问题请赐教。
登陆框那里弹出的XX银行我想换成自己公司的名字应该怎么做？我看了下宏里面没有这个的内容，该在哪换呢？
权限我看明白了，这个做的非常好[em07]& &但是没有权限进入到权限设置界面的账号怎么才能修改密码呢？需要管理员账号来帮忙修改吗？如果这个做起来很麻烦就算了，也不是什么关键内容。[em01]
还有就是我登陆进去会提示错误9，下行越界.....
&&刚才吃饭去了，没及时回复:loveliness:
&&邮箱我记下了，晚上回去发给你，在我家里的电脑存着在。
[ 本帖最后由 xiaolong8624 于
12:52 编辑 ]
阅读权限20
在线时间 小时
然后我登陆后，给自己增加了全部的权限，退出后再登陆，发现进不去权限设置的那张表了....我用超链接也找不到那张表...奇怪了....要怎么做呢？
我明白了，不能给全部的权限，那个打开报表的权限不能为1，要为0.如果为1的话就进不去权限管理界面。那么这个是什么意思呢？还有就是我如果不小心在那里输入了一个1，那么我以后就再也无法登陆权限设置的界面了？
[ 本帖最后由 xiaolong8624 于
13:12 编辑 ]
阅读权限95
在线时间 小时
& & & & & & & &
原帖由 xiaolong8624 于
13:03 发表
然后我登陆后，给自己增加了全部的权限，退出后再登陆，发现进不去权限设置的那张表了....我用超链接也找不到那张表...奇怪了....要怎么做呢？
我明白了，不能给全部的权限，那个打开报表的权限不能为1，要为0.如 ...
因为你的表中没有“打开报表”这个表，现在帮你新建了一个。
修改密码我加了一个按纽，图案上与你的不太协调，你可以改一下
14:40 上传
点击文件名下载附件
244 KB, 下载次数: 939
14:40 上传
点击文件名下载附件
244 KB, 下载次数: 846
14:40 上传
点击文件名下载附件
167.64 KB, 下载次数: 787
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何破解宏密码,我有一个excel表需要破解里面宏的密码,请大虾帮忙回答怎么破解,谢谢_百度知道
如何破解宏密码,我有一个excel表需要破解里面宏的密码,请大虾帮忙回答怎么破解,谢谢
可是密码想不起来了我这是一个用excel vba写的一段代码,我要怎样才能打开有密码保护的vba,我现在想用这代码,因为当时设了密码,但现在想不起来了?请各位帮忙想想办法
提问者采纳
&quot。Private Sub VBAPassword()&#39, s20End IfMsgBox &替换加密部份机码For i = CMGs To DPBo Step 2Put #1;Excel文件（*;Exit SubElseFileCopy F&quot, &quot, DPBo + 16, ;CMG=&取得一个20十六制字串Get #1; 0 ThenPut #1.;[Host&quot.: Exit ForNextIf CMGs = 0 ThenMsgBox &quot, StNext'备份文件随便在一个表格中运行下面的代码即可; Then DPBo = i - 2;*;; &#39.。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1;提示&quot,*, 32;*;Exit SubEnd IfDim St As String * 2Dim s20 As String * 1&#39, CMGs - 2;)If Dir(Filename) = &quot.bak）;, &quot.&quot.,请重新设置;文件解密成功, &quot.GetOpenFilename(&quot，完成后打开原加密表格的.bak(要删除掉文件名中, i., s20&#39.bak&&quot.&quot.xla & *;VBA工程密码破解&quot., i.xlt&没找到相关文件;选择你要解保护的Excel文件路径Filename = Application.xls & *;;加入不配对符号If (DPBo - CMGs) Mod 2 &lt, DPBo + 1; Then CMGs = iIf GetData = &取得一个0D0A十六进制字串Get #1.xlt）, St'&gt.;请先对VBA编码设置一个保护密码.xla, 32;提示&quot.&quot, Filename & &quot, GetDataIf GetData = &; ThenMsgBox &quot
提问者评价
其他类似问题
按楼上的方法也可以，就到网上搜索，如果是excel本身的密码有很多种。如果是用vb做的就需要东些脑筋了，只有看看才可以
来自团队：
为您推荐：
其他3条回答
1.工具---宏---录制新宏---(随便起个名字)---确定
2.停止录制
3.工具---宏---宏---(找到刚才命名那个宏)--- 编辑---(将上面的代码一个不剩复制粘贴)---退出
4.工具---宏---宏---执行刚才的宏
剩下来动作就是--- 咖啡(或香烟)--- 饮完(抽完) ---- 结果出来了-- 成功! 可以进入了
如果你想下次又有藉口饮咖啡(或抽香烟), 可以不另存EXCEL文档
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Ap...
不行啊,大哥,请帮忙再想办法,不胜感谢
2003版：Office Password Remover 2.0 半分钟搞定（运行时需要在网）
这个只能破解excel表面密码,但里面vba密码不能破解啊,请大虾再帮忙想办法,谢谢
qq发给我，我破解后发给你。
大虾的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 8561|回复: 14
【挑战】防止VBA密码被破解
阅读权限30
在线时间 小时
& & & & & & & &
今天看到了一个破解VBA密码的程序——删除了VBA密码。因此产生联想，如何防止VBA密码被破解。
初步思路：既然是删除了VBA密码，那么在VBA代码中加入查找密码的代码（当然要在恰当的时机加入这些代码，如准备加密之前），则利用某个特殊事件激活这些代码，当然最好是打开VBE事件，如果找到密码为空，再激活一个自杀程序，文件自杀后，还要在后台向磁盘内写入大量体积比较小的垃圾文件，写到一定的数量以后，再把这些垃圾文件删除。如果这样的话，在想回复这个文件也回天无力了。够狠吧！
本人不懂VBA，目的只是学以致用！[em07]
[ 本帖最后由 老伙计2008 于
08:52 编辑 ]
02:03 上传
点击文件名下载附件
18.63 KB, 下载次数: 980
阅读权限95
在线时间 小时
封装是个好方法。
不过，那么好软件都被破解了，我看不让破解很难，关键是看值不值得高人们去破解。
阅读权限30
在线时间 小时
原帖由 lb_bn 于
07:49 发表
封装是个好方法。
不过，那么好软件都被破解了，我看不让破解很难，关键是看值不值得高人们去破解。
不能被破解的软件几乎不存在。但是起码要增加破解成本。
& & 既然要保护文件，那就不止一层保护。VBA密码只不过是保护的外壳，代码中肯定还有其他深层保护措施，比如读取硬盘的ID。如果VBA密码被破解了，那么破解的人肯定还需要进一步破解，也就是说完全要破解还需要时间。
& & 简单的考虑，设置检查密码是否为空，如果为空1秒钟内文件自杀，思路是否可行::(
阅读权限100
在线时间 小时
原帖由 老伙计2008 于
09:06 发表
不能被破解的软件几乎不存在。但是起码要增加破解成本。
& & 既然要保护文件，那就不止一层保护。VBA密码只不过是保护的外壳，代码中肯定还有其他深层保护措施，比如读取硬盘的ID。如果VBA密码被破解了，那么破解 ...
好像没什么用。人家只要先破掉你的VBA工程密码，然后禁用宏打开文件，就可以非常直白的看到你的程序源码了。
阅读权限30
在线时间 小时
回复 4楼 joforn 的帖子
我对VBA了解太少了::L
是不是包括：如果禁用宏文件自动关闭也是徒劳的？
阅读权限30
在线时间 小时
原帖由 老伙计2008 于
10:27 发表
我对VBA了解太少了::L
是不是包括：如果禁用宏文件自动关闭也是徒劳的？
没人响应说明：问题是显而易见的了[em07]
看来还得要学习封装::L
[ 本帖最后由 老伙计2008 于
10:54 编辑 ]
阅读权限95
在线时间 小时
MD，连window xp都能够被人搞掂，VBA加密算个球呀
当然，我还未有这个能力。。。。。。。。
阅读权限50
在线时间 小时
别费心思，只要能用二进制方式打开，你的一切努力都是白费的。
阅读权限30
在线时间 小时
原帖由 lipton 于
12:26 发表
别费心思，只要能用二进制方式打开，你的一切努力都是白费的。
我也早听说过没有2进制打不开的文件，就是说没有不能破解的，只是想增加的破解成本。
综合各位高手的建议，还是封装成DLL破解成本较高，然后另外加壳再次提高破解成本[em07] 可行？
阅读权限20
在线时间 小时
xue xi yi xia
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求2010 office excel宏VBA密码破解工具_百度知道
求2010 office excel宏VBA密码破解工具
有2010 office excel宏VBA密码破解的工具。谢谢各位大侠。因为是公司文件，前任离职加了密，必有重谢，所以。有任何问题可随时私信我，也不好把文件发出来请各位大侠帮忙，只能请把破解VBA密码的工具发给我。请将文件上传到“知道”？手头有一份资料被加密了宏需要打开调整代码
提问者采纳
非常难得的东西，我有这样的东西不好放上来，因为是对劳动者是一种侵权已经发到邮箱！
提问者评价
虽然没有解决，不过你已经很用心帮忙了。谢谢！
其他类似问题
为您推荐：
其他4条回答
VBA密码的破解百度查找找EXCEL必备工具箱，即便是试用版的该功能也是开放的。
可以发过来帮你解密。也可以自行搜索office password remover
这个是删除office文件密码的，不是删除office VBA宏密码的。
你找新版本，已经可以移除VBA密码。新版本虽然可以移除，不过破解版比较难找，我也没有，所以只能帮你提供信息。
打电话让离职人员把密码告诉你呀！
下一个 Passware Kit Enterprise 10.0 ，破解版比较好找，可以用。
密码破解工具的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁EXCEL vbaproject密码破解_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
EXCEL vbaproject密码破解
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢