如何创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