Question

求excel设置工作表密码的vba代码

1）当选取sheet1时自动跳转到sheet2并要求输入密码，正确进入sheet1。
2）输入错误后提示重新输入密码，连续三次错误后不再提示。
周海涛你好，要求密码正确后能选取sheet1,请您再修改一下。谢谢

Answer 1

Sheet1的事件
改好了，不好意思。

Private Sub Worksheet_Activate()

Dim strPassword As String '保存密码
Dim i As Integer '输入密码的次数

Sheets("Sheet2").Select
Do
strPassword = InputBox("请输入密码") '输入密码
If strPassword = "test" Then '判断密码是否正确
Exit Do '退出循环
Else
MsgBox ("请输入正确的密码！")
End If
i = i + 1
Loop While i < 3
If i >= 3 Then
Sheets("Sheet2").Select
Else
Application.EnableEvents = False
Sheets("Sheet1").Select
Application.EnableEvents = True
End If
End Sub