在EXCEL某个工作表里面输入密码才可访问

1. Private Sub Worksheet_Activate()
   
2.     tmp = Application.InputBox("请输入密码", "提示")
   
3.     If tmp <> "123" Then
   
4.         Sheet1.Activate
   
5.     Else
   
6.         Cells.EntireRow.Hidden = False
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub Worksheet_Deactivate()
    
11.     Cells.EntireRow.Hidden = True
    
12. End Sub

复制代码

修改123就是密码

竟然有背景