1、開啟excel
2、ALT+F11,開啟以下介面
3、點上邊執行-執行宏,輸入修復右鍵,點建立
4、把以下程式碼輸進去,點上邊欄裡的執行,退出,就可以了
Dim i As ByteOn Error Resume NextApplication.ScreenUpdating = FalseFor i = 1 To 155Application.CommandBars(i).ResetApplication.CommandBars(i).Enabled = TrueApplication.CommandBars(i).Visible = FalseNextApplication.CommandBars("Status Bar").Visible = TrueFor i = 1 To 4Application.CommandBars(i).Visible = TrueNextWith Application.OnKey "^c".OnKey "^v".OnKey "^x".OnKey "+{DEL}".OnKey "+{INSERT}".CellDragAndDrop = True.OnDoubleClick = ""End WithApplication.ScreenUpdating = TrueMsgBox "
5、大家試試吧!
1、開啟excel
2、ALT+F11,開啟以下介面
3、點上邊執行-執行宏,輸入修復右鍵,點建立
4、把以下程式碼輸進去,點上邊欄裡的執行,退出,就可以了
Dim i As ByteOn Error Resume NextApplication.ScreenUpdating = FalseFor i = 1 To 155Application.CommandBars(i).ResetApplication.CommandBars(i).Enabled = TrueApplication.CommandBars(i).Visible = FalseNextApplication.CommandBars("Status Bar").Visible = TrueFor i = 1 To 4Application.CommandBars(i).Visible = TrueNextWith Application.OnKey "^c".OnKey "^v".OnKey "^x".OnKey "+{DEL}".OnKey "+{INSERT}".CellDragAndDrop = True.OnDoubleClick = ""End WithApplication.ScreenUpdating = TrueMsgBox "
5、大家試試吧!