EXCEL工作表的全部保护与解除.doc

《EXCEL工作表的全部保护与解除.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、MicrosoftExcel工作表的保护与解除郝燕龙1，编制宏定义（1）点击：工具-宏-VisualBasic编辑器，如下图：（2）在打开的VisualBasic编辑器中点击：ThisWorkbook,在右边编辑框中加入如下代码,完成宏定义的编制。关闭VisualBasic编辑器。结果如下图：SubProtectAll()DimshAsWorksheetForEachshInWorksheetssh.Protect"123"'这里设置要保护的密码NextEndSubSubUnProtectAll()Dims

2、hAsWorksheetForEachshInWorksheetssh.Unprotect"123"'这里设置解除保护的密码，必须与保护密码一致NextEndSub1，使用宏定义点击EXCEL软件：工具-宏-宏，如下图：弹出如下面板：选择TishWorkbook.ProtectAll,点右边执行按钮，则所有sheet表格被保护，密码为代码中密码（本例为123）。选择TishWorkbook.UnProtectAll,点击右边执行按钮，则所有sheet表格解除保护。