时间戳

首页 > 解决方案 > 如何隐藏开发人员选项卡

excel - 如何隐藏开发人员选项卡

问题描述

提前致谢！

我设计了一个电子表格来跟踪员工出勤率，而不是支付订阅费用。它设计有不同的密码级别，具体取决于您被允许的访问权限。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

标签： excelvba

解决方案

我仍然需要这段代码做的是使开发人员选项卡不可见。

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

Application.ShowDevTools = False

推荐阅读