給所有工作表加密可以了!但可以批量解密嗎？!

hfq926

我有一個工作簿每共有250個工作表

由於每個工作表都是用函數做的!

怕不小心將函數弄錯所以全都加了密

碼?工一張一張的加!有沒有辦法寫一個

VBA一次性保護全部的工作表?

 

[em04]

[此贴子已经被作者于2008-7-16 19:58:49编辑过]

7433518

Sub a()
For Each she In ActiveWorkbook.Sheets
she.Protect ("123456")
Next
End Sub

hfq926

可以了!但可以批量解密嗎？!

7433518

Sub b()
    x = InputBox("请输入撤销保护的密码", "操作提示")
    If x = "123456" Then
        ActiveSheet.Unprotect ("123456")
    End If

End Sub

hfq926

QUOTE:

以下是引用7433518在2008-7-16 20:18:14的发言：

Sub b()
    x = InputBox("请输入撤销保护的密码", "操作提示")
    If x = "123456" Then
        ActiveSheet.Unprotect ("123456")
    End If

End Sub

    謝謝!可以了很好用!可以省很多時間!

7433518

Sub b()
    x = InputBox("请输入撤销保护的密码", "操作提示")
    If x = "123456" Then
    For x = 1 To Sheets.Count
    Sheets(x).Unprotect ("123456")
    Next
    End If

End Sub

wskcel

学习，作过记号

xueyuan

好东西。。学习了。。

pj0517

好东西  就是有个问题不明白 加密时要求我输入路径 为什么解密时不要      而且我只能解开原来加密时的第一个文件 这是为什么呢

zhys129

是批量解密嗎？