Excel 2013 無法使用剪下的功能

Excel 2013 先前使用禁止剪下的語法 (如下). 但現在想取消這個設定，想使用剪下的功能，但使用fix it工具移除後重新安裝Office 2013 ，問題還是存在，請問該如何排解?

禁止剪下語法如下

Option Explicit

'清除內容3125、刪除292、複製19、剪下21、貼上22、選擇性貼上755

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnKey "^x"

EnableCtrl 21, True

Application.CellDragAndDrop = True

End Sub

Private Sub Workbook_Open()

Application.OnKey "^x", ""

EnableCtrl 21, False

Application.CellDragAndDrop = False

End Sub

Sub EnableCtrl(ID%, BLN As Boolean)

Dim Ctrl As Office.CommandBarControl

End Sub