|
|
|
|
|
|
|
|
|
|
分类： 日常
破解Excel工作表（受保护的视图）密码的方法，很好使~
不需要烦琐的解密过程，不需要额外的第三方破解工具，只需要写一个工作宏，等上个一二分钟，很简单几步就可以破解密码.超级有用.建议保留.超级无敌有用!!!
方法:
1\打开文件
2\工具—宏—-录制新宏—输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具—宏—-宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具—宏—–宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,密码完全被你看见了!!
内容如下:
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
方法:
1\打开文件
2\工具—宏—-录制新宏—输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具—宏—-宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具—宏—–宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,密码完全被你看见了!!
内容如下:
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
After Dinner
我们收好餐盘碟子 结束一天的辛苦
晚餐之后的那个小时
我们喜欢去散步 喜欢和你一起散步
新陈代谢之后分手
我们是最健康的朋友
有心事请告诉我 我也想要跟你说
但我只能够自行吸收 和晚餐一起吸收
每天的 Before
Dinner
要吃什么 谁能够告诉我
不用沉鱼落雁的晚餐
只要给我能源 在太阳消失以后
新陈代谢之后分手
我们是最健康的朋友
有心事请告诉我 我也想要跟你说
但我只能够自行吸收 和晚餐一起吸收
每天的 Before
Dinner
要吃什么 谁能够告诉我
喜欢眉清目秀的晚餐
然后给我能源 在悲伤阳消失以后
After Dinner
要做什么
只能看着天空
生活就像晚餐只能独自享受
拜托 陪我 在晚餐以后
After Dinner
要做什么
只能看着天空
生活就像晚餐只能独自享受
拜托 陪我 在晚餐以后
晚餐之后的那个小时
我们喜欢去散步 喜欢和你一起散步
新陈代谢之后分手
我们是最健康的朋友
有心事请告诉我 我也想要跟你说
但我只能够自行吸收 和晚餐一起吸收
每天的 Before
Dinner
要吃什么 谁能够告诉我
不用沉鱼落雁的晚餐
只要给我能源 在太阳消失以后
新陈代谢之后分手
我们是最健康的朋友
有心事请告诉我 我也想要跟你说
但我只能够自行吸收 和晚餐一起吸收
每天的 Before
Dinner
要吃什么 谁能够告诉我
喜欢眉清目秀的晚餐
然后给我能源 在悲伤阳消失以后
After Dinner
要做什么
只能看着天空
生活就像晚餐只能独自享受
拜托 陪我 在晚餐以后
After Dinner
要做什么
只能看着天空
生活就像晚餐只能独自享受
拜托 陪我 在晚餐以后
August 20th, 2013
因为个人身体的原因，好久都没有骑过自行车，周日那天实在是忍不住了，其实也计划了好几天，那就是起个大早然后去附近的山那里再返回。但是周六晚上偶然在网上逛，听说那座山上也有好几条越野的路线，虽然没有详细的地址，但还是感觉很兴奋，曾经打算彻底告别山地车我又按耐不住了。
第二天不到五点就被闹钟叫醒了，本来就失眠好久的我，起的这么早实在是很困很乏力。强打着精神，吃了几口面包喝了袋牛奶就出发了，刚到小区楼下就看到即将升起的太阳将远方的云彩照耀的特别漂亮，路上不多的行人们拿起手中的手机在拍摄，我也别闲着了，来一张。
第二天不到五点就被闹钟叫醒了，本来就失眠好久的我，起的这么早实在是很困很乏力。强打着精神，吃了几口面包喝了袋牛奶就出发了，刚到小区楼下就看到即将升起的太阳将远方的云彩照耀的特别漂亮，路上不多的行人们拿起手中的手机在拍摄，我也别闲着了，来一张。
到了山下却找不到入口，费了半天劲才打听到有一个公园的小路，果然野路就是爽，窄的很，后来骑到了公园里的大道上，很多的碎石路，冲下去的感觉很给力，照片没有拍，因为拍照是个很麻烦的事。
实在不想打字了，此处省略若干字。。。。
不过这次骑行最大的收获就是腰没有预想中的那么不舒服，换句话说就是跟平时没有太大的变化，真是让我很欣慰，希望能够继续保持，也继续保持每天运动一下的好习惯。
实在不想打字了，此处省略若干字。。。。
不过这次骑行最大的收获就是腰没有预想中的那么不舒服，换句话说就是跟平时没有太大的变化，真是让我很欣慰，希望能够继续保持，也继续保持每天运动一下的好习惯。
关于注册.net frm 4.5出现This option is not supported on this version of the operating system
今天在win8的iis中注册.net 4.5发现一问题，使用aspnet_regiis.exe -i命令却报以下错误。This option is not supported on this version of the operating system. Administr
ators should instead install/uninstall ASP.NET 4.5 with IIS8 using the “Turn Win
dows Features On/Off” dialog, the Server Manager management tool, or the dism.e
xe command line tool. For more details please see http://go.microsoft.com/fwlin
k/?LinkID=216771.
ators should instead install/uninstall ASP.NET 4.5 with IIS8 using the “Turn Win
dows Features On/Off” dialog, the Server Manager management tool, or the dism.e
xe command line tool. For more details please see http://go.microsoft.com/fwlin
k/?LinkID=216771.
后来经过了解，在win8的iis8下不能这样使用命令去安装framework到iis中，而是首先应该在控制面板的应用程序安装与卸载模块，将前两项都打上钩。
最后在执行一下
- dism /online /enable-feature /featurename:IIS-ASPNET45命令。注意，cmd一定要用管理员账户打开。
Visual studio 打开、创建项目异常（No exports were found that match the constraint）KB2781514
 |
对于Visual studio打开项目，或者创建项目的时候出现
No exports were found that match the constraint: ContractName Microsoft.VisualStudio.Project.IProjectServiceAccessor RequiredTypeIdentity Microsoft.VisualStudio.Project.IProjectServiceAccessor |
的问题，具说是因为与.net framework4.5的补丁发生了冲突。
解决方案如下：
1.删除下面这个文件夹 Users\{username}\AppData\Local\Microsoft\VisualStudio\11.0\ComponentModelCache
解决方案如下：
1.删除下面这个文件夹 Users\{username}\AppData\Local\Microsoft\VisualStudio\11.0\ComponentModelCache
2.下载更新补丁。
| kb2781514.exe |
My Memory
在经历过了一天的暴雨之后，终于迎来了难得一见的透亮天气，而且还很凉快，风也很大，但是空气却很干净，真舒服，有种最喜欢的秋天刚来的时候的感觉。看了一下日历，再过二十天就立秋了，时间真是快啊，还是秋天最好，秋天是一个适合旅行的季节。
|
有一首曲子感觉很不错 – My memory |
|
NopCommerce 3.0 建站平台
因为发现国内的网站上关于这个3.0的版本很少有地方可以下载，而国外的官网下载速度又是在是很慢，所以就传上来，正好自己最近也想接触一下这个系统。
| nopcommerce_31.00_upgradescripts.rar |
| nopcommerce_31.00_nosource.rar |
| nopcommerce_31.00_source.rar |
2013-07-12 星期五
因为一直住在阴面，所以屋里从来都不会有阳光照进来，但是每年的7月初大概有几天的时间，太阳落山的时候会恰好通过对面楼上的特定的那一扇玻璃窗反射过来，照进屋里，但是时间只有短短的十分钟，虽然很短，但是让人也很欣喜
傍晚