Hi Jim

OK you are right but he can use the buttons he add to the QAT for only that workbook.
It looks like a toolbar then <g

Have a nice weekend


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jim Rech" wrote in message ...
What you posted is the only way I know of to HIDE the ribbon and leave the
QAT.

But he didn't ask that. He wanted (1) a macro to (2) "disable" the ribbon
and (3) leave the QAT so he can use it for his toolbar.

So I think the answer to his question is "it can't be done".<g

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| Is my answer in this thread "Selective Ribbon miminise" correct
| or is there a better way ?
|
| I never wanted to keep the QAT and hide the Ribbon myself so this was my
first thought.
|
|
| --
|
| Regards Ron de Bruin
| http://www.rondebruin.nl/tips.htm
|
|
| "Jim Rech" wrote in message
...
| Totally forgot about ExecuteMso, Ron. Thanks.
|
| --
| Jim
| "Ron de Bruin" wrote in message
| ...
| | Hi Jim
| |
| | I try this first but it blow
| | Application.CommandBars.FindControl(ID:=226).Execu te
| |
| | So posted this
| | Application.CommandBars.ExecuteMso ("AutoSum")
| |
| | But yours is working OK
| |
| |
| | --
| |
| | Regards Ron de Bruin
| | http://www.rondebruin.nl/tips.htm
| |
| |
| | "Jim Rech" wrote in message
| ...
| | This vintage code still seems to work in Excel 2007.
| |
| | Sub DoAutoSum()
| | Dim x As CommandBarControl
| | Set x = CommandBars.FindControl(ID:=226)
| | Set x = x.Controls(1)
| | x.Execute 'AutoSum
| | If Selection.Cells.Count = 1 Then
| | x.Execute 'Again to exit edit mode
| | End If
| | End Sub
| |
| | --
| | Jim
| | "XP" wrote in message
| | ...
| | | In the past I have used the following code line to simulate a
click of
| the
| | | "AutoSum" button.
| | |
| | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute
| | |
| | | This doesn't work in 2007; recording the macro doesn't work
either.
| Anyone
| | | have an equivalent that works in 2007; if so could you please
post?
| | |
| | | Thanks in advance for your assistance.
| |
|