Настройка ленты для одного единственного файла в Excel 2010

[ymnuhj]

Добрый день!

Хотел бы услышать ваше мнение по этому вопросу. Если залезть в настройке Excel то ее можно поменять как душе угодно, но вот только для всех файлов.

Может VBA позволяет сделать это для одного единственного файла? Если да то как

[doober]

Создавайте свою ленту,на любой вкус.
Например как во вложении
Очень толково описал здесь Alex.Viter

[ymnuhj]

У меня сегодня простой вопрос. По элементу editbox Как расположить этот элемент на ленте с помощью XML editor понятно, а вот записать из него значение в переменную чтото не получается. Если ктото умеет прошу покажите на примере.

И второй вопрос, можно ли ограничить тип данных вводимых в этот editbox? К примеру только положительные целые числа.

[doober]

А по выше указзаной ссылке не ходили?.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="MyAddInInitialize">
 <ribbon startFromScratch="true">
  <tabs>
   <tab id="rxTabTable" label="Панель">  
	 <group id="TabMain_gr3" label="Макросы">
<editBox id="ed1" getText="getText" onChange="onChange"  />
    </group>	
   </tab>
  </tabs>
 </ribbon>
</customUI>

Dim MyRibbon As IRibbonUI
Public textOut As String, textIn As String
Sub Updatetextbox()
        textOut = 123
        MyRibbon.InvalidateControl ("ed1")
End Sub

Sub Resettextbox()
        textOut = 1
        MyRibbon.InvalidateControl ("ed1")
End Sub
Public Function MyAddInInitialize(Ribbon As IRibbonUI)
        Set MyRibbon = Ribbon
End Function

Public Function repaintRibbon()
        MyRibbon.Invalidate
End Function
Function gettext(control As IRibbonControl, ByRef returnedVal)
        returnedVal = textOut
End Function

Function onChange(control As IRibbonControl, ByRef returnedVal)
        textIn = returnedVal
        If Not IsNumeric(returnedVal) Then
                Resettextbox
        ElseIf Val(returnedVal) <= 0 Then
                Resettextbox
        End If
End Function