回覆列表
-
1 # 使用者558168890935051
-
2 # 使用者4535004975032
Excel格式錯誤,可以使用VBA解決。
1、開啟Excel表格。
2、按Alt+F11進入VBA,點選執行-執行宏。
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表格。
2、按Alt+F11進入VBA,點選執行-執行宏。
3、新建宏。
4、複製以下程式碼: Dim i As Byte On Error Resume Next Application.ScreenUpdating = False For i = 1 To 155 Application.CommandBars(i).Reset Application.CommandBars(i).Enabled = True Application.CommandBars(i).Visible = False Next Application.CommandBars("Status Bar").Visible = True For i = 1 To 4 Application.CommandBars(i).Visible = True Next With Application .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "+{INSERT}" .CellDragAndDrop = True .OnDoubleClick = "" End With Application.ScreenUpdating = True MsgBox "大功告成!" & "你的Excel已恢復。" & Chr(10) & "所有自定義選單、按鈕及功能限制均已解除。", 64, "【友情提示】"
5、複製後,點選執行。
6、執行成功,就會提示,點選確定。
7、點選右鍵,選單就出來了。