某小区山体公园护坡施工图 [复制链接]

看看，学习学习

正需要这方面的资料

感谢共享，学习一下，顶

看看，学习学习 看看，学习学习

好资料，我收下了，谢谢

好资料，我收下了，谢谢

什么支护形式的啊

学而不思则罔，死而不学则殆

学习一下楼主的资料

Public Sub 工作表保护密码破解() G';yb^DB  
Const DBLSPACE As String = vbNewLine & vbNewLine .0[ zZ  
Const AUTHORS As String = DBLSPACE & vbNewLine & _
x'c%w:  
"作者:XXXXXXX" Y<"BhE  
Const HEADER As String = "工作表保护密码破解" ;B,6v P#  
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1" (H/2{##  
Const REPBACK As String = DBLSPACE & "" Z/p>>SCak  
Const ZHENGLI As String = DBLSPACE & "                   XXXXXXX" !T<4em8  
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _ U<
aT%^_  
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！" a*oqhOTQ  
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" B]""%&! O  
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" ^V1iOf:  
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" Wvg
+5Q  
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ `ecIy_O3P&  
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除" {4%B^+}T  
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ L T.u<ThR}  
"如果该文件工作表有不同密码,将搜索下一组密码并解除" LrL ZlJf  
Const MSGONLYONE As String = "确保为唯一的?" p;P"mp\'  
Dim w1 As Worksheet, w2 As Worksheet ,'KS:`m!  
Dim i As Integer, j As Integer, k As Integer, l As Integer AD** 4E  
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer [nx OGa2  
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer \bc ob8u  
Dim PWord1 As String PU"C('AP  
Dim ShTag As Boolean, WinTag As Boolean bGO[P<<  
Application.ScreenUpdating = False 3/j^Ao\fw  
With ActiveWorkbook ry2ZVIFa  
WinTag = .ProtectStructure Or .ProtectWindows KTQy pv  
End With |v'_Co0ki  
ShTag = False Xqz\%&G  
For Each w1 In Worksheets R[%ZyQ_  
ShTag = ShTag Or w1.ProtectContents *j9hjq0j  
Next w1 Hw(_l,Xf  
If Not ShTag And Not WinTag Then "k0bj>  
MsgBox MSGNOPWORDS1, vbInformation, HEADER d;<gwCc  
Exit Sub gE_i#=bw  
End If T=NF5kj-=  
MsgBox MSGTAKETIME, vbInformation, HEADER 7jZE(|G-  
If Not WinTag Then b#17N2xkT  
Else 91Fx0(  
On Error Resume Next 6G^x%s  
Do 'dummy do loop Q|gRBu  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 2!7)7wlj0  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 {`Jr$*;  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 IO*}N"  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ^iHwv*ss  
With ActiveWorkbook 9}=]oX!+V  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
V\!6K  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ 323zR*\m  
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) cg]\R1Gm  
If .ProtectStructure = False And _ n.323tNY  
.ProtectWindows = False Then " 0:&x n8L  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ T&ECGF;Y/  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ nz?jNdyz  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) x3`b5^  
MsgBox Application.Substitute(MSGPWORDFOUND1, _  wh
A  
"$$", PWord1), vbInformation, HEADER +bGj(T%+'  
Exit Do 'Bypass all for...nexts *i=+["A  
End If vZ rE9C }  
End With Xq"_^  
Next: Next: Next: Next: Next: Next [b=l'e/  
Next: Next: Next: Next: Next: Next b,k%
n_&n  
Loop Until True rmzM}T\20  
On Error GoTo 0 ? 0}M'L  
End If >E9:3
&[F  
If WinTag And Not ShTag Then T[z}^"  
MsgBox MSGONLYONE, vbInformation, HEADER g?}$"=B   
Exit Sub "L(4 EcO@  
End If 6rx%>\UkS  
On Error Resume Next vLc7RL  
For Each w1 In Worksheets )}G?^rDH(  
'Attempt clearance with PWord1 0c$0<2D%  
w1.Unprotect PWord1 0Bo7EV  
Next w1 n{b(~eL?  
On Error GoTo 0 ;j#(%U]Vp  
ShTag = False :nt 7jm,  
For Each w1 In Worksheets YV6@SXy  
'Checks for all clear ShTag triggered to 1 if not. P?zPb'UVqa  
ShTag = ShTag Or w1.ProtectContents iut[?#f^  
Next w1 ^"U-\cx  
If ShTag Then iPD5 KsAOA  
For Each w1 In Worksheets &?#,rEw<x  
With w1 BotGPk><c  
If .ProtectContents Then |SO?UIWp  
On Error Resume Next u(Y! _  
Do 'Dummy do loop [\Ks+S  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 RSK~<Y@]q{  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 :3uCW1  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 tfSY(cXg'T  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 NB["U"1[^E  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _ RW?F{Jy{  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ ;T9u$4<  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) [32]wgw+{1  
If Not .ProtectContents Then e]1&f.K  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ h6yXW!8  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ R>r@I_  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) t,YnweH  
MsgBox Application.Substitute(MSGPWORDFOUND2, _ ^tw\F7  
"$$", PWord1), vbInformation, HEADER o|tq&&! <  
'leverage finding Pword by trying on other sheets qHGwD20 ~  
For Each w2 In Worksheets Mdj?;'Yv  
w2.Unprotect PWord1 L7gZ4Hu=`  
Next w2 Rr9K1io$)  
Exit Do 'Bypass all for...nexts 6;O fh  
End If ,t
2yw  
Next: Next: Next: Next: Next: Next &gDwsW  
Next: Next: Next: Next: Next: Next fAW(  
Loop Until True

,C=Lu9  
On Error GoTo 0 sULCYiT|Hn  
End If :jJ;&t^^  
End With  .IO_&^  
Next w1 k^JV37;bl  
End If 0`LR!X  
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER 8|Q=9mmWOh  
End Sub j56#KNAha  

Public Sub 工作表保护密码破解() g`2DJi&)  
Const DBLSPACE As String = vbNewLine & vbNewLine " hD6Z  
Const AUTHORS As String = DBLSPACE & vbNewLine & _ feSj3,<!  
"作者:XXXXXXX" \V1geSoE  
Const HEADER As String = "工作表保护密码破解" F+c4v A})  
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1" &D/@H1fBe  
Const REPBACK As String = DBLSPACE & "" }o'WR'LX  
Const ZHENGLI As String = DBLSPACE & "                   XXXXXXX" zZhAH('fG  
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _ rz@FUU:&  
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！" oy;g;dtq  
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" :EkhF6B/  
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" cE|Z=}4I7  
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" ]c Or$O*  
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ jMpV c E#  
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除" XBmAD!  
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ Hv>16W$_  
"如果该文件工作表有不同密码,将搜索下一组密码并解除"  MeP,8,n'  
Const MSGONLYONE As String = "确保为唯一的?" ".Z1CBM(  
Dim w1 As Worksheet, w2 As Worksheet g }%$VUSA  
Dim i As Integer, j As Integer, k As Integer, l As Integer nn1
T5;  
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer F*0rpQ,*  
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer 3eg)O34  
Dim PWord1 As String 8Hdm(>  
Dim ShTag As Boolean, WinTag As Boolean AjW5H*  
Application.ScreenUpdating = False B@8M2Pl  
With ActiveWorkbook %u)niY-g
 
WinTag = .ProtectStructure Or .ProtectWindows cnm*&1EzV  
End With  .# Jusd  
ShTag = False FC+}gJ(q  
For Each w1 In Worksheets &&Uc%vIN  
ShTag = ShTag Or w1.ProtectContents e[>c>F^  
Next w1 Y`U[Y Hx  
If Not ShTag And Not WinTag Then N084k}io  
MsgBox MSGNOPWORDS1, vbInformation, HEADER Ai~j q  
Exit Sub &ody[k?'  
End If M9t`w-@_w  
MsgBox MSGTAKETIME, vbInformation, HEADER /^2&@P7  
If Not WinTag Then lCX*Q{s22  
Else 77]6_  
On Error Resume Next Z [aKic  
Do 'dummy do loop <%SG <|t  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 5Nt40)E}sN  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 BDO]-y  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 Im<i.a <`  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 RqONVytx  
With ActiveWorkbook iE}Lw&x  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _ ++d%D9*V<  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ g5\EVcHkz  
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 5LkpfmR  
If .ProtectStructure = False And _ zFFip/z\  
.ProtectWindows = False Then [yEH!7  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ (FY<%.Pa  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ ri]"a?Rm  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) b:c$EPK  
MsgBox Application.Substitute(MSGPWORDFOUND1, _ d:_3V rRZ  
"$$", PWord1), vbInformation, HEADER /'ukeK+'  
Exit Do 'Bypass all for...nexts G2,9$8qE  
End If HQ7  
End With /}ADV2sF  
Next: Next: Next: Next: Next: Next Wf}x"*  
Next: Next: Next: Next: Next: Next o)M=; !  
Loop Until True >$g+Gx\v4  
On Error GoTo 0 =Qf.  
End If RyN}Gz/YN  
If WinTag And Not ShTag Then $Y\-X<gRH  
MsgBox MSGONLYONE, vbInformation, HEADER ;ATn&  
Exit Sub av!'UZP  
End If N!TC}#}l  
On Error Resume Next 88}=V
S  
For Each w1 In Worksheets |E(`9  
'Attempt clearance with PWord1 l_1y#B-k5  
w1.Unprotect PWord1 ]E:P-xTwaI  
Next w1 PlX6,3F  
On Error GoTo 0 "UVqHW1%K  
ShTag = False =8p *Ijs  
For Each w1 In Worksheets zG|#__=T  
'Checks for all clear ShTag triggered to 1 if not. #cF ?a5  
ShTag = ShTag Or w1.ProtectContents 0&W*U{0F\  
Next w1 x,+2k6Wn!  
If ShTag Then ` &E-  
For Each w1 In Worksheets F4#^jat{  
With w1 8etNS~^  
If .ProtectContents Then ^p2_p9  
On Error Resume Next /&eF,4  
Do 'Dummy do loop :mI[fQ  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 5>nbA8  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 aOOkC&%  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 mT3'kUZ}]  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 VOa7qnh4:[  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _ 9?6]Zag  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ W,53|9b@  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Wb;x eG  
If Not .ProtectContents Then k/`WfSM\.  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ [3~mil3rO  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ |#Q4e51H  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) #% 1|$V*:  
MsgBox Application.Substitute(MSGPWORDFOUND2, _ /ll2lyS+  
"$$", PWord1), vbInformation, HEADER (pud`@D;[  
'leverage finding Pword by trying on other sheets FL/395 <:  
For Each w2 In Worksheets $.g)%#h:  
w2.Unprotect PWord1 / Ml d.  
Next w2 5{.g~3"  
Exit Do 'Bypass all for...nexts q'  
End If "(QI7:iM  
Next: Next: Next: Next: Next: Next tnn,lWu|  
Next: Next: Next: Next: Next: Next z^YL$  
Loop Until True `;R [*7  
On Error GoTo 0 #n5DK{e  
End If X *fle  
End With L*'3f~@Q  
Next w1 8YLS/dN0 w  
End If Aq5@k\[  
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER %ylpn7I\6  
End Sub G^6\OOSy  

来看一下，正在做山体护坡，参考参考。多谢了