excel怎么避免因补充破坏数据有效性( 三 ) _知识经验

结束子
私人子Workbook_Open（）
CatchPaste
结束子
在工作簿打开时，进行相应的设置。在工作簿关闭或非当前工作簿时，恢复相应的设置。
关闭该工作簿，并使用 CustomUI 编辑器打开该工作簿，输入下面的 XML 代码：
< customUI xmlns = “ http://schemas.microsoft.com/office/2006/01/customui ” >
< 命令>
< 命令idMso = “ 粘贴” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteSpecial ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteFormulas ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteFormatting ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteValues ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteNoBorders ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteTranspose ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteLink ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteSpecial ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteAsHyperlink ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PastePictureLink ” onAction = “ MyPasteValues2007 ” />
< 命令idMso = “ PasteAsPicture ” onAction = “ MyPasteValues2007 ” />
保存并关闭 CustomUI 编辑器。再打开工作簿，试试效果，如下图 1 所示。