提前致谢!
我设计了一个电子表格来跟踪员工的出勤情况,而不是为订阅付费。根据允许的访问量,它设计有不同的密码级别。EX主管可以输入日常出勤记录器,但不能提交更改或添加/删除员工。除了具有可以选择单元格/输入信息的工作表保护外,我还拥有一个工作簿保护功能,用于拒绝访问功能,例如使工作表隐藏/可见以及添加行/列。我仍然需要此代码来做的是使开发人员选项卡不可见。我看到很多建议说使用XML进行功能区定制。
我不想使用XML,因为:
我尚未看到如何将其合并到VBA中
这是一个单独的文件
缺乏熟悉
我正在使用Excel不再支持的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
我仍然需要此代码来做的是使开发人员选项卡不可见。
要使用VBA隐藏“开发者”标签,请尝试以下操作
Application.ShowDevTools = False
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句