有学员在学习培训教程《进销存管理系统》到最后设置主页的时候，需要对主页按钮的权限进行设置。其实可以根据作业三的内容进行扩展，代码如下:

Private Sub Form_Open(Cancel As Integer)
    Set mdctPermissionList = LoadPermissions("主页权限", Me)
    If Not mdctPermissionList("") Then
        Exit Sub
    End If
    ApplyTheme Me
    On Error Resume Next
    Me.btn销售退货单.Enabled = mdctPermissionList("销售退货单")
    Me.btn采购入库单.Enabled = mdctPermissionList("采购入库单")
    Me.btn销售出库单.Enabled = mdctPermissionList("销售出库单")
    Me.btn销售退货单.Enabled = mdctPermissionList("销售退货单")
    Me.btn报损单.Enabled = mdctPermissionList("报损单")
    Me.btn报溢单.Enabled = mdctPermissionList("报溢单")    
End Sub

如下图：

然后对权限进行设置

为了展示方便，我把按钮从透明调整为可见，这样就可以看到权限是否设置正常，等权限功能设置好，需要把按钮调整为透明。