主题：任务栏权限设置

 你可以把任务栏隐藏。

 如

Dim tl1 As WinForm.TopicLink
tl1 = Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开")
tl1.Visible = False

任务栏的权限，只能写在 TopicLinkClick 事件，但没有全局的这个事件。

最简单的方法，就是隐藏对应的link

         Case "修改密码"
                If  bn.Contains("11") Then
                    Forms("修改密码").Open

                    Exit For
                Else
                    MessageBox.show("你无权执行此项操作!")
                   
                End If

For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
    For Each bn As String In dra("任务名").split(",")
        If bn =e.Link.Name Then  
            Select Case e.Link.Name
                Case "切换用户"
                    Forms("登录").Open
                Case "修改密码"
                    Forms("更改用户").Open
            End Select
            Return
        End If
    Next
Next

MessageBox.show("你无权执行此项操作!")

弹出 _bm 、 _gwmc  等值，看是否满足，代码应该没问题的了

Select Case e.Link.Name
    Case "切换用户"
        Forms("切换用户").Open
    Case "修改密码"
        Forms("修改密码").Open
    Case Else
       
        For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
            For Each bn As String In dra("任务名").split(",")
                If bn =e.Link.Name Then
                    Select Case e.Link.Name
                        Case "报表1"
                            Forms("报表1").Open
                        Case "报表2"
                            Forms("报表2").Open
                    End Select
                    Return
                End If
            Next
        Next
        MessageBox.show("你无权执行此项操作!")
End Select