ࡱ> EkK  !"#$%&'()*+,-./0123456789:;<=>?@ABCD_GHIJ\MNOPQRSTUVWXYZ[F]^`iabcdefghjlmnRoot Entry FTB0c$WorkbookT~ETExtData _VBA_PROJECT_CUR" pʾZ Z  !"#$%&'()*,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuwyz{|}~ ^ĠK@@@@@@@@@@@@@@@@@@@gggg@g@g@g@ A.  A.  A. W_#xME  \p851-024 Ba= ThisWorkbook=xK/8X@"1[SO1 [SO1 [SO1 [SO1[SO1[SO1[SO1[SO1@[SO1[SO1[SO1[SO1h8[SO1,8[SO18[SO18[SO1[SO1[SO1<[SO1>[SO1?[SO14[SO14[SO1 [SO1 [SO1[SO1[SO1 [SO1[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)w9_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* \-??_ ;_ @_ g1_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* \-_ ;_ @_                                       P P      a>       ff   `  +  )                 @ @ @ @ @ 1@ @ !@ @ @ @ !@ @   @ @ @ @ @ @  @ @ @ @ @  @ @ @ @ @ @@ 1@ @ !@ @ !@ @ @ @ !@ @ @ @ !@ @  @  @ @  @ @  @ @  !@ @ @@ @   1@ @ 1@@ 1!@ @ @ @  @@  @   @  @    @     @   @@ @   @ @@  !@ @  @@   @ @@  @ @@  @   @ @ @ @ @@   @ @  @    @ @ @@ !@@ !@ ! @ @@  @ @  !@ @ !@  ! @ !@ @ !@@ !@  ! @ @ @   @ @ @ !@@ ! @ !@@ !@ !@@ !@  ! @ @@  @ @@ @ @ @ !@ @ !@@ ! @ !@@ !@ !@ @ !!@ @ @@  @ ! @ @ @ !@ @ @ @ !@ @ !@@ !@ @ !!@ @ @@ @@  @ !@@ !@ @ !!@ @ @ @ @ @ @ @ !@ @ @@ @   @ !@@ !@  ! @ @ @ @ @ !@@ !@  ! @ @@ @   @ 8   !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6" #h $h 1 %h 2 &h 3 'h 4(])}Y *Gl;`+, -{.hgUSCQyO[~S 7[Q[N6e 7f[u>yV;mR 7>yV Ty 7LMO 7 b4ls^kXQRpe  7vQN 7{:g4ls^ 7vQNbfN 71r}Y 7yr 7VY`Q 7e 7VYSV 7VYy/I{~ 7 (uN*N͋c`v'`yO[-N ;NRbbfY]\OvNNpSakm;RvN0 7L#/N~R>NN!kfSRǏv'YW;mR  7Y4ls^ 7CET4 7CET6 7TEM8 7vQN 7ZZYrQ 7![^bXTS;N>yOsQ|v|N^\{kXQ0bL|~Q gN^\{kXQ  7[^~0W@W 7 /f&T g NRM 7 gglCQ/g  7,gy 7xvzu 7wmYb!h 7N,g 7vQN 753 7uIN 7mQv4l 7-NqQZQXT 7YZQXT 7VXT 7O 7'YN 7UxX 7Sf[X 7f[X 7e 7TEM8 7CET6 7CET4 7sQ| 7LMO/LR 7K ,gN~{ T kXQeg 7 ڋOb ,gNY[kXQN,gh-Nv NOo` v^ѐ͑bN NOo`w[Qnx0Y gZGPbOo` ,gN?abb1udk [v NU_(uI{Tg0 F 7*gZZ 7]ZZ 7N[gq 7u;mgq 7bFUL53RL2015t^!hVbXb Th 7 Queg} >} @>} `>}  >} >} ` >} >} >} >} >} >}  >}  F} ! F} "" F} # >C#"@"w@ "@"v@"@"@"@"@"@ "I@  "@ "@ "@ "X@"X@"X@ X@ X@ I@  @ X@ X@ X@ X@ X@ X@  @ X@ X@ X@ X@ X@ `[``````````` |||||||||||| \YZ[[[[ZZZtu H xy I@ J\B K xy   GG G@ GL GP GA  GW !GD L z{ M? J@ Nv GH G? GM GQ~ GȎ@  GX !GE H z{ I@ J@ O v GI GK GN GR~ G`j@ G !GF H v PA I xy GJG GO G% GB G Q:  }<} }  }vw GC GGG GC G ^__aaa Raaabc   S=  \] YZZZZZZZZtu   } }  } } } } }}}  }}}}} ~ ~ ~ ~ T UddddddddV UddddddddV UddddddddV UddddddddV UddddddddV  \YZZZZZZZZtu } } }} } }}}}} vz vz vz vz  \!YZZZZZZZZtu } }" }} I# }4}}}} W W W W DP l.".DD.vV"""""..X""""".d""" X@ ! @" X@# X@$ X@ % @& X@' X@( X@) X@* X@+ X@ , @- /@. /@/ /@0 /@1 /@2 /@ 3 /@4 /@ 5 @6 /@7 4@8 /@9 4@: /@; 4@< /@= 4@ > @? Y@ X !\$!YZZZZZZZZtu "5"} "I6"@ "I7"@ "I8"@ "}9 " } #&#z{ #~'#~ $($ $)$ %\*%YZZZZZZZZtu &+&} &, &__ &}-&}}}} '{z{ ({z{ ){z{ *{z{ + ,q;,rrrrrrrrrrs -LS -}-} -I -I -} -}}}} - }T- .Ddd@@dddddd] /Ddd@@dddddd] 0Ddd@@dddddd] 1Ddd@@dddddd] 2ECC 3>3 4.4 5q/5rrrrrrrrrrs 606 7 818 9 :2: ; <3< = >eV>ffffffffffg ?hiiiiiiiiiij Drl".~DD.X""""".z"""""....".".".".@ @A h@B ;@ @hiiiiiiiiiij AkUAllllllllllm Bnoooooooooop (".>@d  << == 4444 :: ;; 88 99 66 77 55  1111 11 3333 2222 22 ---- -- .... .. **** ++++ **++(((( )))) (())'''' &&''$$$$ &&&& "" "" #### %% ####$$$$!! ""                                            >@ AB ,,  //00// // 00 00 7/  %:/  %!!: /  %:/  %:/  %:/  %:/  % : Sheet1ggD&   x'}  dMbP?_*+%&?'?('}'}?)'}'}?" d X ` `? ` `?U}  }    @    e@                    Y Z                             4V:.$$$>@d "  7 Sheet2b(b(  ggD&` VBApʾZ@Z!jWW1 L)ThisWorkbook Sheet1y 27-Dec-2002 (Vers1.1MO3-Apr-04 by JEM: msgs toknst`ants,0;elim~e onreit 12Reveals hadmNOTBl Co6 DBLSPACE As SngvbNewLi@& E AUTpHORS F & _ "AdaptfromKyrby" Y@-@HEADER "ѣ UskMessFVERSION0"p.1 HmFREPBAC"KVPlereport fail9zthe rosoft.pB.excelB.@gram}g newsgroup.ALLCLEA ?`"Thould Enow be fTre@fl tec}, so make sayou: SAVE IT NxOW!i~Qo&UP!, (F) Also, rememb@9that 'e waspu @yaason. Don'tuff up cial~ data.Ac6c@H~usoafmayA+offense. If in doubt,`8MSGNOPWOpRDS1H7weno'v f #v& ^%yH2R #!roBa$:"8Proceedi _unM c>TAKETIM "Af W3 (OK t thiBwill tY6time LmountA&-depends/h`gmany f3,bRe#+agr`mSer's speccaam A%Jus taIp ent!l MaNaKee:KFOUNDKYou@d a Wore _y $W4r} setm *'Df0~as:$$aN% 0mxn{pnt9u"604o ?r&ssU i sap`ww|ho   "N(check=c@[@rg7s 4L4tf%u _& /(P_/&f o' ?2wcsayIO NLYONm+= 2_3/4(U5_6.n32 126&`A'.U&Chr(i)0?jkpBAlEmi12i3f456n&/d- '0 a0p "5 (d;= 1    m) & Chr(i12H3H_ 4X5$6$n) MsgBox Application.Substitute(MSGPWORDFOUND1, "$$", PWord1), vbInform:, HEADER Exit Do 'Bypass all &...nexts nd IfWith d N: ##Loop Until True On Error GoTo 0=If WinTag AFNot ShThenONLYONEv,9ResuDmej FAEach w1 In kshee'Attempt cleara`nce w w1.Unprotect JP81= Fals@@ChecksgiAtriggered to 1 if no0t. EOr .P&ContenA4'@Y U"3  CVDummy do lZi = 65 }66: jNkHC lmNi12O Z345O 6%n@322126 A|Ezjkl!|`4!f4`ABa ߚʚ2ߚƚ'leverage find@ing Pw @by tryon other K%{]2~w2z2`_C!mxt}}EBvEL@LCLEARA@UTHORS V@ERSION REPBACK7  kbook structure passwords. Bob McCormickA probably originator of base c(SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "T\WHxME(<4<< < ll`H`H`Hx` Hage`"Htruc`$Hords`&Hsswo`(H`*HMcGi`,Hersi`.Hied `0HAll 2xnd% 6b (V%`8ls h`:orig`< `>`@Adap`Bck b`Drman`Fpsey`Herna`Jage`Lrsio`N`P`R ure `T ft.paUm" H HX L  @ >8 .x 6p.h,j@8lX(0F0<H   8 X x            ( 0 8 P X p x  > > > >X   @ ` .0PX,`, $(P `px 8  >8>x>>8. 6 8,@,p $ xA Breaks worksheet and workbook structure passwords. Bob McCormickA probably originator of base code algorithm modified for coverageE of workbook structure / windows passwords and for multiple passwordsnt9 Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)8 Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)0 Reveals hashed passwords NOT original passwords]  @ ]  'Adapted from Bob McCormick base code byNorman Harker and JE McGimpseyX]!AllInternalPasswords User Messagep{] Version 1.1.1 2003-Apr-04  ] Please report failure 4to the microsoft.public.excel.programming newsgroup.>@ #] The workbook should 9now be free of all password protection, so make sure you:  SAVE IT NOW! and also BACKUP!, BACKUP!!, BACKUP!!! %Also, remember that the password was 8put there for a reason. Don't stuff up crucial formulas or data. Access and use of some data &may be an offense. If in doubt, don't.]There were no passwords on )sheets, or workbook structure or windows.   ]There was no protection to workbook structure or windows. Proceeding to unprotect sheets.   ]After pressing OK button this will take some time. Amount of time -depends on how many different passwords, the -passwords, and your computer's specification. "Just be patient! Make me a coffee!   ]You had a Worksheet "Structure or Windows Password set. The password found was:  $$ <Note it down for potential future use in other workbooks by &the same person who set this password. 'Now to check and clear other passwords.   ]You had a Worksheet password set. The password found was:  $$ Note it down for potential 1future use in other workbooks by same person who set this password. Now to check and clear other passwords.  0 ]Only structure / windows 0protected with the password that was just found. $   "H]`]]0H]`x]] V(X Z5\5^'Tq@'R 2 ` R 2!b'R 2 R T & f A@d|k * f A@d T ( f A@dd_ dummy do loop 8ABF :ABF <AB >ABF @ABF DAB FABF HABF JAB LABF NABF B ~ Z% 8$j :$j <$j >$j @$j D$j F$j H$j J$j L$j N$j B$jC@h5\5^* 8$j :$j <$j >$j @$j D$j F$j H$j J$j L$j N$j B$j'P ,$$ P V%l f A@dxBypass all for...nextskqFFFFFFFFFF80k( T R 0 f A@d|k 2 `Attempt clearance with PWord1 P 2B@h 2'R 2 `1Checks for all clear ShTag triggered to 1 if not. R 2!b'R 2 R 2 ` 25b_ Dummy do loop 8ABF :ABF <AB >ABF @ABF DAB FABF HABF JAB LABF NABF B ~* 8$j :$j <$j >$j @$j D$j F$j H$j J$j L$j N$j B$jC@h5b* 8$j :$j <$j >$j @$j D$j F$j H$j J$j L$j N$j B$j'P .$$ P V%l f A@dh0leverage finding Pword by trying on other sheets& 6 ` P 6B@h 6GWAUxBypass all for...nextsk FFFFFFFFFFX P kH q@ 2Tk( $   " f A@dLo Attribute VB_Name = "ģ1" Option Explicit Pub$ Sub AllInternalPasswords() ' Breaks "ksheet andbook structure pl. Bob McCormickCprobably originator of base code algthm modified f#coverageC/ u/ windowsPmultiplM#%NLan @HarkerJEXGimpseThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2WpL#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2WQ#xME Sheet2+_VBA_PROJECT;~ dirm9PROJECTwmva(SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 12.0 Object Library  aUW!jWW10155cb624a!jWW1HThisWorkbook0255cb624aoThisWorkbook_% Sheet10355cb624aq Sheet1pL0% Sheet20455cb624as Sheet2QH%h0HHŎHM'S.PH]Gyڰ.rxA.FS[9誱6Ap`:;p,Excel+`VBA`Win16~`Win32`Mac`VBA6#` VBAProject`stdole``Officeu`ģ1c` _Evaluate`AllInternalPasswords6`DBLSPACE-` vbNewLineua`AUTHORS`HEADERM`VERSION`REPBACKU`ALLCLEAR2` MSGNOPWORDS1=O` MSGNOPWORDS2>O` MSGTAKETIME3`MSGPWORDFOUND1ɮ`MSGPWORDFOUND2ʮ` MSGONLYONE`w1t_` Worksheet`w2u_`i``ja`kb`lc`md`ne`i1]`i2]`i3]`i4]`i5]`i6]`PWord1`ShTag%`WinTagr1` Application*`ScreenUpdating! `ActiveWorkbook`ProtectStructuref`ProtectWindowsu` Worksheets`ProtectContents`MsgBoxR` vbInformationn` Unprotect?`ChrK~` Substitute^` ThisWorkbook|`Sheet1`Sheet2`Workbookk`loq s H50* pHd VBAProject4@j = r aU J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1q Ob Li`braryKWģ1G!jWW1U 2 HB1kB,BH!B+BlThisWorkbookG @T@nisW@rrkbjo 2 $%$_"B#$`Sheet=ASe@#ept?G2'B#IpL2G-L2[22)Q:ģ1!jWW1ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2PROJECT xSummaryInformation(DocumentSummaryInformation8PCompObjjID="{8488C7E8-B43E-4EFF-8F1B-3ED5B43C6F9E}" Module=ģ1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F3F1C9A355A755A755A755A7" DPB="7B79413BC83CC83CC8" GC="030139B3C0B4C0B43F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ģ1=25, 25, 824, 638, Z ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Oh+'0`    ( 4@HPXBGS-ZMxhy@ 5O@RkZ@v;@?~Z՜.+,D՜.+,    (08@ H r' Ƭ!Print_Area  Χ` ?GKSOProductBuildVer2052-6.6.0.2790 FMicrosoft Office Excel Biff8Excel.Sheet.89q