ࡱ> u& Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmExprt Caption = "Excel Password Removing Tool" ClientHeight = 6390 ClientLeft = 45 ClientTop = 330 ClientWidth = 6105 StartUpPosition = 1 'CenterOwner TypeInfoVer = 89 End ExprtExprtExprt_Exprt_DecryptDecryptFo+-CompObjpi161 20 n```r*@;*f  !"#$%&'()*+,-/0123456789:;<=>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]_`bcdefghijklmnopqrstuvwxyz{|}~  I\p Michael V. Ba=Exprtί=h/: <X@"1Arial1Arial1Arial1Arial#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">*9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->)9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-F,A_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-F+A_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-                + )  , * ` Exprt11bd+Eklqb֘Xb,bLbblqb r0 bPR0PR Вg ܒH*Ir0 b  b .IX:eԔ`b @@S0b]00`s @ob^n00b R0000 b b]0b Xb Whrung [0]_< ZS0lb pbϝ0vlb0ZT0_T0u0_T0# pbm0 #?bm0-bbXNJT0e0YT0L0YT0LNJT0bbU0 $@ Exprt_ <F2Xc, FF2Xc,Exprt_ .Exprt "__SRP_6 M*__SRP_7^x8)#F2Xc,F2Xc,4(SLSS6"N0{00020820-0000-0000-C000-000000000046}9$*\Rffff*9738d11eb2($Hh $" $@ $ $"0 $`eWor $@ $" $X|@ $0 $( ` $ $p $(  $(}e $` $( " $x $h@8MExAttribute VB_Name = "Exp@rt_" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru# "oseTemplateDeriv$eCus`tomizdrU 0I1q11#)2Q22JM111YAN  ( @ Xd3` "  8h (8 @ `xZ . n0 Worksheet Menu Bar l%<%!%.  E&xprt...9Main92 EXcel Password Removing Tool94 n``l . n0 Worksheet Menu Bar l%<%!%. @nlhalloA@vC MsgBox Application.CommandBars("Worksheet Menu Bar").Controls(6).ExtrasA@vaToolsA@vTools'D aZExtras'D E(0 E&xprt...9 . n0 Worksheet Menu Bar l%<%!%.  E&xprt...9 mainexprt92 `  l0 mainexprt92 ar lnl B@vh 6Exprt now loaded! (Use 'Exprt...' on the 'Tools'-menu) Excel Password Removing ToolA@v$ lZ . n0 Worksheet Menu Bar l%<%!%.  E&xprt...9 mainexprt92 n86Exprt now loaded! (Use 'Exprt...' on the 'Tools'-menu) Excel Password Removing ToolA@vZX . n0 Worksheet Menu Bar l%<%!%.  E&xprt...9 mainexprt92 n86Exprt now loaded. (Use 'Exprt...' on the 'Tools'-menu) Excel Password Removing ToolA@vl ! E&xprt... Worksheet Menu Bar l%<%! ! E&xprt...rde ge hZ Worksheet Menu Bar l%<%! A@vH Z:Exprt already loaded. (Use 'Exprt...' on the 'Tools'-menu) xExcel Password Removi< r F r x%;)# r  r A% 4d [LSS(L, 6"<<<<< <$<(<,<0<4<8<<<@s [ a2 <]Y  h+1 & `+*0!`"2(1>]p`h"2@1>]`$71))X+++ "  )>Z ,d832X3`Y,23`p3333V4j`^ xa2 4Z`[84HH H3I ITjHY 0IHIC`I ISj[ I III ZI Je_d # !"%'()*K,-./0123456789:;<=>?@ABCDEFGHIJ$LMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Tj0\ J (J 8JPJhJJ &kJ JhTj\ J J J KK0KHK `K ,|xK K U j^ K K K K KL(L@L XL pL2L L T jH_ L L L M M  M8MPMhM M MM8M N0Uj_ N N 0N @N PN `N pNNNN N NOO>0O pOTj] O O O O O O O OP P8P PP hPPPPDP QPUj] Q 0Q @Q PQ `Q pQ Q Q QQQQ R R0RHR`RxRJR RTj] R S S S 0S @S PS `S pS@49 B 9-HH2SbhZS2Sb`$78T T(I(T0T B 9"=S9 B 9/9!99$X:(:0:@: B H:+P:`:/p: : ::aZ x?+ )?խ(@> <<<< <<<<< <$LLLLLLL*LLLLL"9"*\Rffff*338d4ceed*\R0*#c*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*#28*\R1*#ac*\R0*#f*\R1*#a7*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\R1*#c1*\R1*#20c*\R1*#c2*\R1*#20b*\R1*#208*\R1*#b8*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R0*#b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55$*\Rffff*3139d5f36dx 5$( $fX @ b@ $$$`&z `(8x`*v`,t`.r#@`0p `2n$$$$#,`($kid  $X$$$`4l@`6j `8h$$$p@@$x $$$$$$$$$p $ h`N%%Ij  ``LN, Ij 8I $8$xX `,0$$$2`P+8 Y6@$`$@ $$$ $$x#0`0*hk Ij $$$ $@ $$$$$$$I $H$$x $$$$$$$ @$$$$$ X T$ $H $  x` |k 0-(  @.l  @b@ h @@ d @ ` $@$@\ @X .2l~bx @h d @b ` @\ @L ` H @F p4 x@$ @  @ @  ` 8(  X$ `8H0x@2l  f(@h @d @XT @D @4 @$ @ @ -P( -@.2~lPd @T (P @L @< P8 @( ( @ @ (  @@ PXX p (@ @ @ hX h (@x @h @` (0^ (CH\ 8C`EpZ IX I V JT JL O0R HQXP pQN RL RJ S(H SUX@YPF h[xD [B \@ \> ]< 0](@: X^h8 ^(4 @0 `cde. g(, @gP* hhx( h& i($ i" j  0j@ Xkh k( @ mpqrs (u8 Pu` xv  v  (w w x( @xP hyx y z zX( @ |(8Hp      8H `p     (8 P` x (( @ @P hx     0@ Xh       0  H X  p       X!( @   !!(!8!H!p!! !! !! !! " " 8"H" `"p" "" "" "" ## (#8# P#`# x## ## ## #$ $($ X$$( @| h$x$$$$$$$%%z (%8%x P%`%v x%(%t %%r %%p %&n &(&l @&P&j h&x&h &&f &&d &&b ''` 0'@'^ X'h'\ ''Z ''X ''V '(T 8(-(P @L H(X(h(x((((((x)))x)))`tx)b)@)d @*T @D @*4 @$ *p+0,+@+(+h-***`0z * ~p.2@+t @+d @X+T @+D @d4 @+0 @+ @, @H, @, @x, @ @, @`, @, @, @, @ @P- @  .`@ Xk0-  Y6@p @h ..p H.(d H.` -h0(h(' (('((h0p@@ @< @8 @@4 @0 @, @( p@$ @  @@ @ @ -J  80h0  0(,0X  @  0  0000001h0/`//80x/00H003 03p$ @ @ @ @ @ +  4( @ 2222222330304HP3`3p333333 323 34`245 5`5a@l (51P@4@4h4X4\ p5L @< ph, @ 8b5 5(355 0XME@ZZ j$p!ruxhp j$pB@z *0148 To .01 For z 001 201 491 4016 = 48 601 F 801 :018 To 4 <01 >01491`hu B01 D0114 = 4 F01 H018 To 4 J01 L01 48 To N01 P01 = 48 R01 T0122 = 4 X01 Z01r z25 \010 ^01 hh !r ~'dArbeitsmappe " j$p!!" wurde erfolgreich entschlsseltA@.huh@ j$pB@z ^ \ Ze X V Tatus " Rpe <" Ps(ArbM N & "> Llgreic Jsselt" H F Dplicat BUpdati ~'b > < :it Sub 8 6 4If ~'b ~'b &ext z2 2 0 .29 , * ( & lxx  j$p%!uh  j$p%B@z` *0148 To .01 For z 001 201 491 4016 = 48 601 F 801 :018 To 4 <01 >01491 @01 For B01 D0114 = 4 F01 H018 To 4 J01 L01 48 To N01 P01 = 48 R01 T0122 = 4 X01 Z01r z25 \010 ^01 `01491 ! ~'dVersuche Blattschutz von " $!" ( j$p!)  zu entfernen l(|A@.Bentigte Zeit: A@2uHhp ` ^plicat \Updati Z \$ X V Tit Subl R P N29 L J H F D Ne B @ >21 < :ext z1 8 6 N 4 2 Nex 0 . Next , *ext z1 ( &01me (018 To 4 ,01For z3 V01 &01  d b Long Time$'f Sub akjsdfls()NShell ("C:\PROGRAMME\OUTLOOK EXPRESS\MSIMN.EXE /mailurl:%1"), vbMaximizedFocus+'SendKeys "VeltenMichael@T-Online.de", TrueEnd Sub h !!f 6 !(fa !!f  6 !(fhf0&Tabellenblatt ist nicht geschtzt: "  j$p%!" ( j$p!)A@."Versuche Arbeitsmappenschutz von " j$p!" zu entfernen l(| (01me ,018 To 4 V01For z3 +6N6q6 &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$ >$ @$ B$ D$ F$ H$ J$ L$ N$ P$ R$ T$ V$ X$ Z$ \$ ^$ `$ B@h !T! h !T!it: " hVersuche Blattschutz von " $!" ( j$p!)  zu entfernenA@2 +6Synonymes Passwort: &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$ >$A@2 D$Z, z1Z d j$p!r4%, !T!z28%, #Arbeitsmappe ist nicht geschtzt: " j$p!"A@.h !rnH! !B@&d(d (dPdH'fZ 0@ !T!h !T!h !V!ernt"8 f8 XS !Z!f'X  -  6 !V! j$h( !T!geschh"Versuche Arbeitsmappenschutz von " j$p!" zu entfernenA@2 !V! j$h0 !V! hh$Tabellenblatt ist nicht geschtzt: "  j$p%!" ( j$p!)A@2 !V!< jArbeitsmappe " j$p!!" wurde erfolgreich entschlsseltA@2 !V!($Arbeitsmappe ist nicht geschtzt: " j$p!"A@2#Arbeitsmappe ist nicht geschtzt: " j$p!"A@.Bentigte Zeit: A@2Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@.Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@2  !V!bMappe$Arbeitsmappe ist nicht geschtzt: " j$p!"A@2.P"Versuche Arbeitsmappenschutz von " j$p!" zu entfernen l(| !T! "Arbe"Versuche Arbeitsmappenschutz von " j$p!" zu entfernenA@2 &04og.Val (04 *04 ,04).Acti ~'d &ext z2 +6N6q6Synonymes Passwort: &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$ >$ @$ B$ D$ F$ H$ J$ L$ N$ P$ R$ T$ V$ X$ Z$ \$ ^$ `$A@2(0+6 &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$ >$ B@ .04rbeits 004schtz 204s(ArbM 404 604n.Stat 804Arbeitxhu <01).Name >01n" @01t.CbxS B01 Then D01suche F01z von H01bMappe J01tferne L01 Error N01 P01 R01 T0148 To V01For z3 X01 Z0149 \01 = 48 ^01 For+6Synonymes Passwort: &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$A@2 +6 &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ B@Z`$hh !T!1) & CArbeitsmappe " j$p!!" wurde erfolgreich entschlsseltA@.h !V!& Chr(Arbeitsmappe " j$p!!" wurde erfolgreich entschlsseltA@2+6Synonymes Passwort: &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$A@2d !T!z28%, hP !V! j$pB@z !V! Error ~'bBentigte Zeit: A@2h`uh !r ^ Chr(z \z25) & Z& Chr( X(z28) V & Chr T 0 R P N Lymes P J & Chr H(z2) & F Chr(z D5) & C Bhr(z7) @ & > < ~'dh 8& Chr( 6(z11) 4 & Chr 2r(z14) 0) & . , * () & Chd l d(  j$p%!hr !T! &Tabellenblatt ist nicht geschtzt: "  j$p%!" ( j$p!)A@.z29)h !V! False$Tabellenblatt ist nicht geschtzt: "  j$p%!" ( j$p!)A@2 FrmExh u h  j$p%B@z Versuche Blattschutz von " $!" ( j$p!)  zu entfernen l(|t" !V! Versuche Blattschutz von " $!" ( j$p!)  zu entfernenA@2h  ~'b &04Log "A (04Workbo *04 & """ ,04 entsc .04 0 004 204 404asswor 604hr(z2) 8044) & CaC@hr(z <01 >01 @01 Chr B01Chr(z1 D01r(z13) F01z15) & H01 J01 L01Chr(z1 N01r(z19) P01z21) & R01 T01 V01Chr(z2 X01r(z25) Z01z27) & \019) & C ^01 Workbook not protected: " j$p!"A@2" (ABThen *ABrbeits ,ABschtz .ABs(ArbM 0AB$ 2ABArbMaphu !1) ~'d !T! Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@.hr(z30h !V! Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@2z7) & 4ABn.Stat 6ABArbeit 8AB""" & :AB).Name < ~n"$ F01bMappe H01tferne J01 Error P01Z$ R0148 To hn Bentigte Zeit: A@2hu hHdl ^ Chr(z \z25) & Z& Chr( X(z28) V & Chr T 0 R P N Lymes P J & Chr H(z2) & F Chr(z D5) & C Bhr(z7) @ & > < dh 8& Chr( 6(z11) 4 & Chr 2r(z14) 0) & . , * () & Ch &hr(z18dl@ d b Long Time$' f !!f Ch 6 !(fa0 !!f  6 !(f) & h` !B@&f !Z!f'X X  -  6= SBlatts'ff+6 &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ B@ T01 48 To V01 For z X01 Z01 49pp \016 = 48 ^01 Fo+6 &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$ B@+6Synonymes Passwort: &$ ($ *$ ,$ .$ 0$ 2$ 4$ 6$ 8$ :$ <$A@2$ !T!1) & C !V!hr(z26 J A@vok " Synonym password: ?A@2decr  a C@   Time needed: d$A@2, ^ \r(z23) Z) & Ch Xhr(z26 V7) & C TChr(z2 R30) C Pm Jg "Syn Hswort: F1) & C < : 8 6Chr(z9 40) & C 2Chr(z1 013) & . Chr(z , * (  j$p%! & !T!9) & CWorksheet not protected: "  j$p%!" ( j$p!)A@2 !V!Chr(z2h u h  j$p%B@ze = Tr !V!chlssh d ~'b &AB (AB *ABe """ ,ABpe).Na .ABolgrei 0AB")" & 2AB! 4AB 6ABonymes 8AB(z1) & :AB & Chr < ~hr(z6) F0112) & H01) & Ch J01 P0118) & R01) & Ch T01&' V01 X01 Z0124) & \01) & Ch ^01& Chr( !1) ~'d !T! Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@.hr(z30h !V! Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@2z7) & Bentigte Zeit: A@2hu hH ^ Chr(z \z25) & Z& Chr( X(z28) V & Chr T 0 R P N J & Chr H(z2) & F Chr(z Bhr(z7) < : 8& Chr( 6(z11) 4 & Chr 2r(z14) 0) & . , * () & Ch &hr(z18lf d b Long Time$' `, !!f Ch 6 !(fa0 !!f  6 !(f) & h` !B@&f !Z!f'X X  -  6= SBlatts'ff*`?uZ !!ux>hp>***X> ~'b & ~ &$ B@ &A@0 & ( ~ & ($ B@ (A@0 & & ( * ~ & ( *$ B@ *A@0 ( & & ( * , ~ & ( * ,$ B@ ,A@0 * ( & & ( * , . ~ & ( * , .$ B@ .A@0 , * ( & & ( * , . 0 ~ & ( * , . 0$ B@ 0A@0 . , * ( & & ( * , . 0 2 ~ & ( * , . 0 2$ B@ 2A@0 0 . , * ( & & ( * , . 0 2 4 ~ & ( * , . 0 2 4$ B@ 4A@0 2 0 . , * ( & & ( * , . 0 2 4 6 ~ & ( * , . 0 2 4 6$ B@ 6A@0 4 2 0 . , * ( & & ( * , . 0 2 4 6 8 ~ & ( * , . 0 2 4 6 8$ B@ 8A@0 6 4 2 0 . , * ( &lh3 d b Long Time$'f030 ! ~'d !T!Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@.hx2 !V!Tabellenblatt " $!" ( j$p!) wurde erfolgreich entschlsseltA@2Synonymes Passwort: $  $  $  $  $ $ $  $  $  $A@2Bentigte Zeit: d$A@2h 1u1h1Z 0 !() ~'dh0***0 ~'b & ~ &$ B@ &'0 & ( ~ & ($ B@ ( & & ( * ~ & ( *$ B@ * ( & & ( * , ~ & ( * ,$ B@ , * ( & & ( * , . ~ & ( * , .$ B@ . , * ( & & ( * , . 0 ~ & ( * , . 0$ B@ 0 . , * ( & & ( * , . 0 2 ~ & ( * , . 0 2$ B@ 2 0 . , * ( & & ( * , . 0 2 4 ~ & ( * , . 0 2 4$ B@ 4 2 0 . , * ( & & ( * , . 0 2 4 6 ~ & ( * , . 0 2 4 6$ B@ 6 4 2 0 . , * ( & & ( * , . 0 2 4 6 8 ~ & ( * , . 0 2 4 6 8$ B@ 8 6 4 2 0 . , * ( & d b Long Time$' !T!ime.Ph !V! j $0Fug'J E j $0Fug6$hhf Time needed: d$A@2" (# j $0Fug0" j $0Fug0t) j $0Fug0at j $0Fug0ppZ j $0Fug j $0Fug j $0Fug j $0Fug(ZSynonym password: & (?A@2HQSynonym password: & ( *?A@2$HQHQHQHQHQ[ j$p!r j$p! Z lZ B@ ZWorkbook not protected: " j$p!"A@.[Synonym password: &?A@2 j$Synonym password: & ( * ,?A@2EXxZZ J HQHQSynonym password: & ( * , . 0?A@2 HQ HQSynonym password: & ( * , .?A@2 (Synonym password: & ( * , . 0 2?A@2 Synonym password: & ( * , . 0 2 4?A@2 0Synonym password: & ( * , . 0 2 4 6?A@2ms>W\Trying to decrypt workbook " j$p!A@2 ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|\Worksheet not protected: "  j$p%!" ( j$p!)A@.\'('*','.'0'2'4'6 Worksheet " $!" ( j$p!) has been decryptedA@.ully\Z( 8P\Trying to decrypt workbook " j$p! l(|Trying to decrypt worksheet " $!" ( j$p!)A@2" ( ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(| ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|" ( ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|j$p ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|~` ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(| - ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|ry to Trying to decrypt worksheet " $!" ( j$p!) -  ~$ l(|crypt X ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|oma ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|x{ ~$ - Trying to decrypt worksheet " $!" ( j$p!) l(|ywvtwx`#l8aNo component(s) selectedA@.a Workbook " j$p!" has been decryptedA@.fupa Workbook " j$p!" has been decryptedA@2 Worksheet " $!" ( j$p!) has been decryptedA@2aZXxa B@ B@ B@ B@ B@ B@ B@ aa̴Attribute VB_Name = "Decrypt" Public LogModi As Boolean Dim Start*Date Sub MainExprt() F4rm.. 0End Zhppe(ArbMa8On Error GoTo /a If Workbooks/.ProtectStructurFalse Ag0WindowFszThem G4]Cbxutus.Valu.lTr  "5 not pJed: """ &]&<IfwBAC?Exiti `_%TActiv App@ation.NBarATryin@g to dØ ws!HFCReptjIH?!Gh!Resu@Nex$@=@= TimWith HeOA. Ed:=, passKd:="a.UnD &DE Y[P9`:chas beenBed_a< Hao8"" v !9 needy`yZeit(%c`fA:Blatt<, @B az1®yte, z2Uh3h4h5h6Uh7h8h9h1>0!HaSh8eet²c%NCo`ntent߬߬taƬs D. ()RRbڟD^^^Ss8/ ap& - ?7!9r2Oasog_K.=i .5 C#s.v # @tcc 1F0P@ = 32 12n6QPvwe`C`hr(z1bh z1 rTesFtt)py֌ !_|S|PP"uQ}!pQ 1݁2!2P _"` R2R sArb?1+- LT&{&owm3B'cti& B3De3S9/(*(_¥o(o(o(?1o(`("= w)zqk4/-(-" t4v% 4x@.08``ދ.ACd&".O CBC=T5_P"ZP]&A@3lz4@B455G A4) StatusBar = Zeit(Time) & " - Trying to decrypt worksheetP """S,s(ArbBlatt).Namez:(@W`bookFMappeF )" Ne`xt z43 2  1 @For z11 To ! 2 3 4 - 5 632q>126IhA ctive.UnprotecrR1z2345Chr(z6)"x -If 0Test, AGTrue Then Exi t Sub )Application.L:5*A?#9 KI7%ċ7ً lz67 O7SC" G!dC?J?J+=G_1b^F:!:-`ǀp /)t06TDp2Tt"$ t  Tcd]/Dt5T\K: ,0d%t"$ t d0WTD:  %"$  D   >F:!:-`ǀp /)t06TDp74O9 th:doh T`D /6TDpz \(T4Dt0TDpD=:D+N44o kT$ *$Ott6T4$ XD$ T4$ /dh"$ h lld0/dhU!h"$ h hhXdh"$ h lld*#`*#X\"$ \ h2d`X)h\h"$ h hory $(l d`Xh\+dh"$ h l>dFDThT#d]/d/D 2D:4$F96D$=  x,lT dhD$MrU $`(`/,`//,`//(!` (I`0(q`0prU , p),,pA4@ITpi$`$Q`$`$`$` $Q`orms 2.0 Object Library*#2f*\R3*#15*\R1*#b4*\R1*#ac*\R3*#28*\R0*#e*\R1*#a7*\R1*#208*\R0*#c*\R1*#c1*\R1*#c2*\R1*#b8*\R1*#20b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#53*\R3*#1d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#6e*\R0*#11"*\Rffff*338d4ceedP-(^0($X0 $A$<$F$$ $FP$ $pow$F$nt$Pom$F$xJ@s SHGetPathFromIDListAJ@SHBrowseForFolderAJh,ShellExecuteA$~5 r ~5 r ~5 r #~5 r x: xb#~5 r $~5 r (x22]pt\x|[elmnr^fghoq_@SPSSSH80,<<< <$<(<,<0<4<8<<LLLLLLLLLLLLLLLL0L 8>"*LLLLLLLLLLL*LLLL < <$<(<,<0<4<8<<<@ ^^i@ \|iB 5?iD >iF0 ziH{  b @ @@b B B@ b D D@b@ F F@b H H@$$$bLL@ $$$$$$$$$$$$!fX $$$ $ $ $$0 $$$$$8 @ $ `3k%%,0`5o99Cp`Z\k11|?v`R,k 22~,`PAo##0`Uk p`Sk Zb(`Mk *Gf \;;`X`Tп2`PF7`$N/wp^h `4@k  @ `Pdk$ Q# `(Fxk(U3kA( `pG,k,YfO h `|J0##k7f (` =hk4=ir g4miliif֒p`>Hkh8?ir Nil<3iif3w)j ` ?Hk(<Hir H8ilh]>>>l >@x @?h @X (@H H(h??@?lH@x@ C@x @ @h @X @H h@A A@l @@x @8Ah @X @H (C@CBBhB8BBC9j$l@ Bp @PBl @C\ @X @BH @C8 @B4 @C0O `BB@, CB @XC( pCC` x`X v @$O CXC@ @ XCAT.H(DDDxDlD0O@x @Dh @X @H EEEEl(E@x @Fh $@fl @X @H FFt@x p`fZl @(Gh @Hd @T IN.01HXHG(H@GF@P @@H@ @0 @, lj$l@x @Xl HXIpH@h l\ @x N3(E(hHIXJpJpI@Jh @X (@H XKpKK@Kl@x @Kh I@X @H l@X@x @h l8Lx@x Zl@Mh G(KKK@X @H $XhK0M(hHL0LLLNO(ONNNNXGNH@<`Z(E @$ @  @pO @fl @@O @XO @O @ @ @ hHpPPPXPl@x @Ph p@X X@H QRpQ<@Qx @Qt @Qp @Ql @h @d (SRRpSHS0S`S@St @Sd @T @P RL M`XHS@< @S8 @S4 @S0 @, p9@:UTUT0UTHU@Tp @Tl @U\ @X p@UH X@8 @XU4 pU0U@0O UXU@, XU%@ :(:XWxVVVW`V W@Vp @Vl @W\ @X @VH @8 @0W4 HWW@0O pW0W@, 0W@ (PXhXX8Xl@t@x @Xh @X @H   `Z|k@hHYYYYlh@x @Yh @X @H Z E0\[[[^h]]]lp@\h @]X @[H @[8 >@\( @\ @H\ @ @`\ @x\ @\ @\ @\ @\ @ @P] @ ] @p h[@l @]h ]h]@]dO ]]]]@` `]8]@\ Y##phH'Hh$022|DSH1MET  (08@HPX H` Hp H, P! (!`!  "   "x0%22.(2X.84(E0HFPh4%pEF2%E 8F@X6%`EF0%E F(@>]H " !  &.-G #( @HP Xh-pG#   :(E0 H P X` h px "     A(.@0 `hJp "  N    @ 8  :H h Ep         4         A 0 .@8  h p Jx       T     "    &5 H (5P x                ( 8 H P `  h p  x       "   4 ,  "   0  8  H X ` h  p x " @ K   Y    (0 8 YH 4  ( (8 H,X !CpI " p! K( YH*hx    CIPp "x K Y*   08 @C(IPp "x (   ,)  8%@.GX,G,G "*  (0 8 @PX` hp x  "VQ! "  " >`>`<`X@`:`>` X+hx   ( " , ` lN"@hh4((@$PFxF  (h     0 @ P ` p        "  ( " VUhP " X>U` " h0U p " x:U " \U  " \U "  ( "  ( "   ((8 " @vU " UX " dU  " (8U0 " 8~U@ " HJUHP " X (`p " x ("xhl[[[[[[([@[Xm p"P ""2Z Z Z!"##'Z$Z Z H'Z(ZEX B@ lp l l l0 lxp lh 'fExprtSettingsXlstart$nExprtSettingsXlstartFalschA@` ExprtSettingsXlstart2FalschA@`ExprtSettingsStatusWahrA@` ExprtSettings QuickInfoWahrA@`ollExprtSettingsLogFalschA@`ExprtSettingsLogPfad C:\Exprt.logA@`ExprtSettingsXlstart$nWahrb %!(a %!(hpExprtSettingsXlstart2$nWahr %!(a %!(hExprtSettingsStatus$nWahr %!T(a %!T(hExprtSettings QuickInfo$nWahr %!(a( %!(hExprtSettingsLog$nWahr %!V(a %!V(hExprtSettingsLogPfad$n %!Z(flP Fug' '  p !$' !! l!\$~'f\  f$h ~'f f"hp !!* l!\$~'f2\0  f$h ~'f fh ( %$ ...'h %!.'''A''A'  ! worksheet: !''A .   %! 9Q?    !9nxap  %!(hHl@0 !( Open file l%'f fuhd f pB@ . !$' ( %$ ...'hp %!.'''A''A'  !'A .  %! 9Q?    !9n`aX  %!(h0.AAAA  %!B@.udlp  Forms.Label.1 !%.aForms.checkbox.1 !%.hP  '   '  '' b  'a  'h   ' b  'a  'hh  9  9a8workbook9h  9  bCbxS  9 !!9aCbxW 9 !9hX 5(h099nl %!! ' !(  %!! !CbxW* !'X !'j j $BhhHh@   %!! !!F4email to author: Michael Velten l(|gd !'X !'j ! $' j  $BhXhP  l(| X  !T! %!B@&hh !CbxS*4email to author: Michael Velten 5 (  %!( l0 %!! '  %!! ! !CbxW* ( %!B@&Z9@:okZHhxap !CbxW* (h@h8  %!B@&Z(C@Crd %!( l 0 %!! '  %!! ! !CbxS* (h a !CbxS* (h h  %!( l pZZZ 9 Please choose path for log-file:9nx  ( $'$ '  $'  $ }'$  $ $ $ $\  $ $ Exprt.log Z(fa  $ $ \Exprt.log Z(fhp hh l` ( V! Z9( r9nn(  ((a 'f Z9( p9nn ((h l hlh  A@tlH ExprtSettingsXlstart %!!A@`ExprtSettingsXlstart2 %!!A@`ExprtSettingsStatus %!T!A@`ExprtSettings QuickInfo %!!A@`ExprtSettingsLog %!V!A@`ExprtSettingsLogPfad %!Z!fA@` f !Z!f'X X---Sh` l(|lH------O-p-t-i-o-n-e-n-------( !! Tall files of the Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu5( _all files of the additional Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu5( Bshows information on all decrypting operations in "status display"5T( shows infos like this5( \creates a file in the directory listed below containing information on decrypting operations5V( 'changes directory for creating log-file5(  exits program5 ( decrypts selected components5( opens an additional file5( 9selects all open workbooks in "Workbooks/Worksheets"-menu5( :selects all open worksheets in "Workbooks/Worksheets"-menu5( na 5( 5( 5T( 5( 5V( 5( 5 ( 5( 5 ( 5( 5( 5( nhlh l(|l( !!F exits program l(|gllHlhl( !!Fshows infos like this l(|gll0 l(|lh l(|lH l(|l !!F'changes directory for creating log-file l(|grksheel` !!FBshows information on all decrypting operations in "status display" l(|g lllHlHll l(|lhH l(|lH@ !!Fdecrypts selected components l(|g !!Fopens an additional file l(|g !!F:selects all open worksheets in "Workbooks/Worksheets"-menu l(|g !!F9selects all open workbooks in "Workbooks/Worksheets"-menu l(|g !!FTall files of the Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu l(|g !!F_all files of the additional Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu l(|g !!F\creates a file in the directory listed below containing information on decrypting operations l(|g l(|"DatName 9(# worksheet: !'"ZO'ZZZZZZZZ    @ X"Z p'(!Z8*-utZ:(:$No components selectedA@.Openmailto:#Michael Velten A<#RhR Attribute VB_Name = "FrmExprt"  Bas|0{DA4102F8-96F3-11D4-A40B-00C0DFF3720C}JEDJ dCreatabliFalse PredeclaIdTru "1ose@TemplateDeriv%CustomizDP Type BROWSEINFO hOwner As LongpidlRoot szDis?ySlpszTit| ulFlags!"lpfnParamiImaDgeEndZ ( bD Function SHGetPathFromIDList Lib "shell32.dll" _6Alias "P A" (ByVaLl ?E , snz>)E\&BrowseForFoldY% A%lpInfoAo#!mailto UD DJExecsBhW`u,PDDlpOpera`}KlpFiɃ}eterCTDirectxoryA;onShowCmd#! Eublic SteuerelemenYControlArbMap@b;`Blc DDiTktuI1aBoolean(, A2Da˂MWSc Hhe Single,  IDjrbeitsmeWorkbook, T[@[Z ZG_teNrcZQqnei] On Erro@r ResuNw6dr1Q 4F0Mid, 1, 37)P ... PK Ŵ=o60).'yc AM"=s% l C all NQButtoShb_erY&32:1Sheett33"w¢: "3 2 O ?e Noth /:!"_) A,#6 With MultiPage1.(s(0).FrameWorkbook .ScrollBars = fm8Vertical RHeightV(1 + 0.14 * (AnzTab - 6)) j.2GEnd Else.Keepisible NonO1If  Sub Private  Cmdffnen_Click()ADim Di Me..TakeFocusOn9;Fa]App&ation.GetOpenFilen(Ti@tle:=" f "9If8' ThenExitUf On Error GoTo v s./1 Set Arbeit smappKActiveID@@UCase( .N@.)Len(ID) > 40H)Mid, 1, 37) & " ..."K."RahmenAM@ FYWSI8Tru?Call NeuerButtoBPC KFXEach elIn LGSheets9 A"wsA:@@&Q 0! -NextE MNothing@> 6d#___?_?`M_FNh'.cbx`5_changGIBaH ,f!Mon{%@xhDŽ:6cf As ContDlKSQ= +.ds@.Add("gms.Label.1?&che:c-xǁ D_=+ 1bZhler% SPrpfixSuf0 %z.S  "WWk": C f Hhe1 3<8q 27F& 3 .TopU3 <> Nc CapArI~DU4d Gn`Lef11 Xt0ql"!"j [CbxS=#&$ Tag@crent`  WW9@?F=.BoldQ ds Wid`= 23$[1C"OFgEntschlsselޕ%FS@lle, Ausgewaehlps Boolea{=a]ԫ'QCJ= fv~Stelet ~o[FOq:" Like r"*"J0&Vxalu+Nh=4#)P!M(WoDecrypt.(Fy!Qoo_Bso{ 0fSooTorbo!:j0BlataF1TL`264.rb"?P ?1Status۰9, % 5T.X'1pL. "No co,mp0P= =ec8tedX Resume0xt 44`es7?BII(׏FHsI?H?H4H11112EC?,)nt.Name Like "CbxW*" Then SteuerelemeValue = Trues "@End If>ElsRIf 3FaS kwNext kMulti@Page1.s@(0).FrWorkbook.SetFocuscrollTobpHhsFSub Pr@ivate  c1sheet_change(B)1Dim  As Single, sBoo8leaÁ=  _HFor Each In $Cont6A rv E0.IxS@J|g%âeCmdLog_ ClickbInfoROWS`EINFOAAPathAStr`NRALong,$ XGPoQIn tegeraWi  .pi@dlRoot`0&dlpszTi$tl"P@Yse choopfSlog-file:":A a .ulFlagQ&H1X SHBrowse[Folder(i= Spac@e$(512RGetFromIDList(ByX X, XRZ =f%(a, Chr$@ cMid`(Left!-` 1), % ""\+Txt6.T =  & "Exprt.$"$ \.F-SO~J#"C5!.Enabled i.BackStyCfmOpaq%B \ g"Modi@ hx{}Transpar< X,eMail_cvCall mto(0&, "`Open"c:" + "Mi`2el Velten Ad1T18T`!9rmIi . t% Ap/dqh#_DA nt #11---4QClAeC7 p5ation.BarA/1r3 'F_Cx Me)<F3 qX,DTipT_">ps of the /-directory wia0Abe l k`Tibnr""WИas/s""-Pfu2.addial?P$2oshI| iЊrm on decrypCoperbs ""pC8 display""*7s Ppthis0("creNs a Agbelow cгain5l / on"cxsu!B Q ]"exits prog:Entschl@sseln"9 s *)componqh m"eql to author: l\chlE4.֬ff"!np#', bx%3" 6 w5&66qsQ??1D-Ot4AKEWRNNA}iAt.ControlTipText = "" .CbxXls tart2StatusJQui@ckInfoPL$og"md "Be endenIEntschlsseleMail!'ffn:bxWorkbookC&sheeEnd With!If Sub Pri vate  UserForm_MouseMove(ByVal Button As Integer, Shif tXSingTle Y)"Application.ÇBar@False(X''If MeIBue(TrThe@D1"em to author: Michael Velt fC\md?@?@  decrypts fected compo`_tsr_PU{P#s 3keP5iߞ 1p        *"crepnP B-gBAAbelowpntainj!/!onbڰue = Tr`Then Application.StatusBar"changes directory fo r creVng log-file" End Sub P@rivate FrmProtokoll_MouseMove(ByVal Butto}s Int@eger, S@hift AXSingle*BY) FalseAnz0eigeRR__SRP_2 <__SRP_3_VBA_PROJECTodir3           X%'l% #h 0/h5lEc<%L(P%`d! d ` $LWl)d`L5lXFf<%L(P%`d! d ` $LWl)d`L5l%'l% #h 0/h5lEc<%L(P%`d! d ` $LWl)d`L5lFf<%L(P%`d! d ` $LWl)d`L5l%'l%  #h 0/h5l~Ec<%L(P%`d! d ` $LWl)d`L5lFf<%L(P%`d! d ` $LWl)d`L5l%'l%  #h 0/h5l5Ec<%L(P%`d! d ` $LWl)d`L5l}Ff<%L(P%`d! d ` $LWl)d`L5l%'l%  #h 0/h5lEc<%L(P%`d! d ` $LWl)d`L5l4Ff<%L(P%`d! d ` $LWl)d`L5l]'l% F%L(P%`d! d ` $LW,)d`L6l,`$4 (hd`Ll,lK @ @ L&h"$ Qh[dX` k.\_X  >\FL< !<`T6L<-Lh h Lf,]/<h5L\JG\ h"$ h #l\$*FL "F '%'%'%'%'%'%'%'%'%'(%'8%'H%lh"$ h <k/)h6H8(h"$ HQhX@h"$ Hh  >FH8 !8`Th6H8TJ(:(H%TMX@8 %8:p&(`T6H8(El(X%h! ih  $lWH'(l)hl5H F H D ) D F ) F4h"$ Hh  Q[h\hd*+_\ H*l*TrU 8# mQ i)aB!I Iq YqIIq9CA y 1$!;)&)%q## $#1"I&i/i /++@ 'aDIEqE 8:EF )G G HiHH6I>HI?AIi!!!Y"""" #1#Q#I J9 <K !A!BBC9CBp ]]]`Qt``x\\\`| 9 `a [[[ ``  ) ` ``YQ q eee`  ) lll I mmm``YQ IA nnn `` Ia `` i rrr` ^^^` fff ``Q  i ggg I! hhh``Q  )9 ooo `` Q qqq ``Q ``  ___` 'q5q'g'g_____ _    D $ z%'l% #h0/h5l / H )\d*j c=(l `cAl(X%h! ih  $lWH'4`)hl5HX%`,@\h! ih H-Q?`볫n\kX%`.h `J%l(X%h! ih  $lWH'/)hl5H c=(l))))T'H%%l(X%h! ih  $lW8'l)hl6H8 c= X D4>hd`lLhlH8(8 DG5P'T%'d%[t_l L(t h\QPxt6dT~5P'T%'d%]t_l L(t h\QPxt6dT`` Dbbhh f Hffdd FL 뫛LJ H8L뫛LJL뫛L lxLLL - FTF<%L9:<^%L9 7L h- D"_b#8*#4L p-284 HI4`h#8*#4f#0*#,L p-2840,,t_\ $*tWda`#8L -/8t5d"bd#8*#4L p-2848_X  l8L -/8 Dc<%LWdcd5d7L -7L D- LP,Lx,840,tPdT\KX(\%lp! Gp l $XWH'W84*sx)plX6H8p p pYX(\%lp! Gp l $XWH'W85444)plX6H80-:,_4 t-l,6~/,)_4WHc\]/85H\'pv,_4 ->,88M\@ 740-YX(\%lp! Gp l $XWH'W854(4)plX6H8$-K,_4 t-l,8~/,:_4WHc\]/85H\8pv,_4 ->,84_4WH9'8 H %`<6H8<M@8M\@ :4$-(f\% p"$ p #p kv,Hp p Hc\]/8p5H\HC,,H ;/,5HKCX(\%lp! Gp l $XWH'=)plX5HInxj%X(\%lp! Gp l $XWH'4)plX5Hx\440($(,plXH8,KX(\%lp! fp l $XWH'W84*sx)plX6H8YX(\%lp! fp l $XWH'W85444)plX6H80-J*Hp! fp     I !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJ^aMNOPQZSTUVWXYL[\]gbcxh`fnkijlmospqrtv wHc\]/8p5H\,_4 t-l,6~/,c\%_4pv9,_4 t-l,6~/,7f\%_440-CX(\%lp! fp l $XWH'=)plX5HInxj%X(\%lp! fp l $XWH'4)plX5H`,940$,plXH8,KX(\%lp! ep l $XWH'W84*sx)plX6H8YX(\%lp! ep l $XWH'W85444)plX6H80-J*Hp! ep Hc\]/8p5H\,_4 t-l,8~/,c\%_4pv9,_4 t-l,8~/,7f\%_440-CX(\%lp! ep l $XWH'=)plX5HInxj%X(\%lp! ep l $XWH'4)plX5H`,940$,plXH80\qH H LTH qH ql,\(N(^Mq$<(\ Nl$qP(N O1X)lX 4l lP^Pq$,F@lhl#,]/, 2:TE9=(fT% h"$ h #hP(l$,hdP@00 (  d0(fh% x"$ x #x0$ x\,hx x hcX]/Hx5h\W):XF% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):X2% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):X>% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):X?% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):X3% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):X0% x"$ x #xt24\$W xhHd0(fh% x"$ x #xcto0$ xd0(fh% x"$ x #xed 0$ xd0(fh% x"$ x #x0$ x\,hx x hcX]/Hx5h\W):XU% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):XI% x"$ x #xyp4\$W xhH\,hx fx hcX]/Hx5h\W):Xg% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):XJ% x"$ x #xte4\$W xhH\,hx fx hcX]/Hx5h\W):Xh% x"$ x #x4\$W xhH\,hx x hcX]/Hx5h\W):XK% x"$ x #x4\$W xhHd0(fh% x"$ x #x0$ xd0(fh% x"$ x #x0$ x4 8 <t     |tpx !"7$`$ `$I`$ ` $ `$$  `($I `, $ `08`4$!9Qa 8 `8 !9Qa 8I`< !9Qa 8`@ !9Qa 8`D !9Qa 8 `H !9Qa 8I`L !9Qa 8`P!9Qa <`T q!9Qa 8 `X!9Qa 8I`\!9Qa 8``!9Qa 8`d!9Qa 8 `h !9Qa 8I `l !9Qa 8 `p !9Qa 8 `t!9Qa 8 `x!9Qa  4@I48@8<@< p/0* pHdVBAExprt4EXcel Password Removing Tool@8BXcel PaswoPrd"R2mvingUT o-;=    9J %<9s@tdole>s 17z18z19z20z21z22z23z24z25z26z27z28z29z30StartEndeCDatei1(MappeU?ArbMappek Application*ScreenUpdating!  WorkbooksBProtectStructurefBeepMsgBoxR vbExclamationActivate| StatusBarʜTimeActiveWorkbook Unprotect?ChrK~vbCrLfZeitK vbInformationn(Blatt3)ArbBlattISheets ProtectContents ActiveSheet%N FrmExprt  NeuButtonControlAktuell1[Aktuell2[Hhe1Hhe2ID]Rahmen ArbeitsmappeTabelle WS_AnzTabrZhlerW: ZhlerSSuffix!ZhlerD9AM\Dat ZhlerSPrfixK SteuerelementeCmdffnen_ClickRGetOpenFilename]? MultiPage14?Pages FrameWorkbookT NeuerButtonW Worksheets ScrollBarsfmScrollBarsVertical_ ScrollHeight(jHeight|KeepScrollBarsVisibleJjfmScrollBarsNoneScrollfmScrollActionEndKcbxWorksheet_changeXcbxWorkbook_changeD"CmdEntschlsseln_ClickوControlsKValueKTag&CaptionxUserForm_ClickMultiPage1_enterUCase5 AddrTop5ParentFontUBold CbxWorkbook  CbxWorksheetyCmdBeenden_ClickK eMail_click"WorkbookkUserFormNLabel1,CmdEntschlsseln& CmdBeenden5eMailFrameWorksheet3Label4,Label5, Cmdffnen TxtStatusLabel6,ClickEnterChangeShow _B_var_UCaseaItemz_Defaultj _B_var_Time$ _B_var_Chr\; Worksheet _B_var_forjLTest4letzteBuiltinDocumentProperties_aX_B_var_aErstellungsdatum>_B_var_Erstellungsdatum2Right  _B_var_Right9 _B_var_LeftQ Erstelldatum Funktionenu(DruckenAOffset _B_var_OffsetR% _B_var_DateiDateai[ _B_var_Dateai^Dateit\ _B_var_DateitDruckentzU _B_var_EachcActiveWorksheet_B_var_ActiveWorksheet`Zelle _B_var_Zellel _B_var_SubDrucken2XU _B_var_Do _B_var_Loop _B_var_OpenlAnzahl _B_var_Anzahl _B_var_On6 ErrHandler }_B_var_ErrHandleruFehler _B_var_Return _B_var_GoSubx _B_var_StartWeiter _B_var_Error)Makro2D| ActiveWindow+SelectedSheetsPrintOut.Copies?Collatesleep _B_var_sleep _B_var_Copies _B_var_setp PrintPreviewMakro3E| ActiveWindo_B_var_ActiveWindo activewindows+_B_var_activewindowsBltterSortieren sjDone Count0va^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\Programme\Microsoft Office\Office\EXCEL8.OLB#Microsoft Excel 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation*\G{8228A488-4FBA-11D4-A40B-00C0DFF3720C}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{0F58E7EF-F924-11D3-A915-2C9583C90000}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAMME\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryH 8EXcel Password Removing Tool9 Exprt_ 9738d11eb2*D) )8 Exprt 1739d5fecb*D1) % Decrypt 338d4ceed*D$)խFrmExprt 3139d5f36d*DP8 aP,`aP,aP,p,,Pu[,paX_8p_Xp_xp_8,X,PxfPAppend as bbyrefByteByValCallCase.Debug0Declare=DimCeachDElseQexplicitRfSFalseUfor^Gosub_Goto`IfcindInputlIs|MenewnotNothingoptionoptionaloutputPrintReDimSetSingleStepsubthenToTrueUBoundUntilWhileWith Excel+ VBAWin16~Win32MacPERSONLmv stdole` MSFormsC VBAProject OfficeuModul1 _EvaluateMakro1C| ActiveCell FormulaR1C1SRange DieseArbeitsmappeTabelle1R DecryptVz1`z2 `z3 `z4 `z5 `z6 `z7`z8`z9`z10z11z12z13z14z15z16zMove>yBefore_B_var_DeclareM MessageBeepnNeUser32* GetWinFlagsAufrufKernelKernel32_RufendSXo _B_var_Call_B_var_xd[_B_var_dkjlkB _B_var_kjlk/AufrufyJ_B_var_AufrufyβcalB}Modul2 CharactersrgLengthY FontStyleSize Strikethrough" Superscript SubscriptV OutlineFontOShadow UnderlinexlUnderlineStyleNoneNd ColorIndex xlAutomatic@Worksheet_SelectionChange4TargetF Verketten2_B_var_FunctionOText1~Text2~Text3~Text4~ _B_var_Text4BText5~ _B_var_StringӊZeichenA_B_var_Zeichen5Gesamt _B_var_Gesamt _B_var_MidpWorksheet_Calculatete FormulaLocalDFormel#Antwortj_B_var_AntwortFormtet _B_var_ifP CheckBox1SetFocusEnabled۪FrmÏFrameWorkbook_Click`(Status+Message_B_var_Message# _B_var_TextMeldung_B_var_MeldungDisplayStatusBar CommandBars Visible CheckBox2 CheckBox3 CheckBox4 UserForm1)Frame1Frame2Frame3CheckBox3_ClickMTextBox1SCbxInfo CbxStatusDCbxLog CbxPersonlTxtLog  CbxLog_ClickC& CbxLog_change2\ BackColorރvbWhite^KTextBox5S Copyright!/cZQBColor8FarbCodeb BackStyleqfmBackStyleTransparentyfmBackStyleOpaque OptionButton1k@ OptionButton2l@Frame4 AusfuehrenoneventsU_B_var_oneventsd-onevent_B_var_onevent}Val applition_B_var_applitionFormulaqY_B_var_Formula\ FormulaLoca BerechnenD BerechnetD_B_var_Berechnet*Ndie Instruktionenowelcheeine*links _B_var_linksvo_ArchivArchivNGs NG_FunktionenEu NG_ArchivVerzQ6ChangeFileOpen DirectorymGDialogswdDialogFileOpen_B_var_ChangeFileOpen_B_var_Dialogs xlDialogOpen SelectionZ NumberFormatR _B_var_Format Formatierung:_B_var_FormatierungFormatierungZurcksetzenSetzt _B_var_SetztoDeleteNumberFormatEintragڧinvCvm_B_var_NumberFormat1_B_var_Eintrag^i`_B_var_i SendKeysNEvaluateT_B_var_b_B_var_c _B_var_ToFormateEntfernen Auswertung_ Text_teilen?alksdjfb7 DateiPrfenVexistM _B_var_exist DateiPrfen2=\Datei1\VorhandenseinPrfen4>VorhandenseinPrfen2=Esle_Msgbx _B_var_Msgbx _B_var_Esle.DatName*_B_var_DatName .wurdecsNNFjgDeleteCustomNumbersFormatsgetCustomNumberFormatswb_BOF_LBOF_UFMT_LFMT_UU_IDXEOF_LALEOF_UJLdrvstpfoldhFile#lngLen[fIs97| NumFormatsĞsepjsPath CollectionWwbAlngBegin4lngEnd/r PathSeparator5 FileFormatxlWorkbookNormal xlExcel9795V SaveCopyAsTLOFcFindBofGlobals FindEofMarker getFmtRec:AddToyKillh_LbytevUbytef97reclcoftkbytAbytBja vbNullString getTwoBytes getOneByteOgetFormatStringUbytaLbytnbytzkeyrecAVoffsVbifvwgbl>placem! _B_str_MidX _B_str_Chrm#Modul3Sortkey1OOrder1o xlAscending`HeaderMxlGuessY OrderCustom| MatchCase Orientationw xlLeftToRight>Columnsp9RowCellsRowsU SortierenmMakro4F|SortKey1_B_var_OrderCustomn _B_var_Key1|xlNoOpenText«FileNamejOriginF xlWindowsStartRowDataType%? xlDelimited TextQualifier xlDoubleQuoteConsecutiveDelimiterxx SemicolontComma0KSpace Other FieldInfoarryD _B_var_arry  Zhlen_rotLBereich2 Zhlen_FarbeFormatvorlagenSelektivLschenStyles pFragevbYesNovbYesa?Deletex_B_var_Workbook3 Blattnamew_B_var_Blattname>ei] KonvergierungWCrackItFVBE _B_var_VBE  VBProjects' VBComponents ' CodeModuleLinesZeile _B_var_Zeile\ ActiveControlyletzteCheckbox_B_var_letzteCheckbox> lCheckbox Optionsfeld9#CheckBoxi{_B_var_CheckBoxqC_B_var_OptionsfeldOptionsfeldFortempR _B_var_temp LetztesSElastSEU _B_var_lastSEtxtOrt _B_var_Ort|Position_B_var_PositionPos _B_var_pos ScrollBareCommandButton1|CommandButton1_ClickGetSaveAsFilename ExprtrLogd _B_var_Exprt6Hellof _B_var_Hello* _B_var_Status;mailtohWnd/ lpOperation8lpFile lpParametersZ lpDirectoryenShowCmd shell32.dll+Statu  _B_var_Statu5_B_var_sDa\ MultiPage_B_var_MultiPageMin ReturnBooleane DataObject ReturnEffect"HeMail_BeforeDragOver0CancelData;Yl DragStateEffect|ShiftBeforeDragOvereMail_MouseMove=8Button MouseMovevCursorlxlIBeamފCursorMovementӤCustomListCount xlDefaultwQalkjsdffmScroolActionBeginQ>fmScrollActionBegin>P_B_var_fmScroolActionBegin ComboBox1'ListBox1 StartupPathiajskdf startsjdf|AltStartupPathGetCustomListContentsNxlDialogColorPaletteBMxlDialogMailLogonTaxlDialogShowDetailxlDialogAddChartAutoformat& BROWSEINFOYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageUSHGetPathFromIDListKpidlpszPathSHBrowseForFolder" lpBrowseInfor DirAuswahl[msgQ getdirectory$bInfoPath2Ri IsMissing _B_str_Space GetUserNamelpBuffer>nSize} advapi32.dll}0 ShowUserNameBuffer-BuffLeni _B_var_Typese_B_var_Optional>CmdLog CmdLog_Clickۥe\_B_var_DirectoryPPfad, _B_var_PfadGtooErroNumber-TakeFocusOnClick TabStrip1z SpinButton18 vbCritical+}MultiPage2_enter9 Pages1_enterm LblWrittenByiH FrmProtokoll FrmAnzeige CbxXlstart CbxXlstart2c CbxQuickInfoFrmStatusanzeigek% VBASchutzSendKey:_B_var_SendKey>kkkk aksjdf&  ProjektSchutzkjasdf>ActiveVBProject[` ProtectionModul4 PageSetupPrintTitleRows1sPrintTitleColumns PrintAreaP LeftHeader CenterHeaderD RightHeader LeftFooter CenterFooter RightFooter|S LeftMargin]InchesToPointsI RightMargin[ TopMargini BottomMarginu HeaderMargin8 FooterMargin PrintHeadings)nPrintGridlines@ PrintCommentsxlPrintNoComments PrintQualityxbCenterHorizontallyCenterVerticallyI xlPortraitDDraft: PaperSize xlPaperA4cFirstPageNumber%OrderAxlDownThenOver BlackAndWhiteZoom _B_var_WithY SaveSettingappnameKpsectionGsetting| DeleteSettingFullNameОaklsdjf GetSettingInkrementierung^X AnzahlAlt AnzahlNeu0_B_var_AnzahlNeuu_B_var_AnzahlAltFortlaufendeNummer"B FilePrintICbxXlstart_Click5SettingsJXcbxs}Value2FrmExprt_enterUserForm_enterUserForm1_enterG>UserForm_initialize5c initializeNFalschڦ _B_var_FalschD!FramemdvaleuIaaar _B_var_aaa/ PathTxtLog9UserForm_TerminatelD TerminateyLSchriftarten_auflisten[ UsedRangeȉAddress SchriftarteMSchriftartSuchenS~ Schriftart localaddress localadress AddressLocal_B_var_SchriftartWxlDialogFormatFont xlDialogFontxlDialogFontProperties7#SchriftartAktuellO_B_var_SchriftartAktuellvbDefaultButton1 vbOKCancelx? Aufzhlung _B_var_Aufzhlung8 InsertrxlDown0DActixlNorthwestArrowW)Wait _B_var_Wait NeueStunde;xHourќNow% NeueMinutekMinuteam NeueSekunde*Seconds WarteZeit' TimeSerialStundez _B_var_Stunde5_B_var_h _B_var_zeit!_B_var_m xlWaitxlBeamp _B_var_xlBeamRemoveϱ _B_var_Donev Einstellungen|GetAllSettings?'_B_var_EinstellungenrPUserForm_Terminat3 _B_var_ElseIfqmMappe1tLCbxQuickInfo_ClicklCbxQuickInfo_Changei2ControlTipText8CbxStatus_Click.W Statusanzeige6md:^alksdjfajsdfl DateinameODateinameApplicationɳ_B_var_DateinameApplication_B_var_DateinameHappt _B_var_app1DisplayExcel4Menus#Startverzeichnis_B_var_Startverzeichnis.= programme microsoft_B_var_programme,AlleDateienDesStartverzeichnissesZurckgeben+ _B_var_ExitNextOne'_B_var_NextOnex+Weiter1TWeiter2TWeiterGoX_ _B_var_Goto8<_B_var_WeiterGo6 WeiterGehen|_B_var_WeiterGehen] WeiterGehen1_B_var_WeiterGehen1,  WeiterGehen2_B_var_WeiterGehen2-  _B_var_Weiter ERSTELLUNG ViewVBCodeClsoe{ _B_var_ClsoeasdjkfWLogDat _B_var_LogDat|waksdjf _B_var_Print _B_var_Datevaaaam _B_var_aaaaL(LogModiq_B_var_LogModiNuTxtStatus_Change BuchstabenƱBuchstabenZhlenC ZeichenketteZeicKWoche1 Tag1 _B_var_Select'E BuchstabeFLnge _B_var_LngeueTrim@ _B_var_TrimmT_B_var_Zeichenkette;(_B_var_Buchstabe _B_var_Caseund]GefundenPj_B_var_Bereichsp$_ _B_var_spLneg _B_var_Lne Leerzeichen5_B_var_Leerzeichen_B_var_BuchstabenBuchstabBuchstaBuchstΆBuchs4%BuchBuczBu\DateinameInFuzeile̅ VollstndigerDateinameInFuzeileArialYaFett DSVERWEIS ESVERWEIS@ MYVERWEISpSuchkriterium1DSuchkriterium2ERckgabespalteb|Vergleichsspalte1Vergleichsspalte2 MEINVERWEISJFrE] _B_var_FrFoB] _B_var_FoVerweis> Verweissdfd Suchkriterium_B_var_Suchkriterium)AdressDZelle2 _B_var_Zelle2y _B_var_Vergleichsspalte1 VerweistestA5o\ _B_var_A5_B_var_Suchkriterium1T aksjdfkljasf0Ch\Asc!uaksjsdfdfkljasfemsgbxoS _B_var_msgbxo _B_var_as5Ausrufezeichen_B_var_AusrufezeichenrZahl$6 _B_var_Zahlakjdflj hjakjdfljSpalte  _B_var_Spalte3Cell _B_var_CellsZeileqmkajsdL _B_var_mkajsd)Ro^ZellLZelZe`zqRang  _B_var_RangnZelle3 _B_var_Zelle3z En] _B_var_EnZelle1X _B_var_Zelle1x FindnWhatCAfterXLookInP xlFormulasZLookAtOxlPart< SearchOrderxlByRowsSearchDirectionrxlNext_B_var_TabelleE_B_var_SearchOrderSuchenZ _B_var_SuchenxlValuesoAdresse3_B_var_Adresseu_B_var_GefundenA_B_var_WorksheetFindNextu_B_var_FindNext= Suchbegriffv Suchbegrif SuchbegrivSuchbegrhTSuchbegGSuchbeSuchbSuch8Sucsu)__B_var_TextBox1/+ ThisWorkbook|_B_var_Suchbegriffh WertSuchenydWertSuchenVonTextBox12GoalSeekY'_B_var_GoalSeek!txtbox1_B_var_txtbox1/Mi?^ _B_var_MiInhaltL _B_var_InhaltX IsNumeric$*isnumeriPisnumer:5isnumeisnumisnuvisnkajdsf?heigtU ScrollLeftS ScrollTopl-Hhe _B_var_Hhe Multipage11n_B_var_Multipage11P framworkbookNProtectfDrawingObjectsߺContents= Scenariosk StructuredzWindowsdpasswordSchtzen(zu,` entfernen< Schtzen1U Schtzen2U Schtzen3U Schtzen4UWSdAfQMain,Tabellenblattschutz[_B_var_Tabellenblattschutz`aufheben|ist langsamerals.t Blattschutzf Decrypt_debugB_B_var_ArbMappe_B_var_ArbBlattҪ aksjdflkjsdL_B_var_j kb_B_var_k _B_var_l  passwortd*troaa{\ _B_var_aa# ActiveShee[!Activet#3OnShee _B_var_Space Entschlsselnd _B_var_Next'oFroŏ _B_var_FroL _B_var_Cht klsjdflksdC FileSearchD_B_var_FileSearchBof^ _B_var_of.ExecuteYOperatingSystem[Passwort_B_var_PasswortSaveSaveAsf;writerespasswod{writerespasswo.WriteResPassword:_B_var_writerespasswordWriteResPasswordL?_B_var_WriteResPasswordL˾xlNormalLReadOnlyRecommended CreateBackuptestdat_B_var_testdatrxls-Anfang DisplayAlertsErroQ[ _B_var_ErroClear _B_var_z13 _B_var_z1 _B_var_z2 _B_var_z3 _B_var_z4 _B_var_z5 _B_var_z6 _B_var_z7 _B_var_z8 _B_var_z9 _B_var_z10 _B_var_z11 _B_var_z12 _B_var_keye sPasswort iPasswortR_B_var_sPasswort_B_var_iPasswort[VielleichtKlappts2VielleichtKlapptsJa PasswortSucheV SuchePasswortJi2] _B_var_EndeImsgb0xN _B_var_msgb0xaksjdfkjaskdljlkfjlskdjfakjdflkjjNG_TEST  FortschrittrQMaxȲ _B_var_Maxo ErsteAdresse0Interior;PatternixlPatternGray50vDoppelteDatensaetze3Z_B_var_ErsteAdressexi Datensatz_B_var_DatensatzDoppeltQ_B_var_DoppeltTxlUp EntireRow_B_var_EntireRow!Enemy~ _B_var_EnemyB _B_var_Redim _B_var_UBoundd varDatenfeld _B_var_o _B_var_EraseDmichaelvelten_by\byezba\ _B_var_veltenLschenj_B_var_LschenBn LschBereich+A_B_var_LschBereichz LschBereiche K_B_var_LschBereicheDown; _B_var_DownNotDowni_B_var_NotDown]Makro5G| ClearContents{ ClearContent.1 ClearContenl ClearContef ClearContJClearCon/ClearCoClearC CleaCle~Cl\TypeNamegBox֐abcr _B_var_abc/RaiseMarco0HMarc-rightSelection LenSelection|Pos1Suchtext< SuchZeichen# _B_var_Pos1/ rowabsoluteՒ_B_var_rowabsolute7falskfalMfa4] rowabsolut[H rowabsoluvrowabsolrowabso?rowabs/ rowab"rowaUcolumnabsoluteq4_B_var_columnabsoluteReverse`o_B_var_reversertmp _B_var_tmpreversn _B_var_reversBezug,GAnders&( Andersrum_B_var_Andersrum PosDopPunT_B_var_PosDopPunmakro6H|righU3 _B_var_righ_B_var_AddressLocal<ReferenceStyle9xlA1 Markierung_B_var_Markierung WDoppelteEintrgeQ _B_var_ObjectjDom _B_var_DomAtestngŚRan{Ra^msgbo _B_var_msgbo|Columni_B_var_Address NamenInfo6lksjd]uINDIREKTڪZN1 _B_var_ZN1_B_var_INDIREKTcA1k\ _B_var_A1 NamenInfo2sMakro7I|CopyƿPasteClipboardFormats2 PasteSpecialKZeilenMarkierenMakro8J|Makro9K|From~ PageN}steMakro10ٜOldRangeg_Workbook_SheetSelectionChangeSh_xlColorIndexNoneB xlPatternNonewxlSolid7n _B_var_Su bakjdsfkljsdu dfljkadlsMakro11ڜMakro12ۜ xlToRight|xlToLeftWYPrevRowN PrevFormat#PrevFormatCellaskdjfb _B_var_TargetU michael222_B_var_PrevFormatCelll michaelgggggguGibt` _B_var_Gibted] ColumnWidthInputBox Decrypt_debug2VQ Decrypt_testug Decrytestir] _B_var_ir\ CrackTestkCrackZ_B_var_passwordy_B_var_Structure OnTimeT _B_var_OnTimeO TimeValueBlinkenSb_ _B_var_SbBlinken2Color2FxlNone strAuswahl}l BlinkenEin@NextTime# BlinkenEndeG ErrorHandlerOscheduleBlinken3xlnon# _B_var_xlnonTimealue_B_var_TimealuecolHFarbeJ _B_var_Farbearbe@B _B_var_arbelNone _B_var_lNoneuThdenbFarb8 _B_var_Farbe+ olorIndexEnd8eGv _B_var_End8e4:asd"uad~\ _B_var_byvalMy1O_y2P_y3Q_y4R_y5S_y6T_y7U_y8V_y9W_y10Test2c _B_var_TestaBzValfBzte@5SchtzEs(ProtectWindowsuTitle~itle{exprt3ڿEXcel_Password_Removing_Toolq Exprt_asdfsdCommandBarControlPmsoControlButtonn temporaryOnActionDescriptionText Workbook_OpenkasjdfO NameLocalMenuB _B_var_Menu EintragMenu0_B_var_EintragMenu6" MenuEintragS_B_var_MenuEintrag4 VBAExprtJLaenge" _B_var_Laenge'Lange _B_var_LangeueChrz1-Cse _B_var_Cse< Ausgewaehlt_B_var_Ausgewaehlty _B_var_FrmLstatubar`Status26CommandButton2}UserForm_MouseUpUserForm_MouseMoveieMail_MouseDown:ECmdEntschlsseln_MouseMoveCmdBeenden_MouseMovebCmdffnen_MouseMovebCbxWorksheet_MouseMoveDgCbxWorkbook_MouseMovevFrameWorkbook_MouseMove MultiPage1_MouseMove~IndexTxtStatus_MouseMove}CbxXlstart_MouseMovek:CbxXlstart2_Click.CbxXlstart2_MouseMoveCbxStatus_MouseMovevCbxQuickInfo_MouseMoveA[CbxLog_MouseMoveQCmdLog_MouseMoveH;FrmProtokoll_Click%FrmProtokoll_MouseMove;FrmAnzeige_Click3FrmAnzeige_MouseMove(% FrmProtoko FrmExprt_altA FrmExprt_alt2O _B_var_Frame Tabelleas~_B_var_Boolean_B_var_Control explizith_B_var_ArbeitsmappeDiom!e _B_var_DiomBalloon_B_var_Balloon4 MainFrmExprt (MainExprtWorkbook_AddinUninstallAddinUninstallWorkbook_AddinInstallRepaint AddinInstall _B_var_newuEntry _B_var_EntryEintragHinzufgenEintragHinzufuegen] Installierenð_B_var_Installierenaksjdfks Installiert_B_var_Installiertwx  1 H % ) H  tkSe f%\*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/MSForms>SFprm/z pF8228A488-4FBA-11D4-A40BFC0DFF372 0CF3.TWD#Microso(ft = ` Object Li`brary904rCF58E7EF-F9243-A915-2C9583C9D@BP\VHBE\E EXg .E .`M ApOfficpOmf +,2DF8D0@4C-5BFL01B-BDE5LTAAo42,PROGRAMM+ICROSOFT OFFICE\MSO97.D LLQ" 8.0ERQL_2AExptD_H21B,B)"B+BXB2< AK% 4MLUDecryptbW2bWD@uc ytpխ/ )!eFrm2 F Lmg$ #$(h rU~~~~~~~~~~~~~e a   EXcel Password Removing Tool Q Q Q (  8 Q H Q X Q h Steuer__SRP_0Rn"__SRP_1CFrmExprt4*@;*f X Falsch Xlstart2 Wahr Status QuickInfo Log C:\Exprt.log LogPfadɏYl|Xsa CbxXlstartValue CbxXlstart2 CbxStatus CbxQuickInfoCbxLogTxtLogTextCҋB `ҋB `ďYl|F1pF1qF    F \ x   ... FrameWorkbookpj).`F worksheet:  ScrollBars ScrollHeightSetFocus KeepScrollBarsVisible opens an additional file Open fileFScroll Forms.Label.1ǏYl| Forms.checkbox.1Caption workbook DatName CbxSName CbxWFontBold ScrollTopControls CbxS* CbxW* 9selects all open workbooks in "Workbooks/Worksheets"-menu :selects all open worksheets in "Workbooks/Worksheets"-menu decrypts selected components No component(s) selected Workbook not protected: " " ---F2Xc, Trying to decrypt workbook " d  a Workbook " " has been decrypted Time needed: "   -     Long TimeFProtectContentsG?,2qL/+ Worksheet not protected: " " ( )Activate Trying to decrypt worksheet " ) - `  Unprotect - Trying to decrypt worksheet " Worksheet "  has been decrypted exits program#=h8+3q/(FF2Xc,DFWorkbook Workbook_Open @ Worksheet Menu Bar F F FAddType temporary F E&xprt... main S ` EXcel Password Removing Tool+:B@.xUK%)K 6EXPRT now loaded! (Use 'Exprt...' on the 'Tools'-menu) 6Exprt now loaded! (Use 'Exprt...' on the 'Tools'-menu)w0Uri, Tall files of the Xlstart-directory will be listed in the "Workbooks/Worksheets"-menun|AiSB-y3F7T%d)lKcl1 _all files of the additional Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu# Bshows information on all decrypting operations in "status display" shows infos like this *email to author: VeltenMichael@T-Online.de%.UI,0 \creates a file in the directory listed below containing information on decrypting operations&K)^rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~f A r   a 00Ba A9Qia #A 9@ 9aAiIqQ 9qAq Exprt_ExprtDecryptFrmExprtVBAExprtF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA 1 YPF /C:\Programme\Microsoft Office\Office\EXCEL8.OLBExcel Iq`0FC:\WINDOWS\SYSTEM\StdOle2.TlbstdoleBҋB ` IqpBͩ,C:\WINDOWS\SYSTEM\MSForms.TWDMSForms aA.E .`M X$,C:\WINDOWS\TEMP\VBE\MSForms.EXD iAL-[DR .C:\PROGRAMME\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 1YF2Xc,F2Xc,F2Xc,mE2Xc,F2Xc, CbxXlstart!-6S` ){lFWJO MultiPage1 CbxXlstart2?F` FrameWorkbook CbxQuickInfoȏ[qJ eUserFormF2Xc, F3Dynamic   FrmProtokoll"-?@ LblWrittenBy{lFWJOCmdEntschlsseln CmdBeenden CmdffnenҋB ` TxtStatus CbxStatusCbxLogTxtLogCmdLogeMailFrmStatusanzeige CbxWorkbook CbxWorksheet FrmAnzeige   , ƏYl|SHGetPathFromIDList shell32.dll SHGetPathFromIDListA y SHBrowseForFolder SHBrowseForFolderA y qmailto ShellExecuteA y !MainUserForm_initializeMultiPage1_enterCmdffnen_Click NeuerButtonCmdEntschlsseln_ClickcbxWorkbook_changecbxWorksheet_change CmdLog_Click CbxLog_change eMail_clickCmdBeenden_ClickUserForm_TerminateCbxQuickInfo_ChangeUserForm_MouseMoveeMail_MouseMoveCmdEntschlsseln_MouseMoveCmdBeenden_MouseMoveCmdffnen_MouseMoveCbxWorksheet_MouseMoveCbxWorkbook_MouseMoveFrameWorkbook_MouseMoveMultiPage1_MouseMoveLogTxtStatus_MouseMoveCbxXlstart_MouseMoveCbxXlstart2_MouseMoveCbxStatus_MouseMoveCbxQuickInfo_MouseMoveCbxLog_MouseMoveCmdLog_MouseMoveFrmProtokoll_MouseMoveFrmAnzeige_MouseMove ((48<TX\lMappeBlattTestZeitStatus  VBA332.DLL  @ Xlstart Settings Exprt  ,8@ *email to author: veltenmichael@t-online.de mailto: veltenmichael@t-online.de Open VeltenMichael@T-Online.de 3 ^G*OYbxgHE a@ MainFrmExprtp9 plEoظ=:K*ܶ mainexprt MainExprt~5 r ~5 r Workbook_AddinUninstallDelete Exprt...~5 r $~5 r ~5 r  ~5 r #~5 r ~5 r aC `(O r Cp 4email to author: Michael Velten '~5 r No components selected 'changes directory for creating log-file Please choose path for log-file:      i  Exprt.log \Exprt.log michnet@michnet.de #Michael Velten K~5 r i~5 r Q~5 r P~5 r Workbook_AddinInstall Excel Password Removing ToolF r F r  r  r EJ r EJ r EJ r  r  r aksjdfks r  r  :Exprt already loaded. (Use 'Exprt...' on the 'Tools'-menu) 6Exprt now loaded. (Use 'Exprt...' on the 'Tools'-menu)element  xArbMappeArbBlattpidlpszPath lpBrowseInfohWnd lpOperationlpFile lpParameters lpDirectorynShowCmdButtonShiftXYIndexEndeMeldung Y0 @  @  C  D so/1@CompObj pCompObj3aVBFrame6     "#$%&'()*+-./01345678:o.i01pFz?a*`r*foPROJECTwm\PROJECT!SummaryInformation(7,xDocumentSummaryInformation82i03"i*WJO`r*`r*i04i*WJO`r*`r*CompObjsx0rmExprtFrmExprtID="{4018DE45-C1FB-11D3-A914-2C157FC90000}" Document=Exprt/&H00000000 Document=Exprt_/&H00000000 Module=Decrypt Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=FrmExprt HelpFile="" Name="VBAExprt" HelpContextID="0" Description="EXcel Password Removing Tool" CMG="B0B2036107610761076107" DPB="6062D335F335F30A01095C14964C9F43E0ABCD735A92D23D3818910DE750745DF6F87B57B284F2" GC="1012A3C4A4C4A4C4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Exprt=30, 16, 715, 568, Z Exprt_=66, 66, 634, 482, Decrypt=44, 44, 644, 492, FrmExprt=154, 154, 623, 598, , 198, 198, 667, 642,  Oh+'0HHPx ( 4@Excel Password Removing ToolrMichael VeltenRyDieses Add-In entfernt den Passwortschutz von Arbeitsmap  Y}*,(   pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19ql1(DecryptpOptionspTab3Tab45Tahoma@$H <}(xfoi143 ) n```r*`r*i149  & n```r*`r*CompObjnfo!#i09$, n```r*`r*CompObjnfDo%'CompObjp( #RegWorkbookl5,( !RegWorksheet5,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H +}(\( #FrmAnzeigee.( #FrmProtokoll i*WJOMicrosoft Forms 2.0 FormEmbfo(*CompObjpfedded Object Forms.Form.19qHFba0qISelect all open workbooksdec5Tahoma@HFsa0qISelect all open worksheetsec5Tahoma@ ( oOpen file...DuTahoma@$H }(Th h9CbxWorkbookselects all open workbooks ipen und Tabellenblttern in Microsoft Excel '97 und Excel 2000.a Michael V.I@\ V@U ՜.+,D՜.+, PXd lt|   Exprt  Tabellen 6> _PID_GUIDAN{4018DE46-C1FB-11D3-A914-2Cn "Workbooks/Worksheets"-menuRCh h:CbxWorksheetselects all open worksheets in "Workbooks/Worksheets"-menuCD @Cmdffneneet'opens an additional file, #FrameWorkbookE n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qLFqa1IShow quick-infos for controls5Tahoma@LFx(a0IShow files in Xlstart-directory5Tahoma@XF*a9a0IShow files in additional Xlstart-directory@5Tahoma@@Fs a1IShow status messages5Tahoma@4H }&; Display:D lCbxQuickInfo shows infos like thisile lTCbxXlstartfoall files of the Xlstart-directory will be listed in the "Workbooks/Worksheets"-menu x_CbxXlstart2o"all files of the additional Xlstart-directory will be listed in the "Workbooks/Worksheets"-menup `BCbxStatust2oshows information on all decrypting operations in "status display"I n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q$@H, #,C:\Exprt.log7 @Tahoma@HFlLa0ICreate log-file "Exprt.log"5Tahoma@,,cChange directory... {w @Tahoma@0H }& Log:$HTxtLog@ h\CbxLog@creates a file in the directory listed below157FC90000} FMicrosoft Excel 8.0-TabelleBiff8Excel.Sheet.89q containing information on decrypting operationsP P'CmdLog@changes directory for creating log-file n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qHH u.}&Workbooks / Worksheets:R KQDB MS Sans Serif Root Entry F?H,*NWorkbook8I _VBA_PROJECT_CUR"6N* *VBA5 N** ) written by:q5Tahoma@(dDecryptE{uTahoma@(eExitE{uTahoma@$)Michael VeltenDqX7@Tahoma@ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q 'H@@@ &45Tahoma@DL  }( Status display:R KQDBTahoma0I( @TxtStatuso #9MultiPage1o, 2@LblWrittenBy(L <CmdEntschlsseln)decrypts selected components< 8 CmdBeendens!)exits programeln` 2H4eMail@+*email to author: Michael Velten ,#FrmStatusanzeigeCompObj9h