是不是下述代码要区分管理员和其它用户,使在其它用户中不出现用户权限表?
Sub 书签()
Dim myPopup As CommandBar, ws As Worksheet
For Each myPopup In Application.CommandBars
If myPopup.Name = "myPo" Then myPopup.Delete
Next
Set myPopup = CommandBars.Add(Name:="myPo", Position:=msoBarPopup)
For Each ws In Worksheets
Set p1 = myPopup.Controls.Add(Type:=msoControlButton)
p1.Caption = ws.Name
p1.OnAction = "WS_Select"
Next
myPopup.ShowPopup
Set ws = Nothing
Set myPopup = Nothing
Set p1 = Nothing
End Sub