customized menu

[delta5555]

hi, i have a customized menu but i need it to show in 1 workbook not all excel files,
and also on different computers.
i have an idea how to do it on office 2000 but im using office xp.

.>

cheers

 

[Ivan F Moala]

On 2002-09-07 12:00, delta5555 wrote:
hi, i have a customized menu but i need it to show in 1 workbook not all excel files,
and also on different computers.
i have an idea how to do it on office 2000 but im using office xp.

.>

cheers

How did you create the menu ? within the workbook you open (Code). if so and you have
also created a Retoration routine (To retore the Menu back to its last set-up) then run this routine on the Workbooks deactivate event>

Private Sub Workbook_Deactivate()

<META content=Excel.Sheet name=ProgId><META content="Microsoft Excel 9" name=Generator><LINK href="./sht_files/filelist.xml" rel=File-List><STYLE id=AAA_Instructions_VBAEnter_11038_Styles></STYLE>  <DIV id=AAA_Instructions_VBAEnter_11038 align=center xublishsource="Excel"><TABLE style="TABLE-LAYOUT: fixed; WIDTH: 438pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=582 border=0 x:str><COLGROUP><COL style="WIDTH: 23pt; mso-width-source: userset; mso-width-alt: 1097" width=30><COL style="WIDTH: 53pt; mso-width-source: userset; mso-width-alt: 2560" width=70><COL style="WIDTH: 320pt; mso-width-source: userset; mso-width-alt: 15616" width=427><COL style="WIDTH: 23pt; mso-width-source: userset; mso-width-alt: 1097" width=30><COL style="WIDTH: 19pt; mso-width-source: userset; mso-width-alt: 914" width=25><TBODY><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="WIDTH: 23pt; HEIGHT: 12.75pt" width=30 height=17> </TD><TD class=xl2711038 style="WIDTH: 53pt" width=70> </TD><TD class=xl2711038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2711038 style="WIDTH: 23pt" width=30> </TD><TD class=xl2711038 style="WIDTH: 19pt" width=25> </TD></TR><TR style="HEIGHT: 23.25pt" height=31><TD class=xl2711038 style="HEIGHT: 23.25pt" height=31> </TD><TD class=xl3711038>STEP</TD><TD class=xl3611038>HOW</TD><TD class=xl3211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl3411038>1)</TD><TD class=xl2811038 style="WIDTH: 320pt" width=427><SPAN style="mso-spacerun: yes"> </SPAN>Press <FONT class=font911038>Alt-F11 </FONT><FONT class=font511038>to display the Visual Basic editor (VBE).</FONT></TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2911038><U style="VISIBILITY: hidden; mso-ignore: visibility"> </U></TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 25.5pt" height=34><TD class=xl2711038 style="HEIGHT: 25.5pt" height=34> </TD><TD class=xl3411038>2)</TD><TD class=xl2811038 style="WIDTH: 320pt" width=427><SPAN style="mso-spacerun: yes"> </SPAN>In the Project Explorer window, find the <FONT class=font911038>ThisWorkbook</FONT><FONT class=font511038> object. If you don't see the Project Explorer window, press</FONT><FONT class=font911038> Ctrl-R.</FONT></TD><TD class=xl2311038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2911038><U style="VISIBILITY: hidden; mso-ignore: visibility"> </U></TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 25.5pt" height=34><TD class=xl2711038 style="HEIGHT: 25.5pt" height=34> </TD><TD class=xl3411038>3)</TD><TD class=xl2811038 style="WIDTH: 320pt" width=427><SPAN style="mso-spacerun: yes"> </SPAN>Double-click the <FONT class=font911038>Thisworkbook</FONT><FONT class=font511038> object in the Project Explorer window.</FONT></TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl3511038><U style="VISIBILITY: hidden; mso-ignore: visibility"> </U></TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 38.25pt" height=51><TD class=xl2711038 style="HEIGHT: 38.25pt" height=51> </TD><TD class=xl3411038>4)</TD><TD class=xl2811038 style="WIDTH: 320pt" width=427><SPAN style="mso-spacerun: yes"> </SPAN>Above the code window, you'll find two drop-down lists. In the list on the left, choose <FONT class=font911038>Workbook</FONT><FONT class=font511038>. In the list on the right, choose</FONT><FONT class=font911038> Deactivate</FONT><FONT class=font511038>.</FONT></TD><TD class=xl2311038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl3511038><U style="VISIBILITY: hidden; mso-ignore: visibility"> </U></TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 38.25pt" height=51><TD class=xl2711038 style="HEIGHT: 38.25pt" height=51> </TD><TD class=xl3411038>5)</TD><TD class=xl2811038 style="WIDTH: 320pt" width=427><SPAN style="mso-spacerun: yes"> </SPAN>A procedure template for<FONT class=font911038> Workbook_Deactivate</FONT><FONT class=font511038> now appears in the code window. Between the</FONT><FONT class=font911038> Private Sub </FONT><FONT class=font511038>line and the</FONT><FONT class=font911038> End Sub</FONT><FONT class=font511038> line, type the name of your procedure.</FONT></TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2911038><U style="VISIBILITY: hidden; mso-ignore: visibility"> </U></TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 25.5pt" height=34><TD class=xl2711038 style="HEIGHT: 25.5pt" height=34> </TD><TD class=xl3111038> </TD><TD class=xl2411038 style="WIDTH: 320pt" width=427>For example, if your Menu restore procedure is called <FONT class=font911038>RestoreMenu, </FONT><FONT class=font511038>your </FONT><FONT class=font911038>Workbook_Deactivate</FONT><FONT class=font511038> procedure would look like this:</FONT></TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2611038> </TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 51pt" height=68><TD class=xl2711038 style="HEIGHT: 51pt" height=68> </TD><TD class=xl3111038> </TD><TD class=xl3311038 style="WIDTH: 320pt" width=427>Private Sub<FONT class=font611038> Workbook_Deactivate</FONT><FONT class=font811038>()</FONT><FONT class=font511038>
</FONT><FONT class=font611038>RestoreMenu</FONT><FONT class=font511038>
</FONT><FONT class=font711038>End Sub</FONT><FONT class=font511038>
</FONT></TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2611038> </TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl3111038> </TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2611038> </TD><TD class=xl2411038 style="WIDTH: 320pt" width=427> </TD><TD class=xl2211038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl3111038> </TD><TD class=xl2511038 style="WIDTH: 320pt" width=427> </TD><TD class=xl3011038> </TD><TD class=xl2711038> </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl2711038 style="HEIGHT: 12.75pt" height=17> </TD><TD class=xl2711038> </TD><TD class=xl2711038> </TD><TD class=xl2711038> </TD><TD class=xl2711038> </TD></TR></TBODY></TABLE></DIV>