快好知 kuaihz

「ExcelVBA」一键取消所有工作表密码

作者:涂大荣。

「Excel VBA」一键取消所有工作密码

今天的内容

下记工作簿中,有3个工作表,每个工作表都设置了保护密码工作表不多,可以逐个解锁,修改表格。但如果工作表很多,需要逐个输入密码解密,很费事。亦或者忘记了工作表保护密码,无法解锁工作表保护修改文档,怎么办呢?别担心,福利来了。

今天涂涂给大家分享一段VBA小代码,无需解锁密码,一键移除所有工作表的保护密码

❖效果图

 

操作步骤

STEP 01

◆将xlsx后缀的文件,另存为xlsm后缀的文件(xls后缀的文件不需要另存)

◆按Alt F11组合键打开VBE编辑界面

◆新建模块,双击模块,在代码区写入下记代码,保存,关闭VBE界面

代码示例

Sub 一键移除工作表保护密码()

   Dim sht As Worksheet

   For Each sht In Worksheets

       sht.Protect AllowFiltering:=True

       sht.Unprotect

   Next

End Sub

STEP 02

◆返回Excel界面,插入按钮,指定宏,点击按钮即可

※也可不插入按钮,在宏对话框中选择对应的宏代码执行

代码解释

sht.Unprotect

◆Worksheet.Unprotect 方法取消工作表的保护

◆Unprotect()括号内参数可以添加解锁密码密码区分大小写;如果不知道密码,可省略

本站资源来自互联网,仅供学习,如有侵权,请通知删除,敬请谅解!
搜索建议:一键  一键词条  ExcelVBA  ExcelVBA词条  取消  取消词条  密码  密码词条  所有  所有词条  
办公

 Excel148 | 快速比较两...

问题来源今天下午,我原来的学生问我有没有“Spreadsheet Compare”。韩老师从字面的意思看是快速对比工作表的东东,于是趴在电脑上一看:office...(展开)

办公

 25年老会计,熬夜准备史上最全E...

这么好的财务模板和函数公式,我不允许只有我自己知道!财务模板:包括报表,数据透视总表,以及日记账,记账凭证等;最全的函数公式,财务相关的函数,还有其他类,数学,...(展开)