标题:如何在excel中通过vba代码实现一个工作薄中多账号使用
只看楼主
drenca
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2022-11-23
 问题点数:0 回复次数:3 
如何在excel中通过vba代码实现一个工作薄中多账号使用
大家好,请问如何在Excel中实现同一工作薄多账号使用哇?大概实现之后就是:假设现在有一个命名为“测试”的工作薄,里面有“sheet1、sheet2、sheet3、sheet4”等若干工作表,已经事先赋予sheet1-4打开密码,如sheet1的打开密码为001,以此类推。先点击“测试”这个工作薄,输入密码001,则打开了sheet1工作表,其他工作表同时隐藏;输入002打开sheet2工作表,其他工作表隐藏,这种情况代码怎么写哇?如何实现?请大神赐教
搜索更多相关主题的帖子: 代码 excel 打开 工作 工作表 
2022-11-23 13:09
woolley
Rank: 1
等 级:新手上路
威 望:1
帖 子:14
专家分:0
注 册:2004-11-25
得分:0 
试试这个代码,放在workbook对象的open事件中
Private Sub Workbook_Open()
Worksheets(1).Visible = 2
Worksheets(2).Visible = 2
Dim sinput As String
sinput = InputBox("please input password", "password")
If sinput = "001" Then
    Worksheets(1).Visible = -1
    ElseIf sinput = "002" Then
    Worksheets(2).Visible = -1
End If
End Sub
2023-02-01 10:57
pvm2000
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:24
帖 子:159
专家分:256
注 册:2022-12-22
得分:0 
微软没有将功能搞这么细吧
2023-02-07 00:48
厨师王德榜
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:183
帖 子:942
专家分:4724
注 册:2013-2-16
得分:0 
可以给你一个示范,密码有五个,最后一个是管理员密码: 1/2/3/4/888
声明,这种方式,对于高手无用.
按不同条件访问分页示例.rar (249 KB)
2023-02-08 11:40



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-510747-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.390341 second(s), 10 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved