Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Close button on Custom Menu Bars
Hi all! I would really appreciate if someone could tell me how to disable the close button on a custom menu bar, i have an API for the window but i was wondering if theres one avaliable for the custom bar? Yours Hopefully Aaron |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Close button on Custom Menu Bars
Hey thanks for the code, i'm afraid im refering to the close 'x' button on the dialog. If you have any ideas let me know Thanks Aaron -----Original Message----- Aaron, I posted the following sample for an earlier question and I think it will help you as well: Try the following; 'This line will toggle the entire File menu for your workbook. Application.CommandBars("File").Enabled = Not Application.CommandBars("File").Enabled 'This line will toggle just the Save menu item within the File menu for your workbook. Application.CommandBars("File").Controls("Save"). Enabled = Not Application.CommandBars("File").Controls("Save"). Enabled In this sample I select the "Save" menu item within the "File" menu. It should work just as well for your custom menu if you know the names of both the custom menu and the button you want to disable. To test this out I built a simple custom menu name "SampleCommandBar" with a "Close" button then ran the following code; Application.CommandBars("SampleCommandBar").Contr ols ("Close").Enabled = Not Application.CommandBars("SampleCommandBar").Contr ols ("Close").Enabled When I run this code the custom button toggled between enabled and disabled. Good luck "Aaron" wrote in message ... Hi all! I would really appreciate if someone could tell me how to disable the close button on a custom menu bar, i have an API for the window but i was wondering if theres one avaliable for the custom bar? Yours Hopefully Aaron . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Close button on Custom Menu Bars
I think you're looking for: msoBarNoChangeVisible
Option Explicit Sub testme() Dim cb As CommandBar On Error Resume Next Application.CommandBars("test").Delete On Error GoTo 0 Set cb = Application.CommandBars.Add(Name:="test", temporary:=True) With cb .Visible = True .Protection = msoBarNoChangeVisible End With End Sub I couldn't hide it, but I could delete it. Aaron wrote: Hi all! I would really appreciate if someone could tell me how to disable the close button on a custom menu bar, i have an API for the window but i was wondering if theres one avaliable for the custom bar? Yours Hopefully Aaron -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete custom menu bars | Setting up and Configuration of Excel | |||
close button does not close | Excel Discussion (Misc queries) | |||
Lost all my menu bars and tool bars | Excel Discussion (Misc queries) | |||
Excel shoud not close all active books when clicking close button | Excel Discussion (Misc queries) | |||
excel - Windows close button (x) should only close active workboo. | Setting up and Configuration of Excel |