Question

excel工作表保护和取消保护的问题

有工作表sheet1---sheet11,期中sheet1---sheet8格式完全一样，保护区域完全一样，
想要一次性设置密码保护和撤销密码，怎么写？
写一个VBA用按钮一次性解决

Answer 1

1. 打开要保护的excel

   

2. 选择“审阅”选项，可以在该页面的工具栏上看到有一个“保护工作表”的工具栏

   

3. 点击该按钮，打开“保护工作表”对话框。在该对话框中，需要设定一个取消保护工作表时的密码，以及保护工作表后，允许进行的操作，将允许的操作前面的复选框选中，即点击打上“√”

   

4. 点击“确定”按钮，弹出确定密码的对话框，输入“保护工作表”页面中设定的密码，然后点击确定

   

5. 此时，如果再在工作表页面中输入数据或修改数据时，会弹出该工作表被保护的提示信息。

   

6. 当想编辑该文档的时候，执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似，打开要编辑的excel文档，选择审阅，可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具

   

7. 点击“撤销保护工作表”按钮，会弹出“撤销保护工作表”对话框，在编辑框中输入设定“保护工作表”时的密码，然后点击“确定”按钮

   

8. 回到excel工作表编辑区，发现可以编辑文档了。

Answer 2

你可以添加两个按钮，如果打算用一个按钮实现，那就按一次变一次吧。我给你两个按钮的宏代码。这两个按钮一个名称是保护，另一个是解除保护。这里给了你三个表的，多个表你自己添加几行就行了，Sheets("Sheet1").Select这个语句里面双引号中的是工作表名称，如果你的名称不同就自己调整一下，这样可以随意选择了。Password:="test"参数的双引号中是保护工作表的密码，这里用了test。

保护按钮代码如下：
Private Sub 保护_Click()
Sheets("Sheet1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"
Sheets("Sheet2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"
Sheets("Sheet3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"

End Sub
解除保护代码如下：
Private Sub 解除保护_Click()
Sheets("Sheet1").Select
ActiveSheet.Unprotect Password:="test"
Sheets("Sheet2").Select
ActiveSheet.Unprotect Password:="test"
Sheets("Sheet3").Select
ActiveSheet.Unprotect Password:="test"
End Sub

追问

如果撤销密码的时候需要弹出提示 输入密码 之后才能撤销保护怎么做呢

如果直接撤销就失去保护的意义了

追答

你把解除保护的代码改一下就好了，去掉Password:="test"这个参数，这样就会自动弹出窗口让你输入密码了，你根据下面哪个工作表被选中来确定需要输入的是哪个密码就可以了。
修改后的解除保护按钮代码如下：
Private Sub 解除保护_Click()
Sheets("Sheet1").Select
ActiveSheet.Unprotect
Sheets("Sheet2").Select
ActiveSheet.Unprotect
Sheets("Sheet3").Select
ActiveSheet.Unprotect
End Sub

追问

如果所有表密码一致，不能只输入一次么，单个输入的话如果表很多不是很麻烦么？

追答

是啊，单个输入是很麻烦。你用按钮来做目的应该是方便工作吧？但是你想过没有，你加了保护以后，如果把加保护的宏或者按钮代码留在了文件中，人家破解了你的代码，也就找到密码了，所以是起不到安全作用的。给你的这个代码是方便你工作时候用，安全性方面不足以保护宏当中的密码。

所以给你的建议就是你在加保护和去掉保护的时候，使用我给你的按钮，或者直接放到宏里面执行，然后在文件修改完毕后，立即删除这些宏代码，这样就不会残留任何信息，也就安全得多了。如果你只用一次然后就删除，那完全可以直接在代码中加入密码，就方便很多了。

如果你每一个表格的密码都一样，也有一种方法，那就是给你设置一个变量，让你输入，然后根据你输入的这个变量，自动给代码中加入变量作为密码，因为密码都一样，那就只需要做个循环也就能做到了，如果你看了我上面的建议还是需要这个功能，我再给你。

追问

我要密码提示是因为表格要给其他人用，不能让他们破坏表格，使用者是老师，不会去恶意破解
我只是怕他们无意中破坏了表格中的公式，我现在的办法是在另一个表中设置 保护和解除保护
然后把这个表隐藏，老师看不见，不过不方便。如果能一次密码输入就可解除全部工作表的保护，我想我需要，给你添麻烦了，多谢

追答

解除保护改成下面的内容即可。
Range("Sheet1!A1").Select这里面的双引号中是输入密码的单元格，你这种情况就没必要专门弹出一个密码框了吧？你可以单独设置一个页面放这两个按钮，然后指定这个页面上的某个单元格用来输入密码，这个单元格可不能被锁定，具体设置哪个你自己设定。设置好后用我给你的代码就可以做到用指定单元格中输入的密码自动解锁所有你指定的工作表。

修改后的解除保护按钮代码如下：
Private Sub 解除保护_Click()
Dim pwd As String

Range("Sheet1!A1").Select
pwd = Selection.Text

Sheets("Sheet1").Select
ActiveSheet.Unprotect Password:=pwd
Sheets("Sheet2").Select
ActiveSheet.Unprotect Password:=pwd
Sheets("Sheet3").Select
ActiveSheet.Unprotect Password:=pwd
End Sub

Answer 3

那就按ctrl或shift同时选中这8张表
然后，象操作一张表那样进行格式设置，把需要锁定的区域设定，这样8张表就被同时设定了保护区域
但是密码保护和撤消，就没办法了，只能一个一个的来了。

Answer 4

可以按shift键，然后冻结 在密码保护里设置密码

Answer 5

试试看.学习中..