- 浏览: 2306014 次
- 性别:
- 来自: 武汉
文章分类
- 全部博客 (559)
- JavaScript (55)
- windows (21)
- mysql (7)
- php (199)
- thinkphp (2)
- 互联网 (42)
- flash (3)
- html (9)
- phpcms (11)
- ffmpeg (6)
- 生活 (108)
- flash小游戏 (11)
- 软件 (35)
- css (1)
- JavaScript 二维码 (0)
- 二维码 (1)
- 桌面图标 (1)
- ping服务 (1)
- 百度 (2)
- 搜索引擎 (1)
- seo (1)
- 整形美容 (1)
- 深圳婚纱摄影 (1)
- 武汉婚纱摄影 (2)
- 淘宝 (0)
- 冬装 (0)
- 女装 (0)
- 新款冬装女装 (0)
- freebsd 操作系统 (1)
- editplus (1)
- svn (1)
- 微信 (1)
- 微商 (1)
- curl (1)
- 远程 (1)
- 防盗链 (1)
- vc2012 (1)
- Alexa (1)
- bootstrap (1)
- fileinput (1)
- webuploader (1)
- mip (1)
- 正则 (1)
最新评论
-
hexawing:
啥原理……貌似很神奇啊
excel写保护(非打开保护)的破解方法 -
化蝶自在飞:
注意upload.js的配置参数 sendAsBinary
webuploader实例php 配合fastDFS远程跨域上传回调的注意点 -
化蝶自在飞:
增加一个微信内置浏览器的useragent:
Mozilla/ ...
浏览器useragent大全 -
化蝶自在飞:
leiliang10 写道你揍是个骗纸此话怎讲?这个工具是我自 ...
mp4、mov视频元数据头信息修复工具 支持h.264编码边下边播 -
leiliang10:
你揍是个骗纸
mp4、mov视频元数据头信息修复工具 支持h.264编码边下边播
excel被写保护(非打开保护)的破解方法,网上对于excel打开保护的破解工具很多,但是对于写保护的破解软件都没招了.
提供一个解决方法,经过实测100%有效,限于excel2003,其他版本未尝试,本文由无忧爱美网www.51aimei.com亲测可用,源代码来源于网络,在此对作者表示感谢.
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,期间鼠标会变成漏斗形,不用管它,破解完毕后点确认就行了,再确定.OK,没有密码了!!
8.另外说一点就是破解过程中间会有n个提示框,其中有一个会爆出密码的,切记.
内容如下:
提供一个解决方法,经过实测100%有效,限于excel2003,其他版本未尝试,本文由无忧爱美网www.51aimei.com亲测可用,源代码来源于网络,在此对作者表示感谢.
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,期间鼠标会变成漏斗形,不用管它,破解完毕后点确认就行了,再确定.OK,没有密码了!!
8.另外说一点就是破解过程中间会有n个提示框,其中有一个会爆出密码的,切记.
内容如下:
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-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords 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 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then 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 .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 Not .ProtectContents 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(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub
发表评论
-
editplus集成配置svn,小乌龟svn中文语言包下载for windows
2013-05-01 14:32 3026editplus配置集成svn的方 ... -
mp4、mov视频元数据头信息修复工具 支持h.264编码边下边播
2012-03-13 13:36 15942使用网页播放器播放mp4或者mov时,可能会出现无法边下边播的 ... -
jQuery二维码插件-改自MyQRCode,支持中文字符
2011-08-27 19:34 3785jQuery二维码插件-改自MyQRCode /** ... -
pptv在线影视观看新还珠格格全集 首播不花钱抢先看新还珠格格
2011-07-21 21:29 1672要说最近什么电视剧最火,那非新还珠格格莫属了,由湖南卫视和琼瑶 ... -
je换域名啦?iteye.com怎么解释?
2011-04-01 11:54 1492je换域名啦?iteye.com怎么解释? 访问自己的博客,直 ... -
excel密码破解工具_excel密码破解软件-Office Password Remover V1.0.0.6绿色版
2011-03-01 09:42 12647excel密码破解工具_excel密码破解软件-Office ... -
EditPlus正则a链接的写法
2011-02-11 12:59 1324<a target=_blank href=\/view ... -
firefox异常关闭如何恢复?Firefox找回异常关闭的页面
2011-01-19 09:59 3434突然停电了.Firefox异常关闭了.如何找回之前访问的网页呢 ... -
鲁大师免费下载_鲁大师免费下载安装_鲁大师迅雷下载
2011-01-02 18:02 4005鲁大师是一款免费的硬 ... -
EditPlus计算字符串中包含某个字符的个数
2010-12-23 17:31 12503EditPlus计算字符串中包含某个字符的个数,目前为止没找到 ... -
EditPlus正则匹配数字
2010-12-04 18:24 2281目标字符串形如: (123, 需要直接替换成 ( . 于是乎正 ... -
淘宝网汽车用品热销 冬季汽车坐垫荣登八大热销排行榜
2010-11-16 16:39 321您知道淘宝上哪些商品正在热销吗?根据博主近一段时间的观察,淘宝 ... -
onekey ghost下载_onekey ghost y6.3下载地址
2010-11-12 02:13 1553onekey ghost下载_onekey ghost ... -
扣扣保镖下载 360扣扣保镖下载xiazai 360发布扣扣保镖死磕腾讯QQ
2010-10-30 15:11 1790今日,互联网上最大的新闻,莫过于腾讯VS360了.就在昨天,3 ... -
无耻腾讯,你TM的还说没监控我的隐私?铁证如山!
2010-10-27 19:32 3145啥也不说,看图: 这是腾讯QQ发送的弹窗消息,右下角的 ... -
windows2003下的批处理的注意事项/关于换行
2010-10-24 17:54 1606有项目中利用windows的计划人物定时执行一个bat文件,这 ... -
服务调整中,图片消息暂时无法发送
2010-10-23 23:27 1074服务调整中,图片消息暂时无法发送. 你懂的. -
o my lady gaga 成流行口头语
2010-10-20 13:00 1555o my lady gaga ! 你一定 ... -
免费进销存软件下载 进销存软件免费下载
2010-10-16 14:00 2799免费进销存软件下载 进销存软件免费下载. 什么是进销存呢?是 ... -
godaddy优惠码大全 包括godaddy 域名优惠码,最新godaddy优惠码
2010-10-13 15:07 1524godaddy优惠码大全 包括godaddy 域名优惠码,最新 ...
相关推荐
真正有效的Excel工作表保真正有效的Excel工作表保护密码破解护密码破解真正有效的Excel工作表保护密码破解
使用宏去除excel保护密码,忘记密码的同志们有福了!
EXCEL文档资料的密码保护破解,不损坏文档
破解EXCEL工作表保护的方法,破解EXCEL工作表保护的方破解EXCEL工作表保护的方法破解EXCEL工作表保护的方法
Excel工作表保护密码破解 方法: 1打开文件 2工具---宏----录制新宏---输入名字如:aa 3停止录制(这样得到一个空宏) 4工具---宏----宏,选aa,点编辑按钮 5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6...
在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了...
Excel工作表保护密码破解方法借鉴.pdf
EXCEL保护密码破解宏使用方法,教程方法解析!
EXCEL工作表被保护又忘记密码无法编辑和取出excel中的数据让人很头痛,本文档可以暴力破解,不用输入密码机可以编辑和取出excel的数据。
利用OFFICE内置VBA来破解EXCEL的密码保护
VB打开EXCEL的方法
excel保护破解 Excel保护破解 ,打开文件,启用宏,
EXCEL2007工作表密码保护破解.pdf
wordexcel打开密码破解wordexcel打开密码破解wordexcel打开密码破解wordexcel打开密码破解
破解电子表格保护,破解、excel表格、保护
正在试图更新被保护的只读单元格或图表,如果您在修改EXCEL某个单元格时出现这个提示,本集合里面的文件对您有用,它可以更换密码. 使用时请把"EXCEL密码破解和显示.xls"和您被加密码的EXCEL都打开,在您的EXCEL里面运行...
Py破解Excel打开密码(纯数字)源码,运行环境:python
Excel2007打开多个独立窗口的方法