主界面弹窗事件

源代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not blogin Then
        登录.Show
    End If
End Sub

Private Sub Worksheet_Activate()
    If Not blogin Then
        ThisWorkbook.Unprotect ("123")
        For i = 1 To Sheets.Count
        If Sheets(i).Name <> "主界面" Then Sheets(i).Visible = xlSheetVisible
    Next
    'ThisWorkbook.Protect ("123")
    End If
End Sub