如何将excel 工作薄进行保护

发布网友发布时间：2022-04-20 20:30

共6个回答

热心网友时间：2023-04-28 01:07

你好，如果有上千个工作表，只能用VBA代码批量设置了

'批量工作表保护
Sub unprotect()
Dim i, j As Integer
j = Worksheets.Count
For i = 1 To j
Worksheets(i).protect "123"
Next
End Sub

打工要设置的工作薄，按ALT+F11再选"插入"---"模块"，所以上代码复制进去，点运行就好了。
Worksheets(i).protect "123" 默认密码是123，楼主可以根据自己需要把123改为你自己需要的密码就好了，把这句Worksheets(i).protect "123" 改为Worksheets(i).Unprotect "123" 就是解码的。
祝好运了！追问现实编译错误，缺少语句结束

追答这绝对是正确的，我再次试了一次，没问题，估计是你从网页复制时这段代码时换行的问题，
1行，Sub unprotect() 2行，Dim i, j As Integer 3行，j = Worksheets.Count 4行，For i = 1 To j
5行，Worksheets(i).protect "123" 6行，Next 7行，End Sub 总共7行，开头那行“'批量工作表保护”不算一行，可以不要，那个只是个注释。

热心网友时间：2023-04-28 01:08

只能每张表分别设置保护工作表追问那就麻烦了，我这个工作薄里有上千个工作表，都一个一个去设置，不现实啊

追答那就只让别人看，不让其改，过程：文件选项-另存为-工具-常规选项-只输入修改权限密码-确认一次密码后，别人要打开该文件，只能点“只读”才能打开，打开后也做不了任何改动

热心网友时间：2023-04-28 01:08

你好！前段时间我也提问了上述问题，很感谢热心网友提供的VB代码，最后成功了，实现了对excel工作簿中的所有工作表的保（其他人只能查看，但不能修改），供你参考。

来自：求助得到的回答

热心网友时间：2023-04-28 01:09

打开EXCEL，点击文件---信息----保护工作表---权限设置为需要密码才能打开。设置为最终版本。

热心网友时间：2023-04-28 01:09

另存为——工具——常规选项——修改权限密码设置下就OK了

热心网友时间：2023-04-28 01:10

假设是工作薄是（sheet1-3）
1、全选sheet1内容，按住ctrl键，点击sheet2、sheet3
2、工具——保护——允许用户编辑区域——保护工作表，然后设定个密码，点击确定
这样就无法编辑内容了追问这样是行，可每次结束完工作后都要重新操作一遍设置密码，太麻烦了啊