Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hi All, i use the code below to hide toolbars and command bar. Some of
my users are experiencing loss of functions on the command bar e.g. "Find", "Replace" and GoTo. Is this a coincidence or can it be the method ? Is there a way to get the functions back ? '------------------------------ Record and hide toolbars ---------------------- Sub HideAllToolbarsStd() Dim TB As CommandBar Dim TBNum As Integer Dim TBSheet As Worksheet Set TBSheet = Workbooks("Recon_Tool.xls").Worksheets("TBSheet") Application.ScreenUpdating = False ' clear the sheet TBSheet.Cells.Clear '------------- Hide all visable toolbars and store their names in TBSheet -------------------- TBNum = 0 For Each TB In CommandBars If TB.Type = msoBarTypeNormal Then If TB.Visible Then TBNum = TBNum + 1 TB.Visible = False TBSheet.Cells(TBNum, 1) = TB.Name End If End If Next TB Application.ScreenUpdating = True Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.DisplayFormulaBar = False addToolbarStd End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hi Les
my users are experiencing loss of functions on the command bar e.g. "Find", "Replace" and GoTo. Is this a coincidence or can it be the method ? Can't see why this will happen when you use this Application.CommandBars("Worksheet Menu Bar").Enabled = False But why you store the bar names in a worksheet and make them not visible You can also use Enabled = False for the other bars Sub Disable_Command_Bars_1() 'This will disable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars If Cbar.BuiltIn = True Then Cbar.Enabled = False End If Next End Sub More info here http://www.rondebruin.com/menuid.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Les Stout" wrote in message ... Hi All, i use the code below to hide toolbars and command bar. Some of my users are experiencing loss of functions on the command bar e.g. "Find", "Replace" and GoTo. Is this a coincidence or can it be the method ? Is there a way to get the functions back ? '------------------------------ Record and hide toolbars ---------------------- Sub HideAllToolbarsStd() Dim TB As CommandBar Dim TBNum As Integer Dim TBSheet As Worksheet Set TBSheet = Workbooks("Recon_Tool.xls").Worksheets("TBSheet") Application.ScreenUpdating = False ' clear the sheet TBSheet.Cells.Clear '------------- Hide all visable toolbars and store their names in TBSheet -------------------- TBNum = 0 For Each TB In CommandBars If TB.Type = msoBarTypeNormal Then If TB.Visible Then TBNum = TBNum + 1 TB.Visible = False TBSheet.Cells(TBNum, 1) = TB.Name End If End If Next TB Application.ScreenUpdating = True Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.DisplayFormulaBar = False addToolbarStd End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hello Ron, dankie vir jou e-pos. Ron is there a way to get all the
control numbers ? What do you think caused the problem of the drop down controls dissapeariing ? Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hi Ron, my apologies i did find them at the bottom of the page. Ron i
used your code which hide them all but do not see code to show them all, please help.... Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
http://www.rondebruin.com/menuid.htm#Information
2) Important !!!!! All examples use Enabled = False to disable the control(s). If you want to restore it change False to True in the code -- Regards Ron de Bruin http://www.rondebruin.nl "Les Stout" wrote in message ... Hi Ron, my apologies i did find them at the bottom of the page. Ron i used your code which hide them all but do not see code to show them all, please help.... Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
What do you think caused the problem of the drop down controls
dissapeariing ? No Idea -- Regards Ron de Bruin http://www.rondebruin.nl "Les Stout" wrote in message ... Hello Ron, dankie vir jou e-pos. Ron is there a way to get all the control numbers ? What do you think caused the problem of the drop down controls dissapeariing ? Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hello Ron, so would i then change the code as per below ?
Ron, i have a BIIIIG problem, i tried your code to mad all bars False and the cleaning plugged my PC out by mistake now i have no bars and cannot get them by right clicking either....What can i do... ?? Sub Disable_Command_Bars_1() 'This will disable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars If Cbar.BuiltIn = False Then Cbar.Enabled = True End If Next End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
CommandBar problem - Question
Hi Les
Look on the site Sub Disable_Command_Bars_1() 'This will disable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars If Cbar.BuiltIn = True Then Cbar.Enabled = False End If Next End SubTo reset changeCbar.Enabled = False toCbar.Enabled = true -- Regards Ron de Bruin http://www.rondebruin.nl "Les Stout" wrote in message ... Hello Ron, so would i then change the code as per below ? Ron, i have a BIIIIG problem, i tried your code to mad all bars False and the cleaning plugged my PC out by mistake now i have no bars and cannot get them by right clicking either....What can i do... ?? Sub Disable_Command_Bars_1() 'This will disable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars If Cbar.BuiltIn = False Then Cbar.Enabled = True End If Next End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dynamic commandbar button problem | Excel Programming | |||
Add msocontrolbutton to commandbar problem | Excel Programming | |||
commandbar - rollout problem | Excel Programming | |||
Office C# code behin : CommandBar Class Problem ? | Excel Programming | |||
commandbar | Excel Programming |