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

[m9yt]

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

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
<spoiler></spoiler>
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 не желает.Это всего лишь идея

Хитро, но легко обходится использованием меню вставка в панели инструментов.

[doober]

И этот вопрос можно решить.
Надо покопаться в Ribbon,узнать вызываемую процедуру.написать свою обработку.

[Neyandex]

Проблему вставки из посторонних источников решает вот такой вариант (код со всех понемногу):

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

Private Sub Worksheet_Activate()
    If Application.CutCopyMode Then
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
    End If
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

[Neyandex]

А вот сразу для всей рабочей книги:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    If Application.CutCopyMode Then
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
    End If
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
    If Application.CutCopyMode Then
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
    End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Application.CutCopyMode Then
       Dim s As String
       s = ClipboardText()
       Call SetClipboardText(s)
    End If
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

[m9yt]

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

А вот сразу для всей рабочей книги:

Спасибо за код. Но он будет работать только при переключении из одной книги в другую. При копировании же не из другой книги событие Workbook_WindowActivate не возникает, т.к. окно с этой книгой итак активно.

[Neyandex]

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

Спасибо за код. Но он будет работать только при переключении из одной книги в другую. При копировании же не из другой книги событие Workbook_WindowActivate не возникает, т.к. окно с этой книгой итак активно.

На этот случай предусмотрена Workbook_SheetActivate

[m9yt]

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

На этот случай предусмотрена Workbook_SheetActivate

Это событие возникает только при переключении листов. Если я сделаю активным окно Word, скопирую данные, переключусь назад на Excel, то Workbook_SheetActivate не возникнет.