vba - 如何创建一个 Excel 电子表格，通过仅对正确用户启用的按钮提供指向工作簿的链接？

Question

如何使用仅对正确用户启用的按钮创建一个 Excel 电子表格，该电子表格提供指向工作簿的链接？

我想创建一个索引页/电子表格/工作簿供多个用户使用，以便访问大量工作簿。我想灰显（禁用）或删除不允许用户访问的工作簿的按钮。

我不知道该怎么做，我阅读了 IRM。虽然它没有显示我如何使某些用户无法访问的按钮变灰（禁用）。

我将非常感谢大家的意见。

谢谢大家。

Answer 1

首先，您需要使用密码保护您的工作簿并为您的用户/权限创建一个数据库，将数据库表设置为 VeryHidden xlSheetVeryHidden。

数据库示例：

+----------+----------+----------+----------+
|  Names   |           Allow                |
+          +----------+----------+----------+
|          | Button 1 | Button 2 | Button 3 |
+----------+----------+----------+----------+
| MrJones  | 1        | 0        | 0        |
| Makah    | 0        | 1        | 0        |
| Seesharp | 1        | 1        | 1        |
+----------+----------+----------+----------+

现在您可以创建一个 checkPermission 子程序来检查是否可以执行宏。

Function CheckPermission(byVal colIndex as Integer) As Boolean
    Dim userName As String, allow As Integer

    userName = Environ("USERNAME")
    CheckPermission= WorksheetFunction.VLookup(userName, Sheets("DB").[A:D], colIndex, False)
End Function

最后，您可以在所有宏中使用此代码。

Sub Button1()
  If Not CheckPermission(2) Then
    Exit Sub
  End If

  'Your code here!

End Sub