如何创build一个Excel电子表格,该电子表格通过仅对正确用户启用的button提供工作簿链接?

如何创build一个Excel电子表格,该电子表格使用仅对正确用户启用的button提供工作簿链接?

我想为多个用户创build一个索引页面/电子表格/工作簿,以便访问大量的工作簿。 我想灰色(禁用)或删除button到用户不被允许访问的工作簿。

我不知道如何去做,我读了IRM。 虽然它不显示如何灰化(禁用)某些用户无法访问的button。

我非常感谢大家的意见。

谢谢大家。

首先,您将需要使用密码来保护工作簿,并为您的用户/权限创build数据库,将数据库表设置为VeryHidden xlSheetVeryHidden

数据库示例:

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

现在你可以创build一个checkPermission子节点来检查是否可以执行这个macros。

 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 

最后你可以在所有的macros中使用这个代码。

 Sub Button1() If Not CheckPermission(2) Then Exit Sub End If 'Your code here! End Sub