Excel 2010 VBA 入门 075 工作表事件之Workbook_Open

示例：用户登录

    为实现用户的登录机制，需要一个工作表用于记录用户名和密码，另一个工作表用于显示登录的界面，以便让用户输入用户名和密码进行登录。当工作表被打开时，使用Open事件，并在其中隐藏其他工作表，显示登录工作表。当用户成功登录后，则隐藏登录表并显示其他工作表。

实现代码

插入模块

Option Explicit

Sub login()
    Dim username As String
    Dim password As String
    Dim rngName As Range
    
    '获取输入的用户名和密码
    username = Sheet1.Range("C4").Value
    password = Sheet1.Range("C6").Value
    '若用户名为空，则退出程序
    If Trim(username) = "" Then Exit Sub
    '查找用户名
    Set rngName = Sheet2.Columns(1).Find(username, lookat:=xlWhole)
    '若找到用户名
    If Not rngName Is Nothing Then
        '若用户名和密码相符，则登录成功
        If password = rngName.Offset(0, 1).Value Then
            '显示工作表
            Call ShowSheets
        End If
    End If
End Sub

'显示工作表
Sub ShowSheets()
    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Visible &