EXCEL+ACCESS制作用户登陆界面和权限管理（代码全开放）

10307951261 · 发表于 2019-2-15 16:39

谢谢分享，学习

caohongtao · 发表于 2019-2-25 11:14

大神，用上述账号、密码无法登陆

adud · 发表于 2020-7-8 17:50

有些功能正好是我需要的，谢谢。

aecn · 发表于 2021-7-30 11:52

好作品，给楼主评个分吧

鑫尼达 · 发表于 2021-7-30 18:07

教大家破解楼主的权限管理.

Sub 显示被隐藏的工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Visible = xlSheetVisible
Next
End Sub

复制代码

njit_2004 · 发表于 2023-6-12 10:03

初学者，先学习一下

落花笑多情 · 发表于 2023-7-14 23:45

大神，厉害！

落花笑多情 · 发表于 2023-7-15 00:40

发现有的版本登录提示“未找到提供程序,该程序可能未正确安装”，这种情况下，先用用ADO，然后修改vba中的代码如下：
'conn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\database\data.mdb" & ";jet oledb:database password=" & "wxhwyy20160927"
conn.Open "provider=Microsoft.ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\database\data.mdb" & ";jet oledb:database password=" & "wxhwyy20160927"

落花笑多情 · 发表于 2023-7-15 00:42

66666

ご浅若★清风﹌ · 发表于 2023-7-15 15:45

厉害，谢谢分享！！！！！

		自动登录	找回密码
密码			免费注册

[分享] EXCEL+ACCESS制作用户登陆界面和权限管理（代码全开放）

评分