求助：用户权限中隐藏某工作表

zltwgm

哪个大神帮忙看下、初学者求助~~~

zltwgm

Private Sub Label1_Click()
    If ComboBox1.Value = "管理员" And TextBox1.Value = 888 Then
        'ActiveWindow.DisplayWorkbookTabs = True
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"  '隐藏功能区、按钮
        Sheet4.Visible = xlSheetVeryHidden
        Sheet2.Select
        Application.Visible = True
        End
    ElseIf ComboBox1.Value = "用户" And TextBox1.Value = 123 Then
        'ActiveWindow.DisplayWorkbookTabs = True
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"  '隐藏功能区、按钮
        Sheet4.Visible = xlSheetVeryHidden
        Sheet3.Visible = xlSheetVeryHidden
        Sheet2.Select
        Application.Visible = True
        End
    Else
        MsgBox ("密码不正确，无权进入系统")
        On Error Resume Next
        Unload Me
        If Workbooks.Count > 1 Then
            'Application.DisplayFormulaBar = True
            'ThisWorkbook.Close True
            ThisWorkbook.Close savechanges:=False
        Else
            'If ThisWorkbook.Saved = False Then ThisWorkbook.Save
            Application.Quit
        End If
    End If
End Sub
后来这样弄后实现了想要的效果