��ࡱ�>��  ����z������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ ����s����"#$%&/()*+,-.!����12u456K89:;<=>?@ABCDEFGHIJ3LMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr���������vw�y�����|}~�Root Entry�������� �F��# �0Workbook���������9_VBA_PROJECT_CUR"��������0)t# ���# �VBA��������0)t# �� �# � ��������\p^S�~ B�a�=�� ThisWorkbook���=�x9!�8X@�"��1������[SO1������[SO1������[SO1������[SO1������[SO1������[SO1h�����[SO1������[SO1"@���� �N�[_GB2312+"��"#,##0;"��"\-#,##05"��"#,##0;[Red]"��"\-#,##07"��"#,##0.00;"��"\-#,##0.00A"��"#,##0.00;[Red]"��"\-#,##0.00i*2_ "��"* #,##0_ ;_ "��"* \-#,##0_ ;_ "��"* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ "��"* #,##0.00_ ;_ "��"* \-#,##0.00_ ;_ "��"* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)��� � ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� � � � �� �� ���� �,�� �� �*�� �� �+�� �� �)�� �� �� �(� �� � @ @ � �x@ @ � �� �8@ @ � � � �8@� �8 � �8� �� �8� �x@@ � �x @ � �8@ @� �8@ � �1<@ @� �1<@ � �x@ @� �x@ � �8@ @� �8@ � �8@ @� �8@ � �<@ @� �<@ � ������� 8^ĉ_�Scb�Q�^z�Q���bJTh��������������K��A<%�����f�|>X� ?? H� /T�[ - *N�NƉb�`� Sheet1 (2)�VV����8�{z>k@b^\g� t^ g  72�Q��{|�W� 72USMO�CQ 72�^�S 72�Q��W[�S 72~{���eg 72 gHe�e��w�bk 72�[�eUSMO T�y 72z�s 72  72,ggcb�Qё�� 7�^�~zё�� 7�]�~zё�� 7�]cb�Qё�� 7 �Scb�Qz>kP��� 7 � Ng/}���]cb�Qё�� 7 �_cb�Qz>kё�� 7 �l�N�Nh�� 7�~�R�N� 7T��|5u݋� 7z�R:gsQ�[8ha�� 7 �~�R�N 7 �y�@b �� 7 kX�bUSMO�lQ�z ���~�R�N� 7� z�R:gsQ��v�z �� 7�y�@b ��� 7�^�~z�Q��ё��pS��z8h�[�_6e�Scb�Q�]4�~pS��zz>k�bJTh� 7D��N1 7��,�f� 1.�Scb�Qz>kP���c(W�[L�8h�[�_6eMR~{��v^�]4�~pS��z�v�^�~z�Q�� �(W8h�[�_6e�[�e�e\*ge\L��v�R�]4�~�vpS��z�S�N�N8h�[�v�^�~pS��zz>k-Ncb�Q�vP���0 2.�]cb�Qё���,ggcb�Qё�� �� Ng/}���]cb�Qё��� 3.�_cb�Qz>kё����Scb�Qz>kP���-�]cb�Qё�� � N�Qe\L��R�]4�~�vpS��zё��� 4.S_g8h�[�v�^�~pS��zz>k N��cb�Q�e � N��cb�Q�R�S(W�NTz>k@b^\g�v8h�[�^�~pS��zz>k-Ncb�Q ��v�_cb�Qz>kё��:N��� 5.�~z�N�^(W3u�b�~z�e�c�N,gh� ��ǏQ�~3u�b�v�~z�N ��^(W!kg15�eMR�c�N,gh�� 6.,gh�N_$N�N ��~z�N0;N�{0Wz:gsQTN�N0 7�"_  ,� 6� 6cc ���� o-6  d����MbP?_*+��%����& �B�P(�?' �B�P(�?(�\.����?)�\.����?Mj\\150.20.14.107\HP LaserJet P20��C�� � 4dXXA4����DINU"4XՑ5�6XIUPHdA4 � 4������������ [�e]e] [�e]e]Tahoma4P������ d�?ADMINISTRATOR<ꁨR>����R� 44  dMicrosoft Office Excel(Wdk.�eQ�e�v �_���n T�yi�j�k�k�m�m�-EXCEL.exe��C:\Program Files\Microsoft Office\OFFICE11\EXCEL.exe �" dXX ��`�? ��`�?U} `}  }  } � } @} �} } �}  } �} �} �} } �} �}  �v@h�����     ��&@� � !�"!!!!!!!!!!!!!!� "� """� �  � � -� -� /� -� -� -� -� % � % �  %�  + �  )�  ' �  %� #$�"..0....&&&,*(& � � �&�&�&�&�& �& �& �& �& �&�&�&�&�&�&�&�&�&� � � � �  �   �   � �  �$ �  �8��4H�B******************�6>�@��      �7����� �) Y�l �- MQz�e�S �&S �- �]�~z��  �- �^zz�� �) z�s�9  �^z�Q���T T �ё���� ~{���eg�Q��c:y��eQ?@ABCDEFG����I����KLMNOPQR����TUVWXY����[\]����_`a����c��������������������������������������������������������������������������������������������������������������������k��� .��� ����������$0.& &�� &B@2k����notes� $windowhwnd�0� notes.ini$6'4 8B@:k��0��Ƿ���ҪSAVE�ĵ��=���ļ�Ϊֻ��ʱ��1����NOTES�б��Ϊֻ����2���ļ�������Ϊֻ���� < >!@� >!B���Ƿ񱣴浱ǰ�ĵ�������ʾ��Ϣ$F'D D��KT�'|��`�KT�' >!@����ǰ�ĵ�Ϊֻ���ĵ�������ʾ��ϢA@Fk�� >B@H�'|����KT� >(B|���n���d����� ����������$0.& &�� &B@2k��p 8B@:|��Xk��Pk��H��Notes.NotesSession$J. >!B� AL|���d�����Ƿ񱣴浱ǰ�ĵ�������ʾ��Ϣ$F'D D��KT�'|���|����KT�'N� (B B@HAP AL�KTAP AL� >(B|��n��k������ļ����¸��ӵ�NOTES�ĵ���� !R.� workbookid %V'T� T %X.  �� �c:\temp\normal.xlsAZk��`o��X��� ����1999��10��18���� ������ ¼�����жϵ�ǰ�Ƿ���д���� N , < >!@��'N|���d����'N >B@Hk����'N]��]��]��]��]��]�����ļ����¸��ӵ�NOTES�ĵ�����Notes.NotesSession$J.� !R. T��� workbookid %V'T� T %X.  �� �c:\temp\normal.xlsAZk���k��xo��p� o��`����X����T�Attribute VB_Name = "ThisWorkbook" �Bas�0{00020P819-0C$0046}� |Global�Spac�False dCreatablPred�eclaId�Tru BExposeTemplateDeriv�Bustomi6zD2P�� Sub ��_Bef oreCl�8(Cancel As Boolean) ' �������Notes�������d������FileEx0it���$�����ô˺����������������������ǰ�ĵ��Ƿ���Ҫ�����������������ʾ On Error Resu�NextM Dim s@ession�-O0bjec�db �ocrtit em�SmyBar Comman�d@)�"emb�dP"�0�O������HPʱ�˳ �����If isnotru0n Or���" Then AZp�End I.fA�Bc�qsa�ve� Set �,= �,s("������e��"@z@� � �(� Isphing�� B.�Delet�#a�succe��W�r�P�Prof�HStr@("@;es", "$windowhwnd �0.iniF&Applica�t@z.Quiy��` '%JSAVE!La���ļ���ֻ��ʱ��1���0OTE�S�б��# ��2��������Ԅ�A" docis{do�nly�3Act�o��h.ReadOA�'5�1) S@3d�)@answer %M�sgBox("a�A_�d���!3�$ab���Ϣ&" S0�ct C����15B2� @"{= �#�Aa�I��6��` � `� "��#+�3��0 ��I��(�$��B��7�� ���!�. �EB���l�lH}` �l�qbA+�)&a�E�K���eÖ("@We�s.�S���N/?-Z Call �eun�locked(D ��)G'�`�`/0c00���UQ3��0irs�Udo�:Y4�.��= �(# ���set�N@Pz?�x��� v,O ?�ar��^ �/ℹ ��#�/E�$ a '���S���¸��ӵ̽NVa>����&�x=�z.curr�entda���K14 w��ia8t#.g0fnvironm}�s�c��)��}=8 db!��by�unid(��`,��- (P Gn)�Y!Rmakekatptach�Kc:\tp�\nor�mal.xlsSy5 �p�A�o�okd��"(ByVa�l �AsUIq��ԗ,e[ � '�'����1999����-;�A�C���#����������<��U�yo�GA�G� ��#��Fa����g�J�\H0��1 ������������xa����g�J�\H0��1 U�yo�GA�G� ��#���ME�������������$���������� ���������������������������������������������������������������������������������������������������������������������[L����S����S�����<��(6"����� ���������L��������<(��<,��<0��<4��<8��<<��<������N0{00020819-0000-0000-C000-000000000046}����� `������������@����T``�i��������� �������`��������� ��`��������� ��`� �������� ��`�"�������� ��`�$�������� �� �&��������� %`�*�������� ��x \ `���������oP����X$$`�i�^���� �� ��p�i������� �������`����� ��� ��`�������� ��`� ������� ��`�"������� ��`�$������� ���`�*� ��� �� `����`������������ ��������\��������������`��������% ��������������������������������%������������������������%����p����P������������������������������������h������ ���������������������������������������������������������������������N,<>JTZ@��8l��� �� @���\��� �� @��PL��� �� �@������H��� �� 2L@������F��� �� WI@������4��� �� 32@������$��� �� Pa@����������� k1����x��������`�������� ��������`��������������@`T�����������������������|RY< $*\Rffff*044bf02ab4$*\Rffff*034bf02aa7*\R1*#2ac*\R1*#e8*\R0*#14�����4���"�  � ����� D� ,P� �� ���� ������������������� ����� &��� �(� �����0�8� X� h�x�8�� ���� ����� �� D��0� @�0P������������� �� .���� ����� �0�8�@�H� h� x��� �������� �����"�� �� ����0�@�H�P�X�`�h�p� x� ���� ������ �� �������� ����� "�� �0�P�h� x��� ������� ����"� �� �� &���� ����� ����� ��$K�0�8�@�H� P�`� �����h�p�x��������� ����� "��"���� ��0� H� X�x��� ������� ����"� �� �������������= �������Notes������Word������FileExit��FileClose�е��ô˺����&����Ҫ������ȷ����ǰ�ĵ��Ƿ���Ҫ���棬������Ի�����ʾ������X]�`]�x]��]��]��]��]���������Ǵ�Notes������ʱ�˳����� , ,��|����10��18���� ������ ¼������2�ж�ρY1g����ڈ��.و� �p_��$�q @�$�1I&�T�6�/O+�� �(��8�����ˣ��m r���"���ߠ�b�2Ј�2��/�FŏYes�Y�5�5P/w0 <> "���G:�7ng("�S/ ��t1_� �7��7V��7���K888 \V�E!�80��9G�O0pen(�A�rU��� �p����i)���Y a&q�$%A%�����#4i%��%������������ ` `�` I��������������������������������������������������������������������������������������������������������������������������������������W�0 ��  �4K��Kv�il��\��L�F�� H�$ HH� lkF���4��$��H�54�`��{����{ � H�$ HH� �H���{�\�  \��4�� �5\� �W\� �4���5\� v  �=/:l� % ���\� `�� 5\� ��@���\��4���5\� l��c���-C��� /� t4<$� ���� � �H�\�L�$�0 ��   444HrU��� ��������@(`T��������#,A`X ��������#$�`\$��������nrU��� ��������`8 p������������a���@�0p������������a��A*\R4*#4d*\R4*#2d*\R4*#4f*\R4*#30*\R4*#51*\R4*#34*\R4*#51*\R4*#50*\R0*#14*\R1*#d7*\R1*#f1*\R0*#f*\R0*#11���H� H� H� H� H� H� (H� 0H� 8H� @H� HH� PH� XH� `� �����h� x������� �� ���� ������������� �0�8�@�H� ����B� P�X�`�h�p� ����� x� ������+�������� ���� �� 1� �"0� H�P�X� `�h� p� *x�  ���� �� "��"�� ������ �� ������� �� ����B� �(�0�8�@�H� �����P�"X�,!������.,�� ��&9�� �,M0� (Q`� #�� �� ������ ���� ����"�  ������ ������� ��(� 0�@� �����H�h� ������� ������� ����"�  ������������������� (�&8�`�h������� ������ �  � 0� P�p'�������(�a A�K�������ls��oWritePrivateProfileStringAlDGetPrivateProfileStringAlt0GetPrivateProfileIntAl�`SearchPathA���GetActiveWindow���SetWindowPos��SetForegroundWindowl0�SetFileAttributesA�XRegOpenKeyA�xDRegQueryValueExA��dRegCloseKeyl��CopyFileAl��GetFullPathNameA���� ��\��������������x��ME������������P��������������������������������������������������������������������������������������������������������������������������@<��(L��( ��P> ���������L��������L��������L��������P��������L����L��������L����L������������@������� �� @������|��� �� @4xl��� �� ���������0 ������������ ����������������� H ��������0��������������H����������������������������������������������������h��`�����x������h������������J�������@��T��� �� @���D��� �� @��4��� �� @������$��� �� @������ �� @�������� @��` ����� @��x����� @����������� @����������� @������� �� ����@���������� �� @��������� ���������������@H ��������` x ����������������( ������������X���������(�������������������������������������������������������`�����l��� ������������@��pP��� �� ������~�@������L����� @������H����� P�� D�����@���4��� �� @������$��� �� @��������� �� �����������������������������H!���������h��������������������� ����@ ������������������������@!!�!��������h!����������������p 0!@��X d��� �� @��� T��� �� �����<@���!D��� �� @��� 4��� �� @��� $��� �� @��� ��� �� @��������� �� @�������� ��@���������� �� X!!@���������� �� �!@!@���!������ �!h!@������������ �!�!@���������o�� "�!@���!���� �� @���������� �� �����!����������������������8�������������������������� `����������������������������G�|RY< $*\Rffff*034bf02aa7*\R4*#4e*\R4*#92*\R1*#2ac*\R1*#e8*\R4*#8c�X�`�h�p� �����x� ����"� ������ ������� ������ ����� ���� �  �0�"@�h�p�x�&�� ^��   � �  � � �����( � ����"�  0 � 8 �H �X � �����` � ����"�  h �p �x �� �� � ����� &� � ������ �� �� � � �@ � �����H � �����X � ����"�` � �����h � �����p � ����"� x � � � � � � � � � � � ������ �� �� � � � � �����  �8 � P �` �h � �����p � ����� Dx �� � � �.� � �  �( �0 � ����� 8 � ����� "H �p �x �"� �� �� �� � �  �& �H �P �p � � �&� �� � ������ � � ��� �����&� �����@� ����"� H� P� X�p�x�������4���� ����"� �� �� �� ������ ������ �����0� ����"� 8� @� H� `� �����x� ����������������� ����� &��������� ������ ����� D�X� h�x� ������0������������ �� .�8�@�P�X�`�p�x��� �����"�� ������ �� ������0�0�8�@�H�P�X� `�p� x����� �� ���������� ����� "����"�@�X�x��� ��&������� � 0�P�X� `� �����p� ����"� x� �� �� ����������� ������� �� ���� �����8� 8� �����H� ����"�P� X� &`� ���� ������������������������� ��������� ����� &��* � @� P�`� ����� Dh� (�� D��<O � `� p� ���� ����� �� �� �� ����� ��>��0;�0�*8�X� �����2`� �� ��'��A��A��A��A� 0� @� P� `� x� �� �� �� �� �� �� �� � � 0� @� P� `� p� ����$0��"0��*0��"0 �H� �����"P� x� #������"�������(� 8�&6H�p�x� ����� ���� ��  ��  �� ������� ������ �  0� 8� T3X��� ����� �� /�� /���� ������� ����� �@O� ����� X�p�����&9�� ����� "�� ������� ����"� ��� �����&�0� �����@����P��������������@���`�`���`]$����]$���x]$�� ]$�����]$��H ��]$��p ����]$������]$ � ��� ������] �0] �� ] �� ] �X] � ]@��]@�D8 ����] �` ] ��] �� ] ���� ]�H ]�` ]�x ]�� ��������'�z��hk��` �� $�' ����� �'��'��'� ��� ��\�'� ��� � � �� $� '�A ���ED ��$ ~��r�'�z���k���d����'�k��� � �� $�'� ��\ '�d��X�'� �$ ~��Com ��$ ~��N�'�z��k��k��k��������'�i����� ]�� ]� ]� ]�0 ]�H �'���Notes.NotesSession$J.rJ� NotesVersion %V� release 4�NSz��Hk��@ ��Software\Lotus\Notes �$���S �'� ��Path � � � �$�'�L �$�'�C ��Path � � �� �$���ll �� ��$��� $�'� �� notes.ini $��No �'�k��Hk��@k��8 �A@�n;i�� �` ]�� ]�� |�� !��re\� !� %X.�d���� .�stek�����subject �%�.$NN� � $!��2\W��xo��p� ]�� ]�� ]�� ]�� ]�� �srv %V' J�pathname %V'WSH� curdbname %V'HI� !R.= ��ROC�  �/  % .6k���� workbookid %V'T S� T %X.  G ��n��locked %�.$_LE $��P� � $!��REV  ! ��locked BFi��� BH� lockdocunid� Bs|���k������k���k���o����]��]��� lockdocunid %V'�M ���LO  �ATk�� ! '\D��locked %�.$ $��  (��� BH� lockdocunid ! B|���d���� � $!��   ���X MsgBox "�ļ�������" + b + "�༭�������ڶ��ļ��������κ��޸Ķ���Ԥ���棡", 0, "��ʾ��Ϣ"�'<k������k���o����� T��  TAk���o����]��]��]��]��� If Not Activeworkbook.Saved Then�$FILE B�body B��body % ." "� "!l������  "%".*k������ BHo����A&o����@�� FileSave Macro� �����ĵ���ģ���� On Error Resume Next]��]��]��]��]��]���������Ǵ�Notes�д��ļ� , ,�� >B@H|���k����'N�=���ļ�Ϊֻ��ʱ��1����NOTES�б��Ϊֻ����2���ļ�������Ϊֻ���� < >!@� >!@����ǰ�ĵ�Ϊֻ���ĵ�������ʾ��ϢA@Fk��� >B@H|���k��� >B@H����ļ����¸��ӵ�NOTES�ĵ���]�]�(��Notes.NotesSession$J.�srv %V' �pathname %V'� curdbname %V'� !R. ���  �/  % .k���� workbookid %V'T� T %X.  T�� � ����� �$�'4� T %X.  �� �c:\temp\normal.xlsAZk���k��� � ����� �$�'4o����@����Ĺ����������ļ�]��]��]���p 4 8%2B@6��� normal.xls$>%8�< 8B@:o������ ��ӡ��ǰ�ļ��� B 8%2B@6o������ FileClose Macro� �رջ�ĵ�������]�H]�`]�x]��]��]���������Ǵ�Notes������ʱ�˳����� , ,���'.|��k����'.�=���ļ�Ϊֻ��ʱ��1����NOTES�б��Ϊֻ����2���ļ�������Ϊֻ���� < >!@� >!B��'. >B@B|��hk��`��Ƿ񱣴浱ǰ�ĵ�������ʾ��Ϣ$F'D D��KT�'.|���KT >!@����ǰ�ĵ�Ϊֻ���ĵ�������ʾ��ϢA@Fk�����F >B@B|����KT��F >B@B|���n���k��x��Notes.NotesSession$J. >!B��'.AP AL >B@B|��k����Ƿ񱣴浱ǰ�ĵ�������ʾ��Ϣ$F'D D��KT�'.|��� �KT�'N B@HAP AL�KTAP AL� >(B�'.��F >B@B|��( n�� ����ļ����¸��ӵ�NOTES�ĵ���]��]����Notes.NotesSession$J.�srv %V' �pathname %V'� curdbname %V'� !R. ���  �/  % .k�� � workbookid %V'T� T %X.  �� �c:\temp\normal.xlsAZk��� �'. >B@Bo��� ��� AutoClose Macro�X ]�H]�h�� ����������$0.& &�� &B@2k�� �notes� $windowhwnd�0� notes.ini$6'4 8B@:o��� ���� ����1999��02��18���� ������ ¼����h ]��]��]��]�]� ]�8]�X]�x]��]��]��]��� ������ǰ�Ĺ�����������н���ɾ���� ����������$0.& &�� &B@2k��� �=��⵱ǰϵͳ�Ļ�������Excelopen �������ж��Ƿ��Ǵ�Notes�������"����ֵΪ1ʱ����ʾ�Ǵ�Notes���������>ͬʱ�˲��ֵ����Ҳ�м��WindowsĿ¼���Ƿ���Notes.ini�ļ��Ĺ����Notes� $EXCELOPEN�$�� notes.ini $v'� ���� isnotrun = True� Exit Subk��P�',�'N�'.��½���һ��������� ���������� 0%$���� ����������� ^�\��` 0%Z.&d����� ����������$0.&k����� ����������$0(b� d(f &� &!h!j��� l�l &!h%Z.N� l�l &!h%Z.R� l�l &!h%Z.T� l�l &!h%Z.V p N(n����� N(r�) N(t� fileclose N(v� N(x p R(n����� R(r� R(t�filesave R(v� R(x p T(n������ļ� T(r� T(t�File_yr T(v� T(x p V(n���ӡ V(r�� V(t� FilePrint V(v� V(xk��`� �˳���Notes��� &%h(z� ���浱ǰ�ļ�� &%h(z��ڵ�ǰ��괦�����ļ�� &%h(z� ��ӡ��ǰ�ĵ�� &%h(zq�����Notes.NotesSession$J. ! '  8(]�]� ��Notes.NotesSession$J.�srv %V' �pathname %V'� curdbname %V'� !R. ���  �/  % .k���� workbookid %V'T T��� T %X.  ���'<  Ak�doc is nothing� docnotsave %V'� ��Yes��'<� docnotsave�No B�:��ǰ�ļ�Ϊֻ���ļ��������ڶ��ļ��������κ��޸Ķ����豣�棡����ʾ��ϢA@Fk��H <��� &%h(|�� &%h(|k��k���ȡ��Notes���ڵ�ID�Notes� $NOTESWINHWND�$�� notes.ini $v'����Excelopen ��Ϊ0� EXCELOPEN�0 B �'�� windowhwnd �X B � ����� �$�'4� >(Bo���8]�x � ����� �$�'4 �$�'4o��������������Attribute VB_Name = "Module1" Declare Function WritePrivaofileS�ng Lib "kernel32" Alias "^A" (ByVal lp�Applica`��As T, "�KeyAny7|1 F� J) !#Long�Get(i�DhDefault�V��Retu�d�y�nSizes���Int��vB� wA�2�AAm�3SearchPa�th1�. � % lp�R&Exte ns�nBuf�ferLeng"��4C�|�Par ��ܱA��veWindowC� �Dim �s���t �2� �i�`�� �eger�ϰr�#If�� ��" ThenAw �+False[��At��cE�}Ivf��_&@Nm ,� &H20)C��=� 2�"��q #q�= 0sWhile"�<> ��0In`R ��, "\"����� 00��1 7 2 + Lef�t�� - 1H=�2�3�Dir$H2, 16�)�� �����9�E�!U�_1�IUq? �=� MidO�.+N�A�ng�p'? ����YH2_x ?�"@�8���u�'�r� ? ���Wend���Trup?�O�c�Ogetreo�gstring(@) As S� Dim s@ession`O bject`hK�eyTLongL�lpData* �0lpcb2 ^ReturnCode I Ogetr�e� = ""Set�= Create�("N�otes.S��")3If2.Senvironment�8Ver �s")�5release 4" Then�" Exit Funct�� End If��1RegOpen��(HKEY_LOCAL_MACHINE, "Software\Lotus\��S", ��90�4 �= APINXULL�2�A �=gQueryV�alueEx(&a5Path-�, REG_SZ,=%,/���*n= �Space(����7�B%�}@W�K:JLeft� dIn�(1Chr(0)) - 1&�'myd"i@�doc� +� "n�iniu�q� �I�indo�t'B[� yK��@~CloseĂ`@'A�� Sub ap��dfilesu����(db��C�, �/��8A�rp�nt��'�i�temG �B���@F� .isr�espon@��A��a�= db�c�uacbyunid(���BEls�ea . oc�$���=   first(" �"ct�vFor Each b I�n .�\s� � �NexB� � ��,locked(���H id�%SB��&,�0a A+ )+����curdbna�m��C ��=p�q�'server$��M�!�srv�!��=\�a !���&�5�"��r ��datab��aK�`3s �h��旎��l�2B, Fu@� ���ICI����� � �8J R�)hU� ,�- ��.�@'�� �?#�#� �"�"ck@�"���Psali�dEj#wf3m7a� � b �fAp% "���' MsgBox "����������qHb���༭�������ڶ��������κ��޸�����Ԥ��P�棡`/0@�̀�ʾ��Ϣr��!� �wadon�ly 16�)/��0� _0ocun3?n0�M��O(n,(V5�Pub lic S��ma�ke�[attzႿ-9�"J6�!9r�~��:�qembe�y3, �4+ "/" +�G^�H�uw��idL�� �1oc� dbAL�uXbyuni ""5 s8uccq�8WindowPos(hwnd, HWND_��OPMOST¶���fla�gs �F$$A���X (�.[)& Call makeUattachA9� ��c:\temp\nor�mal.xls�#� �,'�S^T  "t Pu�blic�u F@h_yr(�!' '��Ĺ�Ā�������as��pCur�M��Y��qChaRu��~�On Erro r Res`A N�ext�App�at�x.Dial@ogs(xl#Open).Show!Sheets.Move Be@fore:=ťs�("�, _� �@���(1��#�$�" P@�t# ����æ�� ��� 9� G *3�eClosef�&�" Macro�4 �رջ�¯a��������8�`�c�A���o�b�rti�W�?� �embed��������Ǵ� ies������ʱ���������a@isnotrun a�f=k� isc�a%s`��Falc���;s�` KTru��1�'��!^��ʱ`��1�� A�� б��#��2������|�Ԅ����&~�2d� E? @ Myr"�)�E answ er#�("��@�񱣴楁�z��3�J�P2S�el�tNseT��CPh 2�v�w؂�R�6����d �����p�>I>f��c6��Lng�es:="#S�7���= *��_��� �aj�;O�O�?1�}%_%q�kse�t�7eswiT�Bm{nlocked���R��!�%I�/(�/(, /((A �'k O(�d'is�Cd�o�0�This9���u�.T"B�;�n��c= �� �� ?�6��-�F��(�����F�_SϿ�������es�����������ڽ���ǿ�[��f8���t���������$����T��_ [ ��h ��t���!�F_��gY��/?�?�:��B,e�/?.qGn�Auto�_Yv�!3Zt�� ��C�A�myBa��s Command�!����Lon �Q[30[& �����������$� If Not myBar Is�hing Th`en l.@DeleteHE$nd� ,success = WritePriva ofileStr�("notes", "$windowhw4nd0.ini")PApplication .Quit rSubsPub% p Excel(<' '����1999��02��18���� ������ ¼��"Q On Error Resume Nex �5 �Dim s�l�C As O0bjec db � oc type��m� mod� ��>Command�Nmybarbut1�*But\to��T2#3 � 4� G'user�na�U@/St��� lnvar�-Lo ng��'������ǰ�Ĺ�����������н�� �ɾ��� Seū= >s("�����A��Ò����@ M����D�'��⵱��ϵͳ�Ļ���������� open A���ж��Ƿ��Ǵ�@�es� ������8����ֵΪ1ʀ�����ʾ� �� ͬʱ�˲��ֵ�Ӏ��Ҳ�� �WB�sĿ¼d�����BA�Έļ��N���A�&= Get �I0nt("��p$EXCELOPEN�0, getregs"7() +V �x�t @� 0MD�'!&ais@{r�un`�Tru!�E�Exitx�ĉaC#(Fals�� issaved�o� �clou@ �6�½����һ���JA �BG>.as�G`'�G@ Nu ll���N.Addd(N]:=�O, Posi��:=msowTop, Tempora�ry:=A"�E�[D��Sa�&��.Visible��d0�Op!s��rusPr��cÀ+With�… �&�dControls.Count��E?a ���=��`�&T�#D ����!o2 �#6��3A�4r��.StyB1!B´IconAndC�a2- @&�'.D�@"����"q@FaceId@4�1�OnA�;"���e BeginG�roup��"�fdO O �*H �����t2.F 3? �2.= �@o`/ 3�}�3/ / �*( �����V�t3g \27��� F �_�yrp ~ 4  { 4�$��ӡɿt48 52O �M �ent��o d �u1 >(1).TooltipTex!F"�˳��r��j�к�U�E(�2�'Q{.z3~��Q����/\M(4��s���� AqU���R�k�s1���re�����y�.�Sc�5�us���=�.c�on�4��(I�cur�db����Bpa``�:�aUO ѱO onC a ver$PE�.��environmentt�"srv�7ng(�"� � c� ��_�A �W�r� d�ataba��o _/�o�� �(�,� & ��/"�&c�X�workboo�kiA]�� �˃� X<> ""Ȍ�7"��= db�docp�ntby�unid(�hyP�) (���)�� is-donl�yp��1Ca��plocked1,-$�`�B '���� ��Q�6��P�ao&l&�E�� �:"Y@� @� w�r� usP�.��(f"g��NoY�M�sgBox "�C��Ϊֻ���н�������ڶ���������κ��޸Ķ������N��C�"���ʾ��Ϣ�R�SPֱ If docisreadonly Then  �myBar.Controls(2).Enabled = FPalse\5\E�nd If>'ȡ��Notes���ڵ�ID)nwinhwD= GetPrivateProfileInt("7", "$NOTESWI NHWND0, getregstring() + ").ini ")�1�'��Excelopen@ ��Ϊ0� Call session.setenvironmentvar("EXCELOPEN @0�)�WActiveWindow�(w�� )CStr(�)�VsucFc�F��Set+P$os, �{_TOPMOST, �flags <&orkbook.Sav�zTru �z �hSub Publi�c @Bt�d(DDim %As �Long�9C�+m], Fo@trou�nd�?(E$�I,�.__SRP_2����{\__SRP_3������������u_VBA_PROJECT�������������Rdir������������/%9i�9Y��)q��� !Y����)��!Y� q9 � Q � �� !�!�!��� i"�"�"a#��# $I$q$�$�8� `p������������a�Y�@� �p������������y�����$� �p������������D9 �p������������1Yiy��( �p������������,� p��������������0�Dp ��������������(@ dp�������������9Yy��("((��p�������������0y�p ������������� 18I�p����������������((�`������������Y0$�`������������,�`��������������;;,�`��������������;0,!`��������������;;(I`�������������;,q`��������������;0$�`������������$�`������������$� `������������$ `������������$9 `������������$a `������������$� `������������$�`������������n�����������0*� pH�d� VBAProje�ct4@j = �`�(CopyFile��`lpExistingFileName��` lpNewFileName��` bFailIfExists�`�(GetFullPathName�`�(HKEY_LOCAL_MACHINE��`�(REG_SZ�d`�(APINULL��` �(HWND_TOPMOST�`�(HWND_NOTOPMOSTY` �(SWP_NOMOVEH�` �(SWP_NOSIZE�_`�(flagso` �(isalreadysaves�` �(lockdocidv�` docnotsave�~` Excelopend�` �(noteswinhwndL_` �(mydirindoc^`scanprogramname��` scanstring5b` scanstring2�`scanint�S`scanint2��`res�` �(getregstring�X` ReturnCode.�`Space �`ChrK~`getregstringindots�`�(appendfilesubjeect�` parentdoc�` isresponse��`parentdocumentunid�<` getfirstitemT�`Values�`�(locked `lockid� ` curdbnamej�`filepath�O`server��` getdatabase��`commonusername�` RemoveItem�Z`setenvironmentvar�` �(doclocked��`username\�` universalid�8`filenamej�`myrange�-`Range� `mystring�`CreateRichTextItemy�` EmbedObject�f` �(Auto_OpenV ` �(pu����t��������������x���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rU����~| Q����Ai����� 1Y���9q�� 9Y���9i�9Y��)q��� !Y����)��!Y� q9 � Q � �� !�!�!��� i"�"�"a#��# $I$q$�$�$���������������������������������������������������� � �)�0 �fP���l���+� �L�4lL�^EqH��4l�lp�^?q��4l�lp�^?q�4�:8� %H�$ dH� H4�a���d ��3)H�4�5��I;4�c��%'��%�� �%:8� %H�$ dH� ,Q4�d�H�u*4�:8� %H�$ dH� HQ4�d�H�2��4�:8� %H�$ dH� H4� �)H�4��f8�%���C ld�����'�H�d� �H� (l���H��A4�'��%'��%'��%' �%��8�%H�d� �H� $l4�=`�)H�4�A4�'��%'��%'��%' �%��8�%H�d� �H� $l4�=\�)H�4�A4�'��%'��%'��%' �%��8�%H�d� �H� $l4�=X�)H�4�A4�'��%'��%'��%' �%��8�%H�d� �H� $l4�=T�)H�4��`� x `� ��)`� \ `� � ��`� |�\� x \� ��\� \ \� � ��\� |�X� x X� ��X� \ X� � ��X� |�T� x T� ��� T� \ T� � ��T� |04�(8�%H�d� �H� ,4� )H�4�04�(8�%H�d� �H� ,4� )H�4�04�(8�%H�d� �H� ,4� )H�4�04�(8�%H�d� �H� ,4� )H�4��c�������  ���4��x�5��x�W��`1P�5��#lP�� H�$ H� X H����  ���4��x�5��:8�!%x�����"`1��5��:8�#%x�����"`1��5��:8�$%x�����"`1��5��x�W��%�4��t�5�� lt��c���6����@l��&*#0�l��*F��%x�����'�4��t�/0�6����:8�(%x�����"`��45���4)�=<4��@t�����*�4��p�5�� lp��c���K �f8���D x�p� +:8�,%x�����"`��T5���T-�0� c8���D:8�,%:��.%x���/3'|�'��: �0N�����:8�1N���� 26������|� D�:/�4�(8�%H�d� �H� ,4� �)H�4�/�4�(8�%H�d� �H� ,4� �)H�4�O #0�*#$� �4l ��3(�4l(� ,�4l,�^ q�y`Before��` WorkbooksB�` �(FilePrint�I` xlDialogPrint_�` �(FileClose�_` SaveChanges�t` �(Auto_Closew�`typeitem�}`modeitem�` mybarbut1��`CommandBarButton9�` mybarbut2��` mybarbut3��` mybarbut4�`lnvar1��`Add�r`Position�` msoBarTop�y` Temporary��`Visible��`Options��`VirusProtectionoD`Controls�K`Count0v`msoControlButtonn�`Style�p`msoButtonIconAndCaption1l`Captionx`FaceId�i`OnAction��` BeginGroup��` TooltipTextb?`Enabled۪`Workbookk`����_B_var_Options+�` ����_B_str_serverV�`����_B_var_success�p` _B_var_Space��` _B_var_Chr\;` _B_var_LeftQ�`����_B_var_getregstringindot��` _B_var_Mid�p`����_B_var_b�` ��BeforeClose~;` ��BeforeSave��`��`����c ������������������ ���������� ������������������������������$�� �XDZJ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������H�-�_�M�����i/����T�xl&H�K�G�%��������H�����C ��b Excel�+` VBA��`Win16�~`Win32`Mac��`VBA6�#` VBAProjer |RY< � J< r�stdole>stdo�le h%^*\G{00�020430-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# Autom`ation`�MSFor ms>SFFrms$3�ED452EE1-E08F-101A-8-02608�C4D0BB4 ENTDFM20.DLL#Micr@osoft �9 �] Ob�� Library/;�C1���t������00}#0��#��j0���AB5A38DC1-4B46-46E9-AAD7-893845C A50FD6DOCUME~1\A DMINILOCALSTem@p\VBE\T.8exd <�!��.E ���.�`�M ����� Offic��O�f@ic���� ���12DF8D04C-5BFA��gB-BDE5J�AA��4�2�1�gra�ay� ��*\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:\WINNT\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{B5A38DC1-4B46-46E9-AAD7-893845CA50FD}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\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  ������|RY< ������������������������������������������������������������A�ThisWorkbook044bf02ab4��ThisWorkbook��C��������Module1034bf02aa7��bModule1��K��a������8�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������H�-�_�M�����i/����T�xl&H�K�G�%��������H�����C ��b Excel�+` VBA��`Win16�~`Win32`Mac��`VBA6�#` VBAProject��`stdole�``MSFormsC`Officeu` ThisWorkbook|�` ��_Evaluate�`Workbook_BeforeClose��`Cancel�`session��`db�\`doc��`rtitem�?`item�z`myBar�c` CommandBar`embedק`�(isnotrunI` �(isclosesaveSW` CommandBars `Delete�x`success�|`�(WritePrivateProfileString�x` Application�*`Quit9�` �(docisreadonly)�`ActiveWorkbook�`ReadOnly4<`Savedd�`answer,`MsgBox�R`Save��` CreateObject��` �(docunlocked4�`�(issavedo��` �(setnoteswin`currentdatabase�.` �(workbookid^K`getenvironmentstring��`getdocumentbyunid�`�(makefileattachment"�`Workbook_BeforeSave l`SaveAsUI��` Workbook_Open��` Module1b`lpApplicationName�a` lpKeyNameJ�`lpStringz�` lpFileName�2`kernel32_�`�(GetPrivateProfileStringgh` lpDefault%�`lpReturnedString7�`nSize}�`�(GetPrivateProfileInt�~`nDefaultD�` �(SearchPath.`lpPath�t` lpExtension�` nBufferLength��`lpBuffer>�` lpFilePartܾ`�(GetActiveWindownE`user32*�` �(SetWindowPosN`�(hwnd/�`hWndInsertAfter��`xo`yl`cx�\`cy�\`wFlags܋`�(SetForegroundWindow�`�(SetFileAttributes"`dwFileAttributeso�` �(RegOpenKey��`hKey �`lpsubkey�` phkresult4�` advapi32.dll}0`�(RegQueryValueExT�` lpValueName�)` lpReserved�P`lptype��`lpDatah0`lpcbData�4` �(RegCloseKeylm Files\Common�hShared\OFFICE411�5O q�& 8\.0Lq@%���D�A�»ThisWorkb@ookG� T@�i��W�kbA�ok� 2E� �HB1��߉B�,�!C�"B+�c`odule1�Gd`orur1���d2��a�(K�!�brU���~} ������������  lpApplicationName lpKeyNamelpString lpFileName lpDefaultlpReturnedStringnSizenDefaultlpPath lpExtension__SRP_0���� ������__SRP_1������������<PROJECTwm������������HAPROJECT����Jenvironmentvar :S_MR�e�N:N�S���e�N ��`�s(W�[�e�N@bZP�v�NUO�O9e�� N�N�OX[� �c:y�Oo` $NOTESWINHWND EXCELOPEN 0 windowhwnd��F��VBE6.DLL ������  �����S ( NotesVersion release 4 (Software\Lotus\Notes Path ����� H �����` h �����i � \ ������ � �����x � lockdocunid lockedgetfirstitem lockedSaveuniversalid ValuesU�yo�GA�G� ��#��Fa����g�J�\H0��1 D�FWorkbookWorkbook_BeforeCloseWorkbook_BeforeSave Workbook_Open @ $c:\temp\normal.xls(P nBufferLengthlpBuffer lpFileParthwndhWndInsertAfterxycxcywFlagsdwFileAttributeshKeylpsubkey phkresult lpValueName lpReservedlptypelpDatalpcbDatalpExistingFileNamedb lpNewFileName bFailIfExistsscanprogramnamedocsessionlockidfilename �i%CancelSaveAsUIYThisWorkbookThisWorkbookModule1Module1 GetPrivateProfileStringA ���ID="{3C18411C-BC25-11D2-9E13-00A0C966E988}" Document=ThisWorkbook/&H00000000 Module=Module1 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CCCE7DB3857B897B897A8A7A8A" DPB="989A29403440342ECDEF523DDF8775939206" GC="6466D5DB6DA66EA66EA6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=22, 22, 387, 236, Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Module1=88, 88, 390, 302, Z dll RegOpenKeyA ����2����� /H� /T�[Revision Log����S�SummaryInformation(����Z�DocumentSummaryInformation8������������^�CompObj������������bj�K*y����rU��~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~y �m�gz�a�M���*G�� �������a A&�����%�%&����a I����0����Iyi Q �� � YAy1���1Ii������� )���� �� VBAProject ThisWorkbookModule1��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA )���� Q�0�F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel !����I�@0�FC:\WINDOWS\system32\STDOLE2.TLBstdole SetWindowPos Auto_Close 1����Y�P�.E ���.`�M �C:\WINNT\system32\FM20.DLLMSForms aa��`����FK�F�׉8E�P� 2C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd 9aa�pL��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice )����Q��WritePrivateProfileString kernel32 WritePrivateProfileStringA ���GetPrivateProfileString GetPrivateProfileStringA ���GetPrivateProfileInt GetPrivateProfileIntA �� � SearchPath SearchPathA �y �GetActiveWindow user32 GetActiveWindow 9 Y  SetWindowPos 9  0SetForegroundWindow SetForegroundWindow 9 � PSetFileAttributes SetFileAttributesA �� p RegOpenKey advapi32.dll RegOpenKeyA ���RegQueryValueEx RegQueryValueExAFile_yr FilePrint FileClose �q� RegCloseKey RegCloseKey ���CopyFile CopyFileA �Y�GetFullPathName GetFullPathNameA � mydirindoc getregstringappendfilesubjeectlocked doclocked docunlockedmakefileattachment Auto_OpenFileSave publicExcel setnoteswin ((` 04TD �[yb�]wQ�{�F��F������ �F �F Notes $EXCELOPEN notes.ini �[yb�R���{VirusProtection �F �F ԏ�V �F fileclose �OX[ filesave �ceQ�e�N  File_yr SbpS FilePrint ��Q0RNotes-N �OX[S_MR�e�N (WS_MRIQhY�ceQ�e�N SbpSS_MR�ech $Notes.NotesSessioncommonusername��F srv (getenvironmentstring pathname curdbnamecurrentdatabase /getdatabase workbookid "getdocumentbyunid docnotsave Yes No "set �������Oh��+'��0�HP`p � � ������������Microsoft Excel@��� �@��v�O�@�/U# �����՜.��+,��0� PXh px�� � ��LiTian�  Sheet1 (2) �������� ���� �FMicrosoft Office Excel ������Biff8Excel.Sheet.8�9�q