？工作表及活頁簿密碼設定之VBA程式碼？

chou680702 · 发表于 2009-7-16 22:15

各位菁英好：

請問如何以VBA直接設定工作表及活頁簿密碼？又如何以VBA解開工作表及活頁簿密碼？
如要設定工作表及活頁簿密碼為123？又如何以VBA直接寫好密碼接開工作表及活頁簿？
這二種情況應如何表示。

LangQueS · 发表于 2009-7-16 22:25

Sub 保护所有工作表()
Dim X As Integer
For X = 1 To Sheets.Count
Sheets(X).Protect Password:=888 '密码
Next X
End Sub

Sub 取消所有工作表的保护()
Dim X As Integer
For X = 1 To Sheets.Count
Sheets(X).Unprotect Password:=888 '密码
Next X
End Sub

chou680702 · 发表于 2009-7-16 22:35

這是工作表的部份，如果是活頁簿呢？

LangQueS · 发表于 2009-7-16 22:41

http://club.excelhome.net/dispbbs.asp?boardid=2&id=328538

LangQueS · 发表于 2009-7-16 22:42

Sub 撤消工作簿保护并取消密码()
ActiveWorkbook.Unprotect Password:=123456
End Sub

Sub 保护工作簿并设置密码()
ActiveWorkbook.Protect Password:=123456
End Sub

chou680702 · 发表于 2009-7-16 22:50

謝謝您的幫忙，真是個好人!

飞云楼主 · 发表于 2009-7-17 04:18

学习啦。。是个好人。。

		自动登录	找回密码
密码			免费注册

[求助] ？工作表及活頁簿密碼設定之VBA程式碼？