excel窗体退出时保护工作表e
修改一下代码,要求输入两次密码并验证:
Private Sub CommandButton2_Click() '退出按钮
Dim strPWD1$, strPWD2$
Unload UserForm1
strPWD1 = InputBox("请输入工作表保护密码:", "输入密码")
strPWD2 = InputBox("请再次输入密码:", "重复密码")
If Not IsEmpty(strPWD1) And StrComp(strPWD1, strPWD2, 1) = 0 Then
ActiveSheet。 Protect Password:=strPWD1, DrawingOb...全部
修改一下代码,要求输入两次密码并验证:
Private Sub CommandButton2_Click() '退出按钮
Dim strPWD1$, strPWD2$
Unload UserForm1
strPWD1 = InputBox("请输入工作表保护密码:", "输入密码")
strPWD2 = InputBox("请再次输入密码:", "重复密码")
If Not IsEmpty(strPWD1) And StrComp(strPWD1, strPWD2, 1) = 0 Then
ActiveSheet。
Protect Password:=strPWD1, DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
MsgBox "密码为空或者两次输入的密码不一致!", vbInformation, "温馨提示:"
End If
End Sub。
收起