一、word 2007密码破解
打开需要破解的excel文档,然后同时按Alt+F11打开VBA编辑器,点击插入-模块,在模块中将以下代码COPY进去,再按F5运行,等待运行完毕,OK,密码没有了。
Option Explicit Public Sub AllInternalPasswords() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted from Bob McCormick base code by" & _"Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _"now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _"put there for a reason. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _"sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _"Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _"password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _"future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _.ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _"$$", PWord1), vbInformation, HEADER Exit Do 'Bypass all for。nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 。
二、求一个word2007密钥 要没用过的 能用的
Office2007序列号1 W2JJW-4KYDP-2YMKW-FX36H-QYVD82 QMXMQ-BXXVX-VYGKQ-7BD92-34BGQ3 KGFVY-7733B-8WCK9-KTG64-BC7D34 DBXYD-TF477-46YM4-W74MH-6YDQ8 5 V9MTG-3GX8P-D3Y4R-68BQ8-4Q8VD 6 F93TP-TK98C-7Q3J8-VPXGD-9X4MJ 7 WJXKF-74K3D-KQR2X-WQJQX-7TYYJ 8 XT49J-BB79F-2BPQ7-433HY-J4CVW 9 PRM24-963QT-8YXXK-988XD-FF87W 10 B***7-BPDRD-P7QBK-KKYYH-JPFMJ 11 V4C9W-HBFMY-VBH2B-GWXXJ-Y6VD812 TFXVB-PQRJD-HVYGP-DV6VB-96JBJ13 P3BGJ-KJT33-F2F8K-6GW4W-3WRMJ14 R7JQH-JWWFY-T78DT-GCKF4-7GYYJ15 J8RVJ-RQKBG-7VK8Q-X7W6R-TVQQ816 TJ6RT-3FVCB-DPYP8-XF7QM-96FV3 *17 BFW3K-296YQ-JHXTX-WDMPX-JG938 18 CJMJF-8VCP9-WVXWH-RJBVX-RKCVW19 JX8J3-8VWYT-3WMBD-FVDKB-K7H23 20 H8X62-6QKMF-F2HWV-MPB9G-XB36G。
三、office2007免费版密钥是什么
Office 2007 Professional(Microsoft Office 2007 简体中文专业版)
DBXYD-TF477-46YM4-W74MH-6YDQ8
Office 2007 Applications
W2JJW-4KYDP-2YMKW-FX36H-QYVD8
Microsoft Office Professional Plus 2007
MTP6Q-D868F-448FG-B6MG7-3DBKT
Office Project Professional 2007
CD-Key: W2JJW-4KYDP-2YMKW-FX36H-QYVD8
Office Visio Professional 2007 简体中文版
CD-Key: W2JJW-4KYDP-2YMKW-FX36H-QYVD8
Microsoft Office OneNote 2007
TFKGD-9VXBG-T22DK-FQB9P-MBPG6
Microsoft Office SharePoint Designer 2007
VQCR8-6KP8Q-Y2FTW-3YQD7-R22G6
Microsoft Office SharePoint Server 2007 - Enterprise
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office SharePoint Server 2007 - Enterprise(x64)
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office Forms Server 2007
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office Forms Server 2007 (x64)
FDJDK-66WCT-2HD9C-4TY63-38C4G
这些你试试,不行了,把你的QQ邮箱发过来,我给你发一套office 2007 简体中文专业版的
四、office 2007 可用的激活密钥
Office2007绿色破解版 24.5 MB 下载地址: http://www.fs2you.com/files/f0e3bad1-0ab7-11dd-a1d7-0014221f3995/ 史上最小的Office2003迷你绿色版,22.5 MB。
免安装,具备基本功能,解压之,然后执行 绿化.bat即可使用. 下载地址1: http://www.fs2you.com/files/1d5629a8-feb8-11dc-a715-00142218fc6e/ 2: http://www.bibidu.com/fileview-651195.html。
五、求WORD2007产品密钥
Office2007序列号:
1 W2JJW-4KYDP-2YMKW-FX36H-QYVD8
2 QMXMQ-BXXVX-VYGKQ-7BD92-34BGQ
3 KGFVY-7733B-8WCK9-KTG64-BC7D3
4 DBXYD-TF477-46YM4-W74MH-6YDQ8
5 V9MTG-3GX8P-D3Y4R-68BQ8-4Q8VD
6 F93TP-TK98C-7Q3J8-VPXGD-9X4MJ
7 WJXKF-74K3D-KQR2X-WQJQX-7TYYJ
8 XT49J-BB79F-2BPQ7-433HY-J4CVW
9 PRM24-963QT-8YXXK-988XD-FF87W
10 B***7-BPDRD-P7QBK-KKYYH-JPFMJ
11 V4C9W-HBFMY-VBH2B-GWXXJ-Y6VD8
12 TFXVB-PQRJD-HVYGP-DV6VB-96JBJ
13 P3BGJ-KJT33-F2F8K-6GW4W-3WRMJ
14 R7JQH-JWWFY-T78DT-GCKF4-7GYYJ
15 J8RVJ-RQKBG-7VK8Q-X7W6R-TVQQ8
16 TJ6RT-3FVCB-DPYP8-XF7QM-96FV3
17 BFW3K-296YQ-JHXTX-WDMPX-JG938
18 CJMJF-8VCP9-WVXWH-RJBVX-RKCVW
19 JX8J3-8VWYT-3WMBD-FVDKB-K7H23
20 H8X62-6QKMF-F2HWV-MPB9G-XB36G
六、microsoft office 2007产品密钥
正版的Office只能用正版的序列号。
建议LZ将现在的Office卸载掉,安装破解版的 http://content.gougou.com/content?cid=9BC494F8ABB0C64481EAB52A42E5E85079DC413F&search=%4f%66%66%69%63%65%32%30%30%37#com_anchor Microsoft office 2007产品密钥安装 序列号:V9MTG-3GX8P-D3Y4R-68BQ8-4Q8VD 1,使用序列码安装完毕 2,关闭所有Office程序 3,开始,运行regedit,打开注册表找到HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Registration,删除子键ProductName、DigitalProductID 及 ProductID关闭注册表 4,找到C:\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE12\OfficeSetup Controller\Proof.en\Proof.XML 文件 (注意这个路径跟你装的时候,装在哪个目录有关) 修改为 修改下一段中AlwaysInstalled为NeverInstalled保存关闭 5,重新启动电脑。
七、word2007打开密码破解
这种情况下常见的问题是你输入密码就错误了,尤其是需要配合大小写切换时,或者利用一些功能键例如shift时,如果按键故障或者不够灵敏,会导致你输入的密码就错了,可以在一个文本文件中尝试按照你之前的方法输入一下密码,看看最终显示的密码对不对,如果不对就说明有按键出问题,同时你也知道了真正输入的密码。
如果上述方法不管用,而你加密的文件又比较重要,那就很麻烦了,因为现在常用软件几乎都无法立即破解2007版本的打开密码,当然你已经知道了密码的规律和大部分密码内容,可以尝试用一些软件暴力破解,多尝试几天也许还有希望,如果数据很重要,又无法自行破解,就只能尝试穷举法,求助于一些付费破解才能短期内破解2007的密码。
转载请注明出处51数据库 » word2007密钥破解