各位朋友,在execl中有 Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)这个事件,配合SaveAsUI使用,可以在文档保存前进行操作。
    但在word中我就找不到这个保存之前的事件。请问在word中如何屏蔽《保存》《另存为》的功能。主要是屏蔽《另存为》

解决方案 »

  1.   

    當然也有了。
    MSN:[email protected]
      

  2.   

    steary (good) 可不可以留下你的联系方式..我有些问题想请教你一下...
      

  3.   

    移除文件菜单中保存、另存、另存为WEB页、WEB页预览、打印预览、打印等项:
        Application.CommandBars("File").Controls(12).Delete
        Application.CommandBars("File").Controls(11).Delete
        Application.CommandBars("File").Controls(8).Delete
        Application.CommandBars("File").Controls(7).Delete
        Application.CommandBars("File").Controls(6).Delete
        Application.CommandBars("File").Controls(5).Delete
        Application.CommandBars("File").Controls(4).Delete
    恢复:
        Application.CommandBars("File").reset
    '删除编辑菜单:
        Application.CommandBars("Worksheet Menu Bar").Controls(2).Delete
    '恢复编辑菜单:
        Application.CommandBars("worksheet menu bar").Reset
    '关于右键菜单请见:
    http://community.csdn.net/Expert/topic/4228/4228120.xml?temp=.2959711'删除工具栏中保存、打印、打印预览、剪切按钮:
        Application.CommandBars("Standard").Controls(8).Delete
        Application.CommandBars("Standard").Controls(6).Delete
        Application.CommandBars("Standard").Controls(5).Delete
        Application.CommandBars("Standard").Controls(3).Delete
    '恢复:
    Application.CommandBars("Standard").Reset