excel - 怎么隐藏开发者标签

Question

提前致谢!

我设计了一个电子表格来跟踪员工出勤情况，而不是支付订阅费用。它设计有不同的密码级别，具体取决于您被允许访问的程度。 EX 主管可以进入日常考勤记录，但不能提交更改或添加/删除员工。除了可以选择哪些单元格/输入信息的工作表保护外，我还有一个工作簿保护，用于拒绝访问功能，例如使工作表隐藏/可见以及添加行/列。我仍然需要此代码做的是使开发人员选项卡不可见。我看到很多建议说使用 XML 进行功能区定制。

我不想使用 XML，因为:

1. 我还没有看到如何将它合并到 VBA 中

2. 它是一个单独的文件

3. 不熟悉

4. 我正在使用 MS 不再支持的 Excel 2007，因此查找信息 非常困难(也许有一天我会更新)

这是我的工作簿保护代码。

Sub Workbook_Lock()

Dim set_work_book_password As String
Dim work_book_password As String

set_work_book_password = "Password"

top:
work_book_password = InputBox("Enter Password to Protect Workbook", "Workbook Lock Password", "password")

If work_book_password = "" Then
    MsgBox "Protection Canceled"
    Exit Sub
End If

work_book_password_re_entered = InputBox("Verify Password", "Workbook Lock Password", "password")

If work_book_password_re_entered = "" Then
    MsgBox "Protection Canceled"
    Exit Sub
End If

If Not (work_book_password = work_book_password_re_entered) Then
    MsgBox "Passwords do not match" & vbNewLine & "Retry"
    GoTo top
End If

If Not (set_work_book_password = work_book_password) Then
    MsgBox "Incorrect Predefined Password" & vbNewLine & "Please use Predefined Password"
    GoTo top
End If

ThisWorkbook.Protect Structure:=True, Windows:=True, Password:=work_book_password
Application.CommandBars("Ply").Enabled = False

End Sub

Answer 1

What I still need this code to do is make the developer tab not visible.

要使用 VBA 隐藏开发人员选项卡，试试这个

Application.ShowDevTools = False