大象蕉视频在线观看75

保護你的工作表離不開它: |
    當前位置 | 網頁資訊 | 保護你的工作表離不開它:
  • 保護你的工作表離不開它:
    发布时间: 2011/1/10 10:45:28   查看次数: 27203 

    使用方法設置一個按紐,運行程序即可達到這些效果,但是關閉這個文件後系統不會自動恢複這些功能,關閉前還要執行恢複程序,職

    如果打開文件自動屏蔽,把屏蔽代碼放入Workbook_Open事件中:

    Private Sub Workbook_Open()

    End Sub

    如果想自動恢複,把恢複代碼放入Workbook_BeforeClose事件中

    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    End Sub

    屏蔽文件菜單

    Application.CommandBars(1).Controls("文件(&F)").Enabled = False

    屏蔽编辑菜单中的填充项 Application.CommandBars(1).Controls("编辑(&E)").Controls("填充(&I)").Enabled = False

    屏蔽单元格右键单击 Application.CommandBars("CELL").Enabled = False

    屏蔽工作表标签右键单击 Application.CommandBars("PLY").Enabled = False

    屏蔽右键工具栏 Application.CommandBars("Toolbar list").Enabled = False

    屏蔽右鍵常用工具欄的打印按紐

    Application.CommandBars("Standard").Controls(5).Enabled = False

    解除屏蔽

    Application.CommandBars(1).Controls("文件(&F)").Enabled = True Application.CommandBars(1).Controls("编辑(&E)").Controls("填充(&I)").Enabled = True Application.CommandBars("CELL").Enabled = True Application.CommandBars("PLY").Enabled = True Application.CommandBars("Toolbar list").Enabled = True

    屏蔽组合键ALT+F11 Application.OnKey "%{F11}", "" %代表ALT

    解除屏蔽ALT+F11 Application.OnKey "%{F11}"

    ,
    相關內容
    上一條:病毒的分類
    下一條:互联网新冤家 Google与Oracle开启产权战争
    推薦文章
    本月熱點文章