批量修维护作表密码

作者：绿色风分类：时间：2022-08-18 浏览：104

楼主研究研究	首先在不密保的工作表里隐藏2个单元格作为写密码的。如你说没地方放我就无语了 Sub a() Sheet1.Range("b1") = Application.InputBox("请输入原密码", "准备修改") If Sheet1.Range("b1") = Sheet1.Range("a1") Then Sheet1.Range("b1") = Application.InputBox("请输入密码", "准备修改") For x = 1 To Sheets.Count If Sheets(x).ProtectContents Then Sheets(x).Unprotect Sheet1.Range("a1") Sheets(x).Protect Sheet1.Range("b1") End If Next x Sheet1.Range("a1") = Sheet1.Range("b1") Sheet1.Range("b1") = "" Else MsgBox "原密码错误！禁止修改" End If End Sub 经过以上代码执行后只是修改了原带有保护密码的工作表。其他工作表均无影响批量修给密码.rar 本工作表密码123456
2楼じ☆潴の︵ゞ	学习了
3楼 E林好汉	忘性好的人，最好不要设置密码。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表