倒騰vba首要是保證安全,各路大神的代碼非常神奇,莫名的就讓你的excel嘎嘣了,如出現(xiàn)右鍵無法使用(確定不是您 的鼠標(biāo)問題),那么以下代碼可完全修復(fù)設(shè)置。 操作步驟:打開excel--->按“alt+F11"鍵打開vba編輯器--->選擇"Thisworkbook"--->把 下面的代碼復(fù)制進(jìn)去--->按"F5"執(zhí)行--->大功告成 Sub 一鍵修復(fù)Excel() 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已恢復(fù)。" & Chr(10) & "所有自定義菜單、按鈕及功能限制均已解除。", 64, "【友情提示】" End Sub
|