ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
123
返回列表 发新帖
楼主: 228630386

[已解决] 求隐藏Excel表中某个工作表的内容, 输入密码才能查看?并非隐藏整个工作表。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-8-29 07:28 | 显示全部楼层
本帖最后由 w8899 于 2018-8-31 12:18 编辑

Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "隐藏" Then
    Sheet1.Visible = 2
    Sheet3.Visible = 2
    Sheet5.Visible = 2
    Me.CommandButton1.Caption = "显示"
Else
    Sheet1.Visible = -1
    Sheet3.Visible = -1
    Sheet5.Visible = -1
    Me.CommandButton1.Caption = "隐藏"
End If
End Sub

这个同时取消显示工作表怎么加密?

TA的精华主题

TA的得分主题

发表于 2018-8-29 07:46 | 显示全部楼层
头像被屏蔽

TA的精华主题

TA的得分主题

发表于 2019-1-11 21:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-9-7 16:01 | 显示全部楼层

我在新建文档中测试没有问题,但为什么放到我现有文档里时候就不能运行了呢,还 提示这个:

批注 2019-09-07 154711.png

批注 2019-09-07 154657.png

TA的精华主题

TA的得分主题

发表于 2019-9-9 09:54 | 显示全部楼层
本帖最后由 yuan1988 于 2019-9-9 10:02 编辑

看了上面那么多回复 ,都没理解楼主的意思,说白了就是隐藏表格里的内容,但是不隐藏这个表格,简单,既然你会写vba,那我给你提个要点就通了,隐藏就是不可见,那么什么决定可见和不可见呢,当然是字体的颜色了,所以解决办法是颜色 ,步骤:代码写入thisbook的事件下,当打开工作簿的时候,代码运行,弹出输入信心框,设定密码,加入字体颜色设置,如果密码正确,字体颜色改为黑色,就显示出来了,当然了,关闭的时候,字体要恢复到白色,这样单元格内容就隐藏了
Private Sub Workbook_Open()
Application.EnableEvents = True
Sheet2.Cells.Font.Color = RGB(255, 255,255)   白色
Sheet3.Activate
End Sub
Private Sub Worksheet_Activate() '激活工作表触发的程序
a = InputBox("请输入密码")
If a = 123 Then
   Cells.Font.Color = RGB(0, 0, 0)  黑色
   Application.EnableEvents = False    禁用事件
Else
   Sheet3.Activate
End If
End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-23 08:06 , Processed in 0.068986 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表