Private Sub Workbook_Open()
On Error Resume Next
Application.OnKey "^V", "SPPASTE_VAL"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^V"
End Sub


Private Sub SPPASTE_VAL() ' "Специальная вставка: ВСТАВИТЬ ТОЛЬКО ТЕКСТ"
' Сочетание клавиш ^V для вызова этой процедуры назначается при событии Workbook_Open
On Error Resume Next
Selection.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:=False
If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description
End Sub

Private Sub Workbook_Open()
    On Error Resume Next
    Application.OnKey "^V", "SPPASTE_VAL"
    Application.OnKey "^{Insert}", "SPPASTE_VAL"
    Application.OnKey "+{Insert}", "SPPASTE_VAL"
    Application.OnKey "~", "SPPASTE_VAL"
    Application.OnKey "{Enter}", "SPPASTE_VAL"
End Sub