上过小学
word vba 密码忘记了 怎么破解
工具：5秒WORD-EXCEL密码破解.exe1、百度“5秒WORD-EXCEL密码破解”，点击下方的连接，下载软件，软件不是很大，直接下载下来就可以了，下载下来是一个压缩包，解压该压缩包。
打开压缩包解压出来的文件夹，第二个文件就是我们的密码破解工具，双击打开工具。
2、浏览，找到我们要破解的文件，点击确定，破解就开始啦，点击移除密码。
3、弹出对话框，点击确定。
4、解密时间要看密码复杂程度，不过应该没有太变态的密码。
5、成功破解密码，并且生成了一个新的没有密码的文件。
怎样破解WORD文件的密码？
如何破解word密码？2008-02-25 13:25word数字密码破解软件下载：http://yxm02.go.nease.net/xz/zzrj/Wordpass.exe 工作繁忙难免产生意外，比如对重要的Word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。
这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。
下面我们就来看看用穷举法暴力破解Word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。
一、引言 大家都知道，Office家族跟VB有千丝万缕的联系，Microsoft Office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作Word 应用程序中的对象，用穷举测试的办法达到找回丢失密码的目的，非常简单吧！ 二、实现过程 下面来看一看程序的具体编制过程。
程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft Office组件。
打开VB，新建一个VB工程，取名Proc_Word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft Word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是Office2000，那么应该选择“Microsoft Word9.0 Object Library”）。
同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。
好了，现在可以动手编制程序了。
在刚才FrmMain窗体的左侧添加一个框架控件，并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。
在FrmMain窗体的右下侧添加两个命令按钮，在右上侧添加三个标签控件、两个文本框控件和一个微调控件，你可以参考附图来设计。
接着，将框架的Caption属性设置成“请选择需要破译的Word文档”；保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不 暴力破解 将文件列表框的Pattern属性设置成“*.DOC”，目的是只显示目录下的 Word文件；将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合Word文档密码”，将第二个标签Caption属性设置成“解密进度”，将第三个标签Caption属性设置成“请选择破译密码位数”；将第二个文本框的Text属性设置成“4”，这是缺省密码位数；将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联，BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”，表示最长密码位数和最短密码位数，将Wrap属性设置成True，将Increment属性设置成“1”，以便每单击一次加1或减1；将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”,Caption属性分别设置成“文件打开”、“系统退出”。
以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。
下面就是全部的源程序，适当的注释有助于大家理解程序。
你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。
Private Sub cmdopendoc_Click() Dim wd As New Word.Application Dim strpath As String Dim pass As String Dim J, K, Pass_long As Integer Dim Max_num, Min_num, I As Long strpath = File1.Path & ＂\＂ & File1.FileName On Error Resume Next '程序开始 Pass_long = Val(Text2.Text) Max_num = 10 ^ Val(Text2.Text) Min_num = 10 ^ (Val(Text2.Text) - 1) Flag = 0 For K = 0 To Pass_long - 1 Max_num = 10 ^ (Pass_long - K) Min_num = 10 ^ (Pass_long - (K + 1)) For J = 0 To Pass_long - 1 cmdopendoc.MousePointer = 11 For I = IIf(Pass_long - K = 1, 0, Min_num) + J To Max_num Step Pass_long Text1.Text = pass Text1.Refresh pass = String(K, ＂0＂) & I Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass) '如果解密成功，打开文档，显示密码，退出过程 If Flag 0 Then Label1.Caption = ＂文档密码＂ Label1.Refresh Text1.Text = pass wd.Visible = True cmdopendoc.MousePointer = 0 Exit Sub End If Next I Next J Next K MsgBox ＂密码位数不对，请重新输入＂ End Sub Private Sub cmdquit_Click() End End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Call cmdopendoc_Click End Sub 三、几点说明 需要说明的是，穷举法解密对系统资源的耗用是十分惊人的，在解密的过程中最好不要运行其他应用程序。
针对其巨大的资源耗用量，我在程序中采用了一个小技巧，那就是用密码位数作为循环的步长进行刺探。
也就是说如果你的密码是3位的话，那么程序将依次尝试100、103、106……997、 101、104……998、102、105……999结束，加快了查找密码的速度（东渐： 其实大家可以动手算一算，到底是快了许多，还是快了一点，还是根本没有提高速度^_^）。
该程序在Win98/NT+VB6.0环境下测试通过，笔者随便试了一个5位数密码，在PⅡ300、128MB内存的机器上，10分钟左右即可解开。
当然，...
如何破解vba工程密码
首先以下方案只针对 Word 文档和 Excel 文档的 VBA 工程密码。
打开一个 Excel 的程序实例（无论待破解的是什么文档一律打开 Excel 实例），按 Alt + F11 打开 VBE，左侧“工程资源管理器”右键新建一个模块，复制下列代码粘贴进去后定位至过程 VBA_Password_remove 按 F5 运行选择要破解的包含工程密码的文件。
Option ExplicitPrivate Sub VBA_Password_remove()Dim Filename As String, i As IntegerFilename = Application.CaptionIf InStr(Filename, ＂Excel＂) > 0 ThenFilename = openfile()ElseMsgBox ＂请在 Microsoft Office Excel Visual Basic of Application 环境下运行本程序！＂， vbExclamationExit SubEnd IfIf (Filename = ＂False＂) Then Exit SubIf Dir(Filename) = ＂＂ ThenMsgBox ＂未找到指定文件＂Exit SubElseFileCopy Filename, Filename & ＂.bak＂End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = ＂CMG=＂＂＂ Then CMGs = iIf GetData = ＂[Host＂ Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenClose #1MsgBox ＂VBA 工程未设置密码＂， vbQuestion， ＂提示＂Exit SubEnd IfDim St As String * 2Dim s20 As String * 1Get #1, CMGs - 2, StGet #1, DPBo + 16, s20For i = CMGs To DPBo Step 2Put #1, i, StNextIf (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20MsgBox ＂文件解密成功！＂， vbQuestion， ＂提示＂Close #1End SubFunction openfile()openfile = Application.GetOpenFilename(＂Excel 文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt,Word 文件（*.doc & *.dot ）,*.doc;*.dot＂， ， ＂选择破解 VBA 工程密码的文件＂）End Function
破解office文档密码的软件
第一款Office密码破解利器Advanced Office Password RecoveryAdvanced Office Password Recovery是一款针对 MS Office 系列的密码破解工具，Advanced Office Password Recovery 可破解 95~2010 版的各类 Office 文档，本软件分精简、标准、专业三个版本，而本专业版便是其中支持的格式最全、开放的特性最多的一款。
Advanced Office Password Recovery主要格式如下：Microsoft Word 文档Microsoft Excel 文档Microsoft Access 数据库Microsoft Outlook 个人存储文件Microsoft Outlook VBA 宏文件Microsoft Money 数据库Microsoft Schedule+ 文件Microsoft Backup 文件Microsoft Mail 文件Visio 文件Microsoft PowerPoint 演示Microsoft Project 文件Microsoft Pocket Excel 文件Microsoft OneNote 文件注意事项：不要把待破解的文件置于程序目录下，否则可能无法正常识别可通过language菜单随意切换语言安装后即为注册版。
笔者注：笔者已证实此软件可破解Office2003以及Office2007的各组件的文件密码，包括打开密码，写密码，VBA密码等，属于单机破解类型，需要事先设置破解方式、加密字符（对于不知道的密码类型的可先进行字典破解，如未能破解，后进行暴力破解），需要一定时间。
VBA密码的破解速度很快，其他较慢。
第二款破解Office文件密码的利器OfficePasswordRemover笔者注：该款软件需要连接网络向服务器获取破解数据，破解速度相当快，不过由于未注册不能破解VBA密码，在OfficePasswordRemover文件夹中存放了两个OfficePasswordRemover.exe，其中一个需要密码才可运行，密码为1，另外一个可直接运行。
好了，综合以上两款，无论何种类型Office文档密码都可以破解了，当然，Office2010除外，笔者未有测试。
下载地址 ：http://download.csdn.net/download/liuminofhengyang/4058441
vb 暴力破解密码程序的过程？
工作繁忙难免产生意外，比如对重要的word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。
这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。
下面我们就来看看用穷举法暴力破解word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。
一、引言 大家都知道，office家族跟VB有千丝万缕的联系，Microsoft office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作word 应用程序中的对象，用穷举测试的办法达到找回丢失密码的目的，非常简单吧！ 二、实现过程 下面来看一看程序的具体编制过程。
程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft office组件。
打开VB，新建一个VB工程，取名Proc_word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是office2000，那么应该选择“Microsoft word9.0 Object Library”）。
同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。
好了，现在可以动手编制程序了。
在刚才FrmMain窗体的左侧添加一个框架控件，并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。
在FrmMain窗体的右下侧添加两个命令按钮，在右上侧添加三个标签控件、两个文本框控件和一个微调控件，你可以参考附图来设计。
接着，将框架的Caption属性设置成“请选择需要破译的word文档”；保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不变；将文件列表框的Pattern属性设置成“*.DOC”，目的是只显示目录下的 word文件；将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合word文档密码”，将第二个标签Caption属性设置成“解密进度”，将第三个标签Caption属性设置成“请选择破译密码位数”；将第二个文本框的Text属性设置成“4”，这是缺省密码位数；将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联，BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”，表示最长密码位数和最短密码位数，将Wrap属性设置成True，将Increment属性设置成“1”，以便每单击一次加1或减1；将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”,Caption属性分别设置成“文件打开”、“系统退出”。
以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。
下面就是全部的源程序，适当的注释有助于大家理解程序。
你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。
如何破解wps/word的密码？
展开全部 设置WPS的Word文档密码 打开WPS的Word文档后，点击主界面左上角的“WPS文字”按钮，然后选择“文件信息->文件加密”就会弹出密码设置框，如下图所示： WPS Word文档的密码设置框 1、打开权限：设置的是WPS Word文档的打开密码，用来限制没有权限的访问，没有密码的用户看不到文档内容。
2、编辑权限：设置的是WPS Word文档的编辑密码，简单来说没有密码的用户不可以编辑文档，只能以“只读”模式浏览WPS文档内容。
3、宏安全性：这里涉及的密码是VBA程序密码，有权限的用户可以对宏文件进行操作。
若想了解更多关于VBA密码的内容请点击60秒掌握Office密码破解软件VBA后门功能。
拓展资料 Word密码破解工具破解WPS文档 现在将任意一篇WPS Word文档的打开密码设置为混合型密码“#9z”，保存设置后关闭文档。
启动Advanced Office Password Recovery试用版后打开之前设置好密码的WPS文档，软件自动运行准备攻击，等待7秒左右便弹出结果对话框，显示密码破解成功，如下图所示： 破解3位混合Word密码 从上述内容看出使用Word密码破解工具破解WPS的Word密码操作极其简单，但是这说明了Advanced Office Password Recovery是可以破解WPS文档密码的，如果想获取功能更加强大的正式版请点击购买Word密码破解工具。
...
EXCEL忘记密码怎么办
工具：office excel步骤：1. 打开office excel，试图编辑时，会弹出这样的对话框。
2. 忘记了密码，可以使用宏命令来将密码显示出来，然后输入正确的密码即可。
具体操作时，要先将宏命令的相关工具按钮调出来。
单击文件——选项——自定义功能区——在“开发工具”前打勾——确定。
3. 单击工具栏——开发工具——宏，新建宏。
然后保存。
4. 编辑该宏，复制下列代码粘贴到宏的内容中去。
5. 保存之后，运行该宏，即可弹出显示密码的窗口。
单击确定，然后输入密码即可实现解锁。
6. 如果点击宏时出现错误提示，则可能是因为你的excel没有启用宏。
操作方法如下：单击文件——选项——信任中心——信任中心设置——宏设置——点启用所有宏。
然后确定。
转载请注明出处51数据库 » vba破解word密码
