ࡱ> r  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxyz{|}~Root Entry F+_JOWorkbookS_VBA_PROJECT_CUR"pnI_JVBA IpUJ u'ɀ\pThomas Harmening Ba= ThisWorkbook į=Dx< 8X@"1Arial1Arial1Arial1Arial1hArial1Arial1Arial3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q*6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k)3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_-,>_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-#,##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_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_- mmm\ yyyyd/m0.0ddd yyyy                     "  Z      "  "   Z  *  Z Z  ` | dummy M200511TGFUUrlaub lfd. JahrResturlaub VorjahrResturlaub lfd. JahrUrlaubanspr. lfd. JahrZeile ausblendenSonderurlaub lfd. Jahr Mitarbeiter 1 Mitarbeiter 2 Mitarbeiter 3 Mitarbeiter 4 Mitarbeiter 5 Mitarbeiter 6 Mitarbeiter 7utestThomasSaSoMoDiMiDoFr/ufdsf"  A : u'ɀ @q6 ~%*0V5:?.EvJfM  dMbP?_*+%M6HP DeskJet 930C/932C/935CXC 4d,,A4DINU"4$ $$$$" d,,??U } } $ q@                                         BX !"#$%&'()*+,-./0123456789:;<=>?  !! "" ## $$ %% && '' (( )) ** ++ ,, -- .. // 00 11 22 33 44 55 66 77 88 99 :: ;; << == >> ?? Dl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@@ AA BB CC DD EE FF GG HH II JJ KK LL MM NN OO PP QQ RR SS TT UU VV WW XX YY ZZ [[ \\ ]] ^^ __ Dl`abcdefghijklmnopqrstuvwxyz{|}~`` aa bb cc dd ee ff gg hh ii jj kk ll mm nn oo pp qq rr ss tt uu vv ww xx yy zz {{ || }} ~~  Dl                                Dl                                Dl                                Dl                                Dl                                               Dl !"#$%&'()*+,-./0123456789:;<=>?   !! "" ## $$ %% && '' (( )) ** ++ ,, -- .. // 00 11 22 33 44 55 66 77 88 99 :: ;; << == >> ?? Dl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@@ AA BB CC DD EE FF GG HH II JJ KK LL MM NN OO PP QQ RR SS TT UU VV WW XX YY ZZ [[ \\ ]] ^^ __ Dl`abcdefghijklmnop`` aa bb cc dd ee ff gg hh ii jj kk ll mm nn oo pp &@>@7 Sheet2 u'ɀ @xRg{) } /O  dMbP?_*+%&M&d2?'M&d2?(M&d2?)M&d2?MHP LaserJet 4000 PCL 64C 4dXXA4 DINU"47խ " dXXcU } } } }  m} !m x!!!!@!!!!!! ! ! ! ! !!!!!!!!!!!!!!!!!!!% @D &&?@@@@@@ @"@$@&@(@*@,@.@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@ &&&           ~  @ ~ $J@                                     @@ D D$  `@ D Z$?q DDDBFDDBFAE$AAB~ @  ,  @ D $ ~ @  ,  @ D  $~ 6@  , @F@ L $ ~ @> @   $~ @>  @  D $   @  D $  @@  Z $@DD D BFD D BFAE$AABB   `@  D $  @ D $ @ D$ @ D$ @ D$ @ D$  @ Z$@DDDBFDDBFAE$AABB @@ D$ `@ D$ @ D$ @ D$ @ D$ @ D$ @ Z$@ DDDBFDDBFAE$AABB  @ D$ @@ D$ `@ D$ @ D$ @ D$ @  D$ Dclzuuuuuuuuuuuuuuuuuuu !!!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?! @! Z $@'DD D BFD D BFAE$AABB  !@" !D!$ " @# "D"$ #@@$ #D#$ $`@% $D$$ %@& %D%$ &@' &D&$ '@( 'Z'$@.DD'D'BFD'D'BFAE$AABB' (@) (D($ )@* )D)$ * @+ *D*$ +@@, +D+$ ,`@- ,D,$ -@. -D-$ .@/ .Z.$@5DD.D.BFD.D.BFAE$AABB. /@0 /D/$ 0@1 0D0$ 1@2 1D1$ 2 @3 2D2$ 3@@4 3D3$ 4`@5 4D4$ 5@6 5Z5$ @<DD5D5BFD5D5BFAE$AABB5 6@7 6D6$ 7@8 7D7$ 8@9 8D8$ 9@: 9D9$ : @; :D:$ ;@@< ;D;$ <`@= <Z<$"@CDD<D<BFD<D<BFAE$AABB< =@> =D=$ >@? >D>$ ?@@ ?D?$ Dluuuuuuuuuuuuuuuuuuuuuuuuuu@!A!B!C!@D!E!F!G!H!I!J!@K!L!M!N!O!P!Q!@R!S!T!U!V!W!X!@Y!Z![!\!]!^!_!@@@A @D@$ A@B ADA$ B @C BDB$ C@@D CZC$$@JDDCDCBFDCDCBFAE$AABBC D`@E DDD$ E@F EDE$ F@G FDF$ G@HGG@ L GDG$ H@IG HDH$ I@JG IDI$ J @KG JZJ$&@QDDJDJBFDJDJBFAE$AABBJ K@@LG KDK$ L`@MG LDL$ M@NG MDM$ N@OG NDN$ O@PG ODO$ P@QG PDP$ Q@RG QZQ$(@XDDQDQBFDQDQBFAE$AABBQ R @SG RDR$ S@@TG SDS$ T`@UG TDT$ U@VG UU$ U U U U U U U  U  U  U  U  U U U U U U U U U U U U U U U U U U U V@WG VDV$ W@XG WDW$ X@YG XZX$*@_DDXDXBFDXDXBFAE$AAB X X X X X X X  X  X  X  X  X X X X X X X X X X X X X X X X X X X Y@ZG YDY$ Z @[G ZDZ$ [@@\G [D[$ \`@]G \D\$ ]@^G ]D]$ ^@_G ^D^$ _@`G _Z_$,@fDD_D_BFD_D_BFAE$AABB_ Dluuuuuuuuuuuuuuuuuuu/uuuuuu`!a!b!c!d!e!f!@g!h!i!j!k!l!m!@n!o!p!q!r!s!t!@u!v!w!x!y!z!{!@|!}!~!!`@aG `D`$ a@bG aDa$ b @cG bDb$ c@@dG cDc$ d`@eG dDd$ e@fG eDe$ f@gG fZf$.@mDDfDfBFDfDfBFAE$AABBf g@hG gDg$ h@iG hDh$ i@jG iDi$ j @kG jDj$ k@@lG kDk$ l`@mG lDl$ m@nG mZm$0@tDDmDmBFDmDmBFAE$AABBm n@oG nDn$ o@pG oDo$ p@qG pDp$ q@rG qDq$ r @sG rDr$ s@@tG sDs$ t`@uG tZt$1@{DDtDtBFDtDtBFAE$AABBt u@vG uDu$ v@wG vDv$ w@xG wDw$ x@yG xDx$ y@zG yDy$! z @{G zz$ z z z z z z z  z  z  z  z  z z z z z z z z z z z z z z z z z z z {@@|G {Z{$2@DD{D{BFD{D{BFAE$AAB { {>{ |`@}G ||$ |@| }@~G }D}$ ~@G ~~$ ~ ~ ~ ~ ~ ~ ~  ~  ~  ~  ~  ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ @G $ @ Dluuuuuuuuuuuuuuuuuuuuuuuu!!!@!!!!!!!@!!!!!!!@!!!!!!!@!!!!!!!@!@G D$ @G D$  @G Z$3@DDDBFDDBFAE$AABB @@G D$ `@G D$ @G D$ @G D$ @@ L D$ @ D$ @ Z$4@DDDBFDDBFAE$AAB                               @ D$ @@ D$ `@ D$ @ D$ @ D$ @ D$ @ Z$5@DDDBFDDBFAE$AABB @ D$  @ D$ @@ D$ `@ D$ @ D$ @ D$ @ Z$6@DDDBFDDBFAE$AABB @ D$ @ D$  @ D$ @@ D$ `@ D$ @ D$ @ Z$7@DDDBFDDBFAE$AABB @ D$ Dbluuuuuuu/uuuuuuuuuuuuuuuuuu!!!!!!@!!!!!!!@!!!!!!!@!!!!!!!@!!!!!@ D$ @ D$  @ D$ @@ D$ `@ D$ @ Z$8@DDDBFDDBFAE$AABB @ D$ @ D$ @ D$ @ D$  @ D$ @@ D$ `@ Z$9@DDDBFDDBFAE$AABB @ D$ @ D$ @ D$ @ D$ @ D$  @ D$ @@ Z$:@DDDBFDDBFAE$AABB `@ D$ @ D$ @ D$ @ D$ @ D$ @ D$  @ Z$;@DDDBFDDBFAE$AAB @ @@ $ @ `@ D$ @ D$ @ D$ @ D$ Dluuuuuuuuuuuuuuuuuuuuuuuuuu!!@!!!!!!!@!!!!!!!@!!!!!!!@!!!!!!!@!!@ D$ @ Z$<@DDDBFDDBFAE$AABB  @ D$ @@ D$ `@ D$ @ D$ @ D$ @@ L D$ @ Z$=@DDDBFDDBFAE$AABB @ D$  @ D$ @@ D$ `@ D$ @ D$ @ D$ @ Z$>@DDDBFDDBFAE$AABB @ D$ @ D$  @ D$ @@ D$ `@ D$ @ D$ @ Z$?@DDDBFDDBFAE$AABB @ D$ @ D$ @ D$  @ D$ @@ D$ `@ D$ @ Z$@@DDDBFDDBFAE$AABB @ D$ @ D$ Dluuuuuuuuuuuuuuuuuuuuuuuuu!!!!!@!!!!!!!@!!!!!!!@!!!!!!!@!!!!!!@ D$ @ D$  @ D$ @@ D$ `@ Z$@@DDDBFDDBFAE$AABB @ D$ @ D$ @ D$ @ D$ @ D$  @ D$ @@ Z$A@DDDBFDDBFAE$AABB `@ D$ @ D$ @ D$ @ D$ @ D$ @ D$  @ Z$A@DDDBFDDBFAE$AABB @@ D$ `@ D$ @ D$ @ D$ @ D$ @ D$ @ Z$B@DDDBFDDBFAE$AABB  @ D$ @@ D$ `@ D$ @ D$ @ D$ @ D$ Dluuuuuuuuuuuuuuuuuuuuuuuuuuu!@!!!!!!!@! ! ! ! ! !!@!!!!!!!@!!!!!!!@!!!@ Z$B@DDDBFDDBFAE$AABB @ D$  @ D$ @@ D$ `@ D$ @ D$ @ D$ @F@ L Z$C@DDDBFDDBFAE$AABB @  D$  @  D $   @  D $  @@  D $  `@  D $  @ D $ @ Z$C@DDDBFDDBFAE$AABB @ D$ @ D$ @ D$  @ D$ @@ D$ `@ D$ @ Z$D@DDDBFDDBFAE$AAB                                    @ D$ @ D$ @ D$ @ D$  @ D$ @@ D$ `@ Z$D@#DDDBFDDBFAE$AABB @ D$ @ D$ @  D$ Dbluuuuuuuuuuuuuuuuuu/uuuuuuuu !!!"!#!@$!%!&!'!(!)!*!@+!,!-!.!/!0!1!@2!3!4!5!6!7!8!@9!:!;!<!=!>!?!@ @! D $ !@" !D!$ " @# "D"$ #@@$ #Z#$E@*DD#D#BFD#D#BFAE$AABB# $`@% $D$$ %@& %D%$ &@' &D&$ '@( 'D'$ (@) (D($ )@* )D)$ * @+ *Z*$E@1DD*D*BFD*D*BFAE$AABB* +@@, +D+$ ,`@- ,D,$ -@. -D-$ .@/ .D.$ /@0 /D/$ 0@1 0D0$ 1@2 1Z1$F@8DD1D1BFD1D1BFAE$AABB1 2 @3 2D2$ 3@@4 3D3$ 4`@5 4D4$ 5@6 5D5$ 6@7 6D6$ 7@8 7D7$ 8@9 8Z8$F@?DD8D8BFD8D8BFAE$AABB8 9@: 9D9$ : @; :D:$ ;@@< ;D;$ <`@= <D<$ =@> =D=$ >@? >D>$ ?@@ ?Z?$G@FDD?D?BFD?D?BFAE$AABB? Dluuuuuuuuuuuuuuuuuuuuuuuuuuu@!A!B!C!D!E!F!@G!H!I!J!K!L!M!@N!O!P!Q!R!S!T!@U!V!W!X!Y!Z![!@\!]!^!_!@@A @D@$ A@B ADA$ B @C BDB$ C@@D CDC$ D`@E DDD$ E@F EDE$ F@G FZF$G@MDDFDFBFDFDFBFAE$AABBF G@HGGp* L GDG$ H@IG HDH$ I@JG IDI$ J @KG JDJ$ K@@LG KDK$ L`@MG LDL$ M@NG MZM$H@TDDMDMBFDMDMBFAE$AAB M@M N@OG NDN$ O@PG ODO$ P@QG PDP$ Q@RG QDQ$ R @SG RDR$ S@@TG SDS$ T`@UG TZT$H@[DDTDTBFDTDTBFAE$AABBT U@VG UDU$ V@WG VDV$ W@XG WDW$ X@YG XDX$ Y@ZG YDY$ Z @[G ZDZ$ [@@\G [Z[$I@bDD[D[BFD[D[BFAE$AABB[ \`@]G \D\$ ]@^G ]D]$ ^@_G ^D^$ _@`G _D_$ Dluuuuuuuuuuuuuuuuuuuuuuuuuu`!a!b!@c!d!e!f!g!h!i!@j!k!l!m!n!o!p!@q!`r!`s!@t!@u!@v!@w!@`@aG `D`$ a@bG aDa$ b @cG bZb$I@iDDbDbBFDbDbBFAE$AABBb c@@dG cDc$ d`@eG dDd$ e@fG eDe$ f@gG fDf$ g@hG gDg$ h@iG hh$ h h h h h h h  h  h  h  h  h h h h h h h h h h h h h h h h h h h i@jG iZi$J@ DDiDiBFDiDiBFAE$AAB i i i i i i i  i  i  i  i  i i i i i i i i i i i i i i i i i i i j @kG jj$ j@j k@@lG kk$ k@k l`@mG ll$ l@l m@nG mm$ m@m n@oG nDn$ o@pG oo$ o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o o o o o p@xUrG pDp qq$@(rqqq -UAZq?rqqrqqrqqrqqrqq r qq r qq r qq r qq @r qqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqqrqq r q rr(srrr -/uAZrsrrsrrsrrsrrsrr s rr s r rr -/uAZr s r r s r r ?s r rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr rsr r s r s" s##s$@(wsss LLs?wsswsswsswsswss w ss w ss w ss w ss @w sswsswsswsswsswsswsswsswsswsswsswsswsswsswsswsswsswsswss w s t" t##~ t@@t u" u##u>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@ v"Fv## w" w##w9@(w"ww LLLLw=@qww>@qww>@qww>@qww>@qww >@qww >@q ww >@q ww >@q ww ;@q ww>@q ww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww>@qww >@qw4uuuuuuu/uunX>@A ;sstt178>?EFL"*0uuvvMSTZ[abhio#) tz{X^_eflms<BCIJPQWww   &'-.45;7>p p  p p p/; >lSa  B; >/u; >U  /; >lSa  B; >/u; >U Sheet1ggD ThisWorkbook __SRP_3 /__SRP_2;Sheet1>~  !"#$%&'()*+,-.0123456789:<=?@ABCDEFGHIJKLMNOQRSUWXYZ[\]^_`abcdefghijklmnopqrsuvxyz{|}~ ݓ#<@F%Dr{z(FnQY1;I_j1xnQY1;I_j1@F%Dr{z(ME$[LSS6" LL <(<,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046} @`@|k ``ki .comi smtc%@( %X %H0n @`l @\ @xX @H @D @4 @$ @ @ @ @  @ @0@qZC$*\Rffff*27435a7194$*\Rffff*28435a7194*\R1*#285*\R1*#df*\R1*#d3$*\Rffff*0F435a6e964 " "  H ,`hJ0 Aoh@Bhier wird vorm Speichern immer das Arbeitsblatt komplett geschtzt $&(*2005$ B@"ler-2005$ (,- voraussetzung es ist nicht das einzige BlattMicrooAnAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Open() Call rech"tHEnd BeforeSave(ByVal AsUI As Boolean, Canc el 3'hier wird vorm Speichern imm das Ar@beitsbst kowett geschtztTsav Sheets("2005").Protect (["test"]), DrawingObj@s:=B&ontentScenarioNVisiu2 '.aussetzung es ist n2t 0einzige BA0 R rU XQ  ! aI)4Aai` ` IW<   $  `\ :l%$ \c$%c%c%D:H%X! X dD  )XD5\0(H%D:l%X! X dD )XD $ XD\44PrU @$`,A` #n<jxd#<zqOM&uơ FaT[B)xaT[B)zqOM&uơME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %. %`h8@<<0qZC$*\Rffff*0G435a6e964xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2__SRP_6P__SRP_7TBMod_Rechte__SRP_4VFrU (y4A`rU @nrU~| -)q1 I nKmaKArray("THARMEN",x "D a"masc503EM= F R4 "G 5 HU 6 I 7 JU 8 K 9 L) 10 M Tho@b N") '[ID,Spaldie fre@igeschAt werden pmussw '(w sich aunoBttisierl'da dMakro" PW-"tzteglatt lufWSheets("2005").Protect (["test"]), u@i`rfaceonly:=TrueC'tharm ist Chef , eventuell `eCd d bgleb@!@$n ;-If@ Left(!s - 1)`d"c @ID" Orw le AId" ,ThlV'bl`tB!,tbar 4t UnpN# '"utz-`gC",A`va B aktiv setzeEls)L2-h> Heinzelne B()MDT- -dn`t" aden,D@F man fr jeaT e abfr8age0W' m Wi Dzuhr c au]For x90 To (F;* 2ep d@ma(x):* X cs@(a) hol?6"k?sp +O'sy` sp1& "3:" & d69" @'zusamcbau_s Range_%[bsp."D3:D31l@( ).L ocked Fa1 F 'Z@lE zum bA@bqC O`>?)>)nd IfNext :xExQz'w8enn!$swi?aHA%!IOpFqILhDHO'uaF tools`DAA9ft Q)Sch6`'aPV: p2 @8 Q i  ) q 9 yQ  ! I  Iq1a  dqt-tlxp4lp  LLLL<(<,<0<4<8<<<+2p@ i4`i6 `hLk)) x d `:t`<jx`>X 0`%@ hXp2 @8p @l T P @D @4 @$ @ @ @ @0 @H @` @x @ @ @ @t @d @T @ D @84 @P$ @h @ @ @ @ @ @ @ @( @ @F @| X@l/ @H\ @JL !8(qZC$*\Rffff*0F435a6e96*\R0*#17*\R1*#285*\R1*#df*\R1*#d3*\R0*#f*\R1*#df*\R1*#d3*\R0*#f*H"  0  8-@ PX (`Xdy 2 4 Y PPh450Q,1 P5X 2p " 6 ,$!8JL`454R) JFx,1 B 8`  ]d]d':  :A@2]] '<mitarbeiteranzahl anpassen ,(wrde sich auch noch automatisieren lassen)-damit das Makro im PW-geschtztem Blatt luft $@2005$ B@"Jtharmen ist Chef , eventuell weitere userid dem Chef gleichberechtigen ;-)  : $chefID  : $weitereChefuserId2005$ (,Blatt sichtbar schalten $2005$ B@B(Blattschutz weg2005$ B@DBlatt aktiv setzend2005$ (,,hier werden einzelne Bereiche freigeschaltet- leider nicht gerade schn,/ da man fr jeden User eine abfrage machen muss% mein Wissen reicht zu mehr nicht aus F <   : $ F$>#!mitarbeiter X aus ma(array) holen2005$ (,Blatt sichtbar schalten F $>'Hspalte aus ma(array) holen H3: H369'J!,zusammenbau des Rangebereich - bsp."D3:D369" J2005$ %L(N-%Zellbereich zum beschreiben freigeben2005$ B@DBlatt aktiv setzenkP Fk8o :wennn man nicht will das man mit alt & F11 das Makro sieht 1unter tools, eigenschaften den Schutz einschalten(  $(,THARMENDmasc503E Mitarbeiter 3F Mitarbeiter 4G Mitarbeiter 5H Mitarbeiter 6I Mitarbeiter 7J Mitarbeiter 8K Mitarbeiter 9LMitarbeiter 10MThomasND'>"3MitarbeiterID,Spalte die freigeschaltet werden mussAttribute VB_Name = "Mod_Rechte" Declare Function GetUserLib "advapi32.dll" _lt Alias "dA" (ByVal lpBuffer As Sng,A xX  n`lk `@8 Ph2 @p @l @T8 @(D @@4 @X$ H@p h9e@ @ @ @ @ e@ @ @0 @H @`t e@xd @T @D Ke@4 @$ @ @ @ @ @F @x P@/ 0x@ @ @ @ @H| @Jl xxqZC$*\Rffff*28435a7194$*\Rffff*0F435a6e96*\R0*#17*\R0*#f*\R1*#285*\R1*#df*\R1*#d3*\R0*#f*\R1*#df*\R1*#d3*\R0*#f*\R1*#df*\R1*#d3*\R0*#f*\R1*#df*\R1*#d3 "    -( 8@ (HXdyp 2 4 $!JL4548R)p>EH,1  B 8X ]d@Vi]`d':  :A@2p]x] '<mitarbeiteranzahl anpassen(  $(,THARMENDmasc503E Mitarbeiter 3F Mitarbeiter 4G Mitarbeiter 5H Mitarbeiter 6I Mitarbeiter 7J Mitarbeiter 8K Mitarbeiter 9LMitarbeiter 10MThomasND'>"3MitarbeiterID,Spalte die freigeschaltet werden muss ,(wrde sich auch noch automatisieren lassen)-damit das Makro im PW-geschtztem Blatt luft J2005$ %L(N,Zellbereich wieder sperrenue F <   : $ F$>#!mitarbeiter X aus ma(array) holen2005$ (,Blatt sichtbar schalten F $>'Hspalte aus ma(array) holen H3: H369'J!,zusammenbau des Rangebereich - bsp."D3:D369"2005$ B@DBlatt aktiv setzenkP Fo :wennn man nicht will das man mit alt & F11 das Makro sieht 1unter tools, eigenschaften den Schutz einschaltenRAttribute VB_Name = "Modul1_Sav" Sub sa@v() Dim B As Sng * 1L004< @L@Long 0LVGetUserB, L(AmaanzahlHInteger Variant5= 11 'mitarb eiterManpassen.maKArray("THARME@N", "D_m"masc503EM=* F4"GU5H6IU7 J 8 K 9 L 10 bM Tho@b N") '[ID,Spaldie freigeschAt werden musswHz '(w sich aRunoBttisierl'da das Makro PW-B tztelatt luf For x0 To B(- 1)@2!ep 2-If@ Left( B= ma(x) Th@$I X@. sAaA) holSheets("2005")d.V blAgB!tbar ($gsp +$'s-au sp1& "3:" & d69" 'zusammenbau des Rangeb`+.- bsp."D3:D3 ( ).Locked True 'Zell% wiede per6 ActivJa G'ak setzE&End IfNext< xb'wennLan n`NillbBm@wCQ F'EIh$BP'u`r t@ools, Yn1ftnSize} advapi32.dll}0Lcmaanzahl4ma7^userinterfaceonlyN Unprotect?Activate|xosp$_sp1Range Locked  Sheet2 Mod_blattschutzM.(test4Workbookk BeforeSave_Defaultj _B_var_LeftQ_B_var_x _B_var_sp _B_var_sp1 WorksheetchefID۳ _B_var_chefIDE.Modul1 Modul1_SavV(savm QS /1 l0* pHd VBAProject4@j = r qZC J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egramme\Gemeinsame Dateien\Microsoft Shared\A10\MSO.DLL# 10.0 Ob Libra,ryL"ThisWorkbookGT isWrkbo 2 HB1x BE,!ݓ"B+B|SheetT1GS@#eXt1H2NddMod_RechtPeG!M@) Iaa  Q)9!I VBAProject ThisWorkbookSheet1 Mod_RechteSheet2Mod_blattschutzF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  `F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel !p0F C:\WINDOWS\system32\stdole2.tlbstdole  L-[DRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\Office10\MSO.DLLOffice y1FYQwAz"4 FN,ДAF7nDFWorkbook Workbook_OpenWorkbook_BeforeSave @ GetUserName advapi32.dll GetUserNameA )Yrechte  Mitarbeiter 1 D Mitarbeiter 2 E Mitarbeiter 3 F Mitarbeiter 4 G Mitarbeiter 5 H Mitarbeiter 6 I Mitarbeiter 7 J Mitarbeiter 8 K Mitarbeiter 9 L Mitarbeiter 10 M Thomas N "test"FF  2005F "userinterfaceonlyProtect chefID "weitereChefuserIdVisibleUnprotectActivate 3: 369 Range LockedVBE6.DLL YY  Yi FzqOM&uơ FaT[B)DF Worksheet THARMEN MASCH503Modul1 Modul1_Sav@F%Dr{z(nQY1;I_j1savDrawingObjectsContentsScenarios masc503 MASC503rU~~{     9ASaveAsUICancellpBuffernSize 9^ThisWorkbookThisWorkbookSheet1Sheet1Mod_RechteMod_RechteSheet2Sheet2Mod_blattschutzMod_blattschutzModul1_SavModul1_SavID="{A3673A67-A684-4BAD-AB8A-743C218E5FDE}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Mod_Rechte Document=Sheet2/&H00000000 Module=Mod_blattschutz Module=Modul1_Sav Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="10121D1B211B211B211B21" DPB="20222D2E2E2E2E2E" GC="30323D3E3E3E3EC1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=728, 427, 1158, 902, Sheet1=140, 519, 570, 994, Mod_Rechte=22, 35, 452, 497, Sheet2=88, 88, 518, 563, Mod_blattschutz=110, 110, 540, 585, Modul1_Sav=650, 52, 1284, 360, Z Oh+'0HPl Ralf Auf dem FeldeThomas HarmeningeMicrosoft Excel@L