Sub autoopen()
Application.CommandBars("Edit").Controls.Item("Paste").OnAction = "catcher1"
Application.CommandBars("Edit").Controls.Item("Paste Special...").OnAction = "catcher2"
End Sub
Public Sub catcher1()
SendKeys "^{v}"
End Sub
Public Sub catcher2()
MsgBox ("This option has been disabled by the administrator. Please use the shortcut keys 'ctrl+v' to paste.")
End Sub