|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 mcy318 于 2013-1-29 12:41 编辑
aliens 发表于 2013-1-23 16:46 ![](http://club.excelhome.net/static/image/common/back.gif)
看了下,设计得不错,能不能把密保说一下啊
Sub 加密()
Dim X As Integer
For X = 1 To Sheets.Count
Sheets(X).Protect Password:=1209
Next X
End Sub
Sub 解密()
If Range("E27") = "2010" Then
Dim X As Integer
For X = 1 To Sheets.Count
Sheets(X).Unprotect Password:=1209
Next X
Range("E27").Select
Selection.ClearContents
Range("M5").Select
Else
Msg = "请输入正确的解密密码" ' Define message.
Style = vbCritical + vbDefaultButton2 ' Define buttons.
Response = MsgBox(Msg, Style, Title)
End If
End Sub
上面红字就是密码
|
|