ࡱ>    '$ !"#%*&()+Root Entry Fj= gFWorkbook_VBA_PROJECT_CUR"= g= gVBA= g= g  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~ @\p Gerald Haberl Ba=DieseArbeitsmappe=\Iv/8X@"1Arial1Arial1Arial1Arial1Arial1Arial3" "\ #,##0;\-" "\ #,##0=" "\ #,##0;[Red]\-" "\ #,##0?" "\ #,##0.00;\-" "\ #,##0.00I"" "\ #,##0.00;[Red]\-" "\ #,##0.00q*6_-" "\ * #,##0_-;\-" "\ * #,##0_-;_-" "\ * "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-,>_-" "\ * #,##0.00_-;\-" "\ * #,##0.00_-;_-" "\ * "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                + )  , *    @ @    @@   ` Tabelle1 Tabelle2 Tabelle31+`i Zeichnungsnummer eintragen!Eintrag eines Wertes in Spalte 1 Besttigen Die Zelle wird gesperrtqSoll ein Passwort festgelegt werrden, muss in VBA Tabelle 1 der Wert fr PassWord entsprechend gendert werden !!ZNR_001_TestSperre.00.01 Nachteile:6Tippfehler knnen nicht mehr rckgngig gemacht werden)Makros aktivieren muss eingeschaltet sein Arbeitsablauf3Formatieren funktioniert nicht bei gechtztem Blatt6Extras Schutz Blattschutz aufheben bzw. Blatt schtzen J @  e '  dMbP?_*+%"<~?<~?cU } m,} =} m                z>@7 Tabelle1 @ A  dMbP?_*+%"<~?<~?U } m >@+++7 Tabelle2 @ g  dMbP?_*+%"<~?<~?U } m >@7 Tabelle3 <jxy#<ĻIMq;@Em)FIjZ.xIjZ.ĻIMq;@Em)MEDieseArbeitsmappe$ <Tabelle1 O __SRP_2 x__SRP_3z(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%` % %`h8@0> E$*\Rffff*1;45040b3e4 xpʰAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Option /licit 87Ey#<Z LEh FmJ8Jtd#xmJ8Jtd#Z LEhMEP[LSS>"8"<<<N0{00020820-0000-0000-C000-000000000046}0(%` % % .``k)& %%b<0H &x &xp0% &x%% &x% &x8% &x%%% &x(% &x &xpHx`8 &x &x0%@h <:8@X @H @8  &x%@( arge@ h8@ > E$*\Rffff*2;45040cce*\R1*#1754    "  `  8%Hp0 x]&! < B@:oH &(6  < B@8 &!BkH@[Attribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit Const PassWord Asd Sng P26 Sub ksheet_Change(ByVal TaPrgetR ) If .Column&1 Then Me.Unprotec< #.Lo,ck~PEnd If &2rU 0iaa4a) ` p l xxah"5hk :X% cX%x, % '%'(%'8%'H%:X% |dp(xh4XrU @,`n|88y3{#<O`EπC F TYOcKs{x TYOcKs{O`EπCMEPSLSS6"<Tabelle2Tabelle3_VBA_PROJECT dir,<<<N0{00020820-0000-0000-C000-000000000046}(% %` % %` Xxe   i ``x`e i   % &x % &x0h &xPHh8@> E$*\Rffff*2145040b414 xpAttribute VB_Name = "Tabelle2"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /li cit <jxy#< @䅓 F5NG<75Sx5NG<75S @䅓ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@0> E$*\Rffff*1=45040b3e4 xpAttribute VB_Name = "Tabelle3"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Programme\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.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.1#0#C:\Programme\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library > Ey"DieseArbeitsmappe1;45040b3e"DieseArbeitsmappeTabelle12;45040cceTabelle1Tabelle22145040b41Tabelle23{0>Tabelle31=45040b3eTabelle3HhH0"@v k~\g\WIO;Aɞ6E3^?X1yF*T"*,) as"constRfalse_if{MethenTrue Excel+ VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject Officeu DieseArbeitsmappe _Evaluate Tabelle1R Tabelle2S Tabelle3TWorkbookk WorksheetRange Worksheet_SelectionChange4TargetFSelectionChangenMsgBoxR AddressLocalWorksheet_ChangeSChange SelChangeH ActiveCellLocked Protectf Unprotect?PassWord _B_var_Constg _B_var_StringӊColumni _B_var_IfPlH(0* pHd VBAProject4@j = r > E J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egramme\Microsoft 4\MSO9 .DLL#  9 .0 Ob LibraryA"y DieseArbeitsmappeG") iasA(rbis mape*2 HB1{B,B)#+ Tabelle1GA$'l1%2 2222>@T3{3333\XK*mrU~~~~~~l ICT3j