如何用vba批量保护或取消保护excel工作表? |
您所在的位置：网站首页 › 一键解除excel工作表密码 › 如何用vba批量保护或取消保护excel工作表? |
如何用vba批量保护或取消保护excel工作表?
|
如何用vba批量保护或取消保护excel工作表?
2018年4月7日
作者：水星Excel
9,562 次浏览
暂无评论
通过保护excel工作表，可以防止他人修改工作表内容。 在vba中可以使用Worksheet对象的Protect方法保护工作表。 它的语法如下： expression . Protect( Password , DrawingObjects , Contents , Scenarios , UserInterfaceOnly , AllowFormattingCells , AllowFormattingColumns , AllowFormattingRows , AllowInsertingColumns , AllowInsertingRows , AllowInsertingHyperlinks , AllowDeletingColumns , AllowDeletingRows , AllowSorting , AllowFiltering , AllowUsingPivotTables )Protect方法的所有参数都是可选的，连Password参数也可以不提供，表示没有设置密码保护excel工作表。 其余参数表示“保护工作表”对话框中显示的“允许此工作表的所有用户进行的选项”，如下图所示：
以下是批量用密码1234保护工作表的代码： Sub QQ1722187970() Dim oWk As Worksheet For Each oWk In Excel.ThisWorkbook.Worksheets With oWk '所用工作表都用密码1234保护 .Protect "1234" End With Next End Sub如果要批量解除工作表的保护，可以使用Unprotect方法，它的语法如下： expression . Unprotect( Password )以下是批量用密码1234解除保护工作表的代码： Sub QQ1722187970() Dim oWk As Worksheet For Each oWk In Excel.ThisWorkbook.Worksheets With oWk '所用工作表都用密码1234解除保护 .Unprotect "1234" End With Next End Sub 其它相关文章推荐：如何在保护工作表上启用组合、分级显示？如何用vba保护word文档？如何在忘记密码的情况下撤销excel工作表保护？如何用vba快速地创建以1月到12月为名称的工作表？如何用vba删除excel单元格区域中的重复值？如何用vba将多个工作表另存为独立的工作簿文件？ 分类 : VBA , 加密、解密 标签 : protect , Unprotect , 保护 , 加密 , 解密声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
【本文地址】
今日新闻 |
推荐新闻 |