ࡱ> RNVBFrame$PROJECTwm PROJECTSummaryInformation( ! 6105 ClientLeft = 45 ClientTop = 330 ClientWidth = 6300 StartUpPosition = 1 'CenterOwner TypeInfoVer = 29 End ThisWorkbookThisWorkbookSheet1Sheet1AppClassAppClassModule1Module1UserForm1UserForm1YH YH ID="{33A4FC73-638F-11D3-BC29-0080ADB62A02}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Class=AppClass Modul  !"#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ \pJohn Walkenbach Ba= ThisWorkbook=hS%c<X@"1mArial1mArial1mArial1mArial1mArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *  `Sheet18cc    dMbP?_*+%"??00U>@7 Sheet1 AmGm#?km[HX*FCbq(B_H_CxMEThisWorkbook % Sheet1 EAppClassU9Module1? [LSS<< <8<<<<< <$<(<,<0<4<N0{00020819-0000-0000-C000-000000000046}P `@T  xX % @tx% 6`|DX i8   % %H %%%8  `@\T"*^">H p(x  "  Tpx ]@]` l7u( "%$%&.l. !*%,.  Toggle &J-Walk Workbook Task Bar90ToggleWorkbookTaskBar92q8A4o(] : "%$B@<.>] Toggle &J-Walk Workbook Task Bar l7u( "%$%&%*B@<oxZAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Ope@n() Dim ToolsMenu As CommandBarPopupNewItemButtonSet'= Application.,s(1).FindControl(Type:=10, ID:=37O(<=Bs.Add, AKora0ry:=@Wi8th +A@.Cap'oggq&J-WalkFL Task DÁ OnAc XA  End ACCall Initialize Ah kBeforeCl@(Cancel`B@mean7qOn Erro@r Resu@Next%jTOOLBARNAME).Delet3?fXL MNothingCA"IlʔɊF?("T]6& GoTo 0/+AmEm#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%H xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2   / AmQm= NudD`*=h8+3q#E0SvexME SS S`"<<<J<4<8< <$<(<,<0<<<JNN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %*E4@ F`t@p()I %)L% TP`t@,)I (%)LH% V`$@0 )I %i8  ^`$@4)I 8@%i` `i8 %0P%(@H$ )@h( Ix %X LtP%@: @ Ix8%p Lth%X@8hX IxP%Po |}{@"iXYVRTQa(h @X MC@H sXQD SSR@4 &@$  Ix%(0e=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 HelpFile="" Name="TaskBar" HelpContextID="0" VersionCompatible32="393222000" CMG="A7A563CEADD250D650D650D650D6" DPB="4E4C8AB796F9340234025608B71872E99538FA" GC="F5F7311C7FC280C280C2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 88, 651, 458, Sheet1=0, 0, 0, 0, C AppClass=110, 110, 673, 480, Module1=43, -2, 833, 587, Z UserForm1=176, 176, 12H8*\R1*#2a9  "  8 " @H` "  h0Rp "  0Rx] ocumen0 PG|cGARjkbo@ PG|cGARjoP Z00:00:01$\ UpdateBar "B@XoX Z00:00:01$\ UpdateBar "B@XoAttribute VB_Name = "AppClass"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dCreatablTru PredeclaIdBExposeTemplate Deriv%CustomizD3Option 0licit Pub WithEvents app As .a p.VarHelpID`p-1 $FJ Sub!_WindowDeactiv (ByVal Wb.Excel.Workbook, n !) If ButtonW(asCJkzThRecitBEa Call Upd@Bar EnVdW'A& &PMNEBeforeCl OMCanQMBooleanKn.OnTi@Now + @aue("00:1"), "GMM&SaveT&CtAsUIH(,@i?--$,37Am$ShellExecuteA,FFÑYÁ{IY'h.D^Aw cl]Iб @P~E/ xME] ]  ] 8] H]$Workbook Task Barp]$Workbook Task Bar`]$J-Walk Creates the commandbar]  " >/D Delete toolbar if it exists : "%$B@< Create toolbar "!$!,.p Get settings from registry n lTruncatedNames$t'd n l HiddenWindows$t'f n lIcons$t'hx n lPosition$t'j p9v :9 j9x |9zq Store the dimensions j ~ p!' p!' p(vk0 Create the Options button l : "%$!*%,.O&ptions (0 Add position options l !*%,.  &Position909qX l !*%,. &Bottom90PositionBottom92(9q l !*%,. &Top90 PositionTop92&9q l !*%,. &Left90 PositionLeft92)9q8 l !*%,. &Right90 PositionRight92'9q l !*%,. &Float90 PositionFloat92V9qx" Add Show Truncated names option l !*%,. Show truncated &names90TruncatedNamesOption929 dG 9cG 9jq" Add Show Hidden windows options l !*%,.t~ Show &hidden windows90HiddenWindowsOption92 fG 9cG 9jq Add Show Icons option l !*%,.  Show &icons90 IconOptions92 hG 9cG 9jq` Add Minimize menu item l !*%,.  &Minimize all90 MinimizeAll929q Add Restore menu item l !*%,.  &Restore all90 RestoreAll92qX Add Arrange menu item l !*%,.  &Arrange...90 ShowArrange92q Add Reset menu item l !*%,. Rese&t90 UpdateBar929qX Add Help menu item l !*%,. &Help/About...90ShowTaskBarHelp929qARadds the window buttons restore original size j ~  p(  p( p(vk@ p(v | p(zo@ B@o] : "%$.  ! !v (v.>dA4kxdpA4k`oX] 8'P "% '  : "%$%*!' $B@ $! G  $(j'PA@oP3 Puts the buttons in synch with the active window]8  : "%$!* !l  !0 !0  (d  (kk o Refreshes the toolbar]] ]@]`]] Delete all buttons  : "%$!* !0O&ptions B@<  1AmXxME @ @`\@C `\@G `M>@P @d  @hH @lHjnHp@@@ p@HP`bP%(( Q   (08@Hh " &  $=(  0CH $`.#.#&#"  8 @ HPX`  h     "&m   8*Xx  * *( 0@X `*h * *(HP`x  (* 1  @  (H*p1   * @H`1x  *    (*Hhp   *   ( *H h p      *      ( $0 X  x           "    "   9 $8  H  X   h p  x      "   "I  g  @ ,(  X ` h "p :x   Q   ;      (  8 @  H X "` h          Q   0 8 H!h &mx   0T      (0 8 ;@ ` x x  "  (<8x  , "  :@ HP X`h,p " 2p     ($ 0X` " hp x   "    @ P` " hp "   " (0Hh "pBx"B " (8Option Expliciten] ] k  Add the window buttons   l : "%$!*%,. 9 dG !0$90cG !090j !09ActivateSelectedWindow92 h 99d 9k fG9vcG !v9vj initial book?q  "!!G$!Book1$!Book2GBook1 : "%$%*B@<jjA@o d'dShow &truncated names : "%$%*%* d 9dp 9k`qX n lTruncatedNames dA@A@Ro f'fShow &hidden windows : "%$%*%* f 9d 9kq n l HiddenWindows fA@A@RoP@ h'h Show &icons : "%$%*%* h 9d 9k q n lIcons hA@A@Ro ] "(  "! !vG  (j  "(o ]  "(  "! !vG  (j  "(o @  : "%$(x : "%$( n lPosition A@o8   : "%$(x : "%$( n lPosition A@o   : "%$(x n lPosition A@o   : "%$(x n lPosition A@oH @ ~ : "%$(x n lPosition ~A@o   "%B@o oAttribute VB_Name = "Module1" 'Option Explicit @ Pub, XLApp As New Class:Butt@onWasCVkedPBooleanFShowTruncated{s%HiddenWindow$IconTaskbarPosiKSngCt TOOLBARNAMEDWorkbook $ Bar#APPDEVJ-Walk0 Sub InYalize;() Cres the commando Dim WLT cC#Set.a=nhaAFPDele@tif it exi,styO@rror ResuxNexAE.Gs(W).CGoTo 0!: !CA08J0P.Add'$G=settings from rdeg2ry=.  (j, Dz, "K", False * -1iAKJ ùB ) % 7f@ 3%WithLc!.Visibl!(dh@Fs=Bl W% rotec"x= mso ZNoCu0stomcEnd #YStorebedimensDXIf }# Flo@bng The awFO.WidthC hHeigh$bϡ$!IfU^he #s  !`_mtrolsab(Ty0pe:=PopupdV .Caþ`O&Bs C* k pũo'0Item@!D on?#aJA A&%BBxnGroup !]c@%@C!I Bo@mhOnAT"FaceId4$y) )Top'}, 38 ?i' (&Left P*U=71/ / em/ / !m>+R!@? ; Nw9O O O =yOO K NF 5n9!GC!q :3 ns DA$:CK t &oc& b@cG—1@ebd .Stp?1fDow`q2\.H_% )`sC 3xD Kte {yA6(GoTo kanDoG( (fD#(tpe<> "O&bs"' . 'Xt$ p߯ p  c'f02S1uDYҨSG._brunzedN,am*7 v8= `Left(P%, 8) 5I<_0pA Icons .Sty>AndTF !@.FaceIr263E.pi&a1 Hidden# !{/Q7 'Pnti ?w!"2.?  )un!2 p.""Bp1" r 2)82_8of⤯//();v tE: Y-RY/0 ôZ16<<1F) &t n7"stdoleP h%^*\G{00ErroNumber-ActivateSelectedWindow ButtonNum WinCaptionzCaller= TooltipTextb?WindowsdActivate| WindowState| xlMinimized2xlNormalLUpdateButtonStatesButtonCommandBarControlP ActiveWindow+BtnzwinNoCanDo=`StylepmsoButtonIconAndCaption1lmsoButtonCaption WorkbooksBCount0vTruncatedNamesOption SaveSettingHiddenWindowsOption IconOptions MinimizeAllhScreenUpdating!  RestoreAll PositionTop/ msoBarTopyRowIndex6dPositionBottom= msoBarBottomHR PositionLeft msoBarLeft PositionRight msoBarRight PositionFloat\7 ShowArrangeLDialogsxlDialogArrangeAllf ShellExecute"hwnd/ lpOperation8lpFile lpParametersZ lpDirectoryenShowCmd shell32.dll+UserForm_Initialize5cInstallDirectoryLabelPath2 MultiPage14?ValueKLabelWebSite_Clickg vbNullString vbNormalFocusOKButton_Clickf BeforeClose~;ClassWindowDeactivateWindowActivatedtWorkbookBeforeClose*;WorkbookBeforeSave,_B_var_w_B_var_h _B_var_Optns _B_var_ItemC_B_var_SubItem1 _B_var_ButtonDa _B_var_LeftQ_DefaultjUserFormNLabel1,Label2,Label3,Label4,OKButton|Label19ILabel5,Label20eLabel15E LabelWebSiteWLabel13CLabel21f InitializeNClick thisworbook_B_var_thisworbook _B_var_StringӊACc Z5 Module10m4a40a08abModule1XH1UserForm10o4a40a08aUserForm1020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation`nMSFor ms> MSFFrmHs3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#MicrosPoft : ^ Object Library/;D1uA00}#0#Gk0A8DCB19CB-C77F-42C8-9F0@9A3B50EBAF36Users\John\AppData\Local\Temp\VBE\Tp.exd;@!.E .`M AOfficODf@ic 12DF8D04C-5BFAgB-BDE5IAA421Program Files\Co0mmonhShared\OFFICE115Op& 8.0p@%"AmCThisW69, 617, C, 88, 88, 1181, 529, + 2 HB1@BE,Oh+'0P `h 0 <HWorkbook Task BarJWalk And Associates Version 4.04Workbook Task Bar 1999-2002 JWalk & AssociatesJohn WalkenbachMicrosoft Excel@y@|H ՜.+,0 Pay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\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{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{8DCB19CB-C77F-42C8-9F0F-49A3B50EBAF3}#2.0#0#C:\Users\John\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M &*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 8.0 Object Library  @JAmThisWorkbook0k4a40a08aThisWorkbookGm Sheet10l4a40a08aA Sheet1Em1AppClass0n4a40a08aCAppClassQm05 Module10m4a40a08abModule1XH1UserForm10o4a40a08aUserForm1`=x`0H8?wO}lFkoFdQCݽK~>[FVD(#qv]L̴f50A1@C0?Excel+VBAWin16~Win32MacVBA6#TaskBarV(stdole`MSFormsCOfficeu ThisWorkbook| _Evaluate Workbook_Open ToolsMenu`wCommandBarPopup  NewMenuItemCommandBarButton9 Application* CommandBars  FindControl mID]ControlsKAddr TemporaryCaptionxOnAction InitializeBarFWorkbook_BeforeCloseCancel TOOLBARNAMEDeletexXLAppŲSheet1AppClass#apptapp_WindowDeactivateWb_WorkbookkWn_Window6ButtonWasClicked UpdateBar3app_WindowActivate1app_WorkbookBeforeCloseG_OnTimeTNow% TimeValueapp_WorkbookBeforeSaveQSaveAsUIModule1bShowTruncatedNames}ShowHiddenWindows9 ShowIconsDTaskbarPositionAPPNAMEKpDEVNAME< WLToolbarc CommandBar GetSettingVisiblePosition ProtectionmsoBarNoCustomizevmsoBarFloatingwmh_Height|OptnsW msoControlPopupl)Itemz BeginGroupSubItem.msoControlButtonnFaceIdiState msoButtonDownJ msoButtonUp6ShowTaskBarHelp'c UserForm1)ShowToggleWorkbookTaskBarDocumentSummaryInformation8'CompObj,mfo  4i05pFz?aH H fLQ8 C9- !"#$%&'()*+,./01234567M:;<=B?@AS^EFGHIJK>OPUZTVWXY[\]oi07i*WJOH H i08i*WJOH H CompObjsx0fo"CompObjn Root Entry F+H KWorkbook!_VBA_PROJECT_CUR"YH H VBA *H bH orkbookGU T@iWkbok+ 2 HB1@BE,!Gm"B+qSheetT1G Se,t1 u2 P1 E  GClassGp C a si2roT5 oQd( %Module@~o@uB2Ă ouX! g~erg&a2/=s@&-#=-Officeu ThisWorkbook| _Evaluate W  }h+*\o(   pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1 W)$CommandsAboutndsTab3Tab45Tahomab4$H }W)$pe$#Commands5,$!Page2nds5,  i*WJOMicrosoft Forms 2.0 FormEmbfopCompObjnCompObj aedded Object Forms.Form.19q0-@@Directory path goes here&5 Courier New10-Workbook Task Bar Add-InI{@Arialab4D-+ -JWalk & Associates. All rights reserved.Rs5Tahomab4<-!Freeware from J-Walk & AssociatesX@Tahomab4$, Installed in:^ @Tahomab48mchttp://spreadsheetpage.comss]rR KQltF 0( @ ???????? 7 @Courier Newn0,Visit the Spreadsheet Page{@Tahomab4<()This add-in may be freely distributed. It may not be sold, or included as part of any commercial product without the written consent of J-Walk & Associates. NOTE: This add-in may not be perfectly compatible with other macros, especially those that make use of Application event processing.a$^ 5Tahomab4$H }(5"xr8 2TInstallDirectoryLabel-Ina( 2TLabel194ae( 2dLabel594a(2`Label204a(2HLabel154a, 2LabelWebSitea"(2TLabel134a(2\Label214a i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q ) Menu Itemnds  @   "#$%&()*+-Tahomab4(Set the position of the workbook task bar If enabled, the workbook names are displayed in a shortened form If enabled, hidden windows are displayed in the workbook task bar If enabled, each window button displays an icon Minimizes all windows Restores all windows Displays Excel's Arrange Windows dialog box Redraws the workbook taskbar. Use this option if, for any reason, the taskbar buttons do not correctly represent the open windows. Displays this dialog box5Tahomab4(Position: Show truncated names: Show hidden windows: Show icons: Minimize all: Restore all: Arrange: Reset: Help* @Tahomab4 ) Descriptions @Tahomab4$H }(5"o(2HLabel3(2Label2(2Label1W(2DLabel4(OK4uTahoma#9MultiPage1( 74OKButton!#& Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = Xx  JWalk And Associates' Sheet1  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q