如何一次性解除所有带密码的工作表的保护

emote2006

例如一个工作簿中有五个不同表名的工作表，其保护密码是一样的现在我想用一个按钮，点击后会弹出一个密码输入框，只要输一次密码，所有的工作表都自动解除保护，其宏代码该怎么写？　谢谢！

下面的代码可以弹出输入框，但每一个表要输一次密码才行，很不方便。

Sub unall()

Dim n As Integer
 For n = 1 To Sheets.Count
 Sheets(n).Unprotect
 Next n

End Sub

另一个问题是，有没什么办法禁止其它用户对已被保护的工作簿进行宏编缉（或打开VBA窗口），而自已需要编缉时可以点一下按钮，通过密码解除禁止。

因为在宏代码的有关语句中有明文显示保护密码，如果其打用户可以进行宏编缉，那么工作表密码保护就没意义了。

emote2006

发个附件上来

soDHfyRi.rar (6.41 KB, 下载次数: 254)

2008-7-4 11:27 上传

点击文件名下载附件
如何一次性解除所有带密码的工作表的保护

lanyuu

现用input取得密码

emote2006

用宏是不是做不到？

[此贴子已经被作者于2008-7-4 11:37:06编辑过]

emote2006

QUOTE:

以下是引用lanyuu在2008-7-4 11:30:13的发言：
现用input取得密码

    刚才找了个VBA加密器可能解决宏代码被查看的问题，不过上面说的input该如何用，能否把完整的代码写一下，我对这方面知识差不多为0，谢谢！

emote2006

试了一下，改成这样子就可以了

Sub unall()
Dim a As String
a = InputBox("test", "tst", "")
Dim n As Integer
 For n = 1 To Sheets.Count
 Sheets(n).Unprotect Password:=a
 Next n

End Sub

liqianheng

请高手指教我也想知道

suntuki

emote2006 发表于 2008-7-4 12:17
试了一下，改成这样子就可以了Sub unall()Dim a As Stringa = InputBox("test", "tst", "")Dim n As Intege ...

请问一下,您这个表格可以一次性解锁,那么怎么样能一次全部上锁呢.
很想把你这个表利用起来,看到了请回复.谢谢

蔡明江

emote2006 发表于 2008-7-4 12:17
试了一下，改成这样子就可以了Sub unall()Dim a As Stringa = InputBox("test", "tst", "")Dim n As Intege ...

不错 学习正好用上

jysww

嗯，好东西感谢分享。。。