要實現只有管理者權限才能開啟工作表索引標籤的功能，需要進一步的控制和安全設定。以下是一個示例程式碼，演示如何檢查使用者權限並要求密碼：

Sub ToggleWorkbookTabs()
    ' 檢查使用者權限
    If Not CheckAdminAccess() Then
        ' 若非管理者權限，要求密碼
        Dim password As String
        password = InputBox("請輸入管理者密碼:")
        
        ' 驗證密碼
        If password = "your_password" Then
            ' 開啟工作表索引標籤
            ActiveWindow.DisplayWorkbookTabs = True
        Else
            MsgBox "無效的密碼，無法開啟工作表索引標籤。"
        End If
    Else
        ' 若為管理者權限，開啟工作表索引標籤
        ActiveWindow.DisplayWorkbookTabs = True
    End If
End Sub

Function CheckAdminAccess() As Boolean
    ' 檢查使用者是否具有管理者權限
    ' 在此可以根據需要自行實作檢查邏輯
    ' 若使用Windows認證，可以使用以下程式碼
    ' Return My.User.IsInRole("Administrators")
    ' 若使用自訂的使用者權限系統，則需根據系統設計進行相應的檢查
    ' 假設此處直接回傳False，表示非管理者權限
    Return False
End Function

以下是一個示例程式碼，演示如何設置工作表保護和解鎖

Sub ProtectWorksheet()
    Dim password As String
    password = InputBox("請輸入工作表密碼:")

    ' 設置工作表保護
    ActiveSheet.Protect Password:=password, UserInterfaceOnly:=True

    ' 隱藏工作表索引標籤
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub UnprotectWorksheet()
    Dim password As String
    password = InputBox("請輸入工作表密碼:")

    ' 解鎖工作表
    ActiveSheet.Unprotect Password:=password

    ' 顯示工作表索引標籤
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

在上述示例中，ProtectWorksheet子程序用於保護工作表並隱藏工作表索引標籤，而UnprotectWorksheet子程序用於解鎖工作表並顯示工作表索引標籤。使用這些子程序，你可以在需要時為工作表設置密碼保護並控制工作表的顯示。