保护你的工作表离不开它: |
    当前位置 | 网页资讯 | 保护你的工作表离不开它:
  • 保护你的工作表离不开它:
    发布时间: 2011/1/10 10:45:28   查看次数: 27197 

    使用方法设置一个按纽,运行程序即可达到这些效果,但是关闭这个文件后系统不会自动恢复这些功能,关闭前还要执行恢复程序,职

    如果打开文件自动屏蔽,把屏蔽代码放入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开启产权战争
    推荐文章
    本月热点文章