Excel表格分sheet设置密码

Excel表格分sheet设置密码,开发者工具->Visual Basic
Private Sub Worksheet_Activate()
If Application.InputBox("请输入密码：") = 123456 Then
Cells.EntireRow.Hidden = False
Else
MsgBox "密码错误，您无权查看"
Sheets(1).Select
End If
End Sub

Private Sub Worksheet_Deactivate()
Cells.EntireRow.Hidden = True
End Sub