如何通过VBA设置工作表保护密码

xiyan2653 · 发表于 2017-9-14 18:30

本帖最后由 xiyan2653 于 2017-9-14 18:33 编辑

如何通过VBA设置工作表保护密码

phsu · 发表于 2017-9-14 18:42

(1)例如Sheet1.Protect "abc"
(2)
Pwd=InputBox("Insert your password:")
Sheet1.Unprotect Pwd
(3)
Pwd=InputBox("Insert your original password:")
Sheet1.Unprotect Pwd
Pwd=InputBox("Insert your new password:")
Sheet1.Protect Pwd

xiyan2653 · 发表于 2017-9-15 09:20

phsu 发表于 2017-9-14 18:42
(1)例如Sheet1.Protect "abc"
(2)
Pwd=InputBox("Insert your password:")

谢谢大神，我少说了一个功能，就是再次点击锁定，是用修改后的密码进行锁定，而不是用初始密码abc锁定。也就是（3）的结果怎么导入到（1），把初始密码abc修改为重设的密码。

phsu · 发表于 2017-9-15 10:15

本帖最后由 phsu 于 2017-9-15 10:18 编辑

用變量處理，且將密碼存放在某個單元格，例如Sheet1.Range("X1")。第一次使用時，先在Sheet1.Range("X1")輸入密碼。
Dim Pwd As String
(1)例如Sheet1.Protect Sheet1.Range("X1")
(2)
Pwd=InputBox("Insert your password:")
If Pwd = Sheet1.Range("X1").Value Then
Sheet1.Unprotect Pwd
Else
MsgBox "密碼錯誤，無法解鎖！"
End If
(3)
Pwd=InputBox("Insert your original password:")
If Pwd = Sheet1.Range("X1").Value Then
Sheet1.Unprotect Pwd
Pwd=InputBox("Insert your new password:")
Sheet1.Protect Pwd
Sheet1.Range("X1") = Pwd
Else
MsgBox "原始密碼錯誤，無法重設密碼！"
End if

xiyan2653 · 发表于 2017-9-16 09:29

phsu 发表于 2017-9-15 10:15
用變量處理，且將密碼存放在某個單元格，例如Sheet1.Range("X1")。第一次使用時，先在Sheet1.Range("X1")輸 ...

谢谢大神，完全达到了我的需求！
Sheet1.Protect Pwd
Sheet1.Range("X1") = Pwd
试运行后，这两行代码换了个位置，不然先锁定后就没法修改X1的值了。

CYZ凡星点点 · 发表于 2024-1-25 23:14

phsu 发表于 2017-9-14 18:42
(1)例如Sheet1.Protect "abc"
(2)
Pwd=InputBox("Insert your password:")

感谢分享

mythqiu · 发表于 2024-4-28 21:13

学习了。。。。。。

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

[求助] 如何通过VBA设置工作表保护密码