| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 871 人关注过本帖
标题:如何在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: 6Rank: 6
等 级:贵宾
威 望:24
帖 子:179
专家分:312
注 册:2022-12-22
收藏
得分:0 
微软没有将功能搞这么细吧
2023-02-07 00:48
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:987
专家分:4946
注 册:2013-2-16
收藏
得分:0 
可以给你一个示范,密码有五个,最后一个是管理员密码: 1/2/3/4/888
声明,这种方式,对于高手无用.
按不同条件访问分页示例.rar (249 KB)
2023-02-08 11:40
快速回复:如何在excel中通过vba代码实现一个工作薄中多账号使用
数据加载中...
 
   



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

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