Скрыть кнопки вставки

[m9yt]

Что нужно: скрыть/удалить/сделать недоступными пункт "Специальная вставка" в контекстном меню и кнопку "Вставить" в панели инструментов (пока речь идет о Excel 2007/2010).

Для чего это нужно: ограничить пользователя, чтобы он не смог, скопировав откуда-либо диапазон данных, запороть форматирование ячеек (нужна просто вставка по значению).

Что для этого делалось (пока только в контекстном меню):
1) Писался макрос, перебирающий все элементы контекстного меню и ищущий совпадение по свойству контрола Caption со значением "&Специальная вставка...". При нахождении контрол удалялся/скрывался/делался недоступным (вариант с поиском по ID отбрасывается, т.к. в разных версиях Excel ID контрола тоже разный).
2) Писался макрос, переопределяющий возможные комбинации кнопок вставки и вставляющий данные из буфера по значению.

Какие недостатки:
1) Для английской версии Excel значение свойства явно не будет таким же.
2) Если просто просмотреть контекстное меню, то нужный мне пункт не отображается. Но, если скопировать какой либо диапазон, то этот пункт чудесным образом возвращается назад.

Какая нужна помощь:
1) Подсказать, как можно с корнем выпилить данные пункт меню и кнопку.
2) Если п.1 невыполним, то привести способы, позволяющие делать вставку только по значению и никак иначе.

[AndVGri]

Попробуйте с использованием
Application.CommandBars.FindControl (Type:=msoControlButton,Id:=18)
Хотя часть Id пересекается, список control для 2010 во вложении

[SAS888]

А что Вам мешает искать нужный ID, в зависимости от Application.Version?

[maksim_serg]

Сообщение от m9yt

Для чего это нужно: ограничить пользователя, чтобы он не смог, скопировав откуда-либо диапазон данных, запороть форматирование ячеек (нужна просто вставка по значению).

вставляет хоть что не сбивая форматирование:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
    End If
End Sub

Function ClipboardText()
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With
End Function

Sub SetClipboardText(ByVal txt$)
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText txt$
        .PutInClipboard
    End With
End Sub

[m9yt]

Спасибо огромное! Это то, что надо!

[maksim_serg]

тем, что можно изменить содержимое буфера)
вам же нужно только формат не испортить? так зачем весь этот винегрет с блокировкой кнопок и/или созданием кнопок-копий с повешенными на них своими макросами?

и как вы его собрались повесить на комбинацию ctrl+v? это в ворде просто

[m9yt]

Сообщение от maksim_serg

тем, что можно изменить содержимое буфера)
вам же нужно только формат не испортить? так зачем весь этот винегрет с блокировкой кнопок и/или созданием кнопок-копий с повешенными на них своими макросами?

Я вначале не обратил внимания, что буфер после копирования как раз того содержания, что мне и нужно.

Сообщение от maksim_serg

и как вы его собрались повесить на комбинацию ctrl+v? это в ворде просто

Так как обычно:

Private Sub Workbook_Open()
    Application.OnKey "^v", "ЭтаКнига.Paste"
End Sub

Sub Paste()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Но основной минус решения - можно после копирования вставить с форматированием.
В вашем решении все как надо.

[maksim_serg]

Private Sub Workbook_Open()
    Application.OnKey "^v", "ЭтаКнига.Paste"
End Sub

Sub Paste()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Это работает только если вставлять с помощью комбинации клавиш CTRL+V. Я вот , например, пользуюсь кнопкой на вкладке. С ней такой фокус не пройдет

[m9yt]

Возвращаюсь к задаче снова.
Как выяснилось, код не работает, если вставлять данные из других источников (потому что условие Application.CutCopyMode ложно). Форматирование слетает. Есть возможность выбора метода специальной вставки.

Метод с навешиванием на ctrl+v макроса "ЭтаКнига.Paste" так же не подходит, т.к. опять же есть возможность выбора метода специальной вставки.

Повторю еще раз, что требуется: вставлять скопированные диапазоны данных из любых источников только по значению, при этом в меню "Специальная вставка" не должно быть выбора иной вставки.
Это возможно?

[doober]

модеренизировал идею maksim_serg

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
End Sub
Function ClipboardText()
   On Error GoTo ClipboardText_Error
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With

   On Error GoTo 0
   Exit Function
ClipboardText_Error:
    ClipboardText = ""
End Function

Sub SetClipboardText(ByVal txt$)
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText txt$
        .PutInClipboard
    End With
End Sub

PS: в 2007 работает,2010 не желает.Это всего лишь идея