分享

如何解决在excel工作表中鼠标的右键不能使用的问题

 网海漫步 2017-05-03


  

      倒腾vba首要是保证安全,各路大神的代码非常神奇,莫名的就让你的excel嘎嘣了,如出现右键无法使用(确定不是您

    的鼠标问题),那么以下代码可完全修复设置。

    操作步骤:打开excel--->按“alt+F11"键打开vba编辑器--->选择"Thisworkbook"--->把
            
              下面的代码复制进去--->按"F5"执行--->大功告成

    Sub 一键修复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已恢复。" & Chr(10) & "所有自定义菜单、按钮及功能限制均已解除。", 64, "【友情提示】"
   End Sub

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约