Excel格式錯誤,可以使用VBA解決。
1、開啟Excel表格。
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 "大功告成!" & "你的Excel已恢復。" & Chr(10) & "所有自定義選單、按鈕及功能限制均已解除。", 64, "【友情提示】"5、複製後,點選執行。6、執行成功,就會提示,點選確定。7、點選右鍵,選單就出來了。
Excel格式錯誤,可以使用VBA解決。
1、開啟Excel表格。
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 "大功告成!" & "你的Excel已恢復。" & Chr(10) & "所有自定義選單、按鈕及功能限制均已解除。", 64, "【友情提示】"5、複製後,點選執行。6、執行成功,就會提示,點選確定。7、點選右鍵,選單就出來了。