Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3734|回复: 15

[已解决]密码保护问题

[复制链接]
发表于 2017-4-5 14:51 | 显示全部楼层 |阅读模式
本帖最后由 lkk0063 于 2017-4-6 13:48 编辑

我使用以下程式码进行密码保护, 但是我已经设定Sheets("11")密码为 "1", 怎么Sheets("11") 不需密码就可以解除, 是错在哪?

Sheets("11").Unprotect Password:="1"
If Sheets("11").AutoFilterMode = True Then Sheets("11").ShowAllData
Sheets("11").Protect Password:="1"
最佳答案
2017-4-6 11:43
本帖最后由 大灰狼1976 于 2017-4-6 11:48 编辑

不好意思,我只看了你上面的三行代码,实际上在文件中,三行代码下面还有一行:
Sheets("11").Protect AllowFiltering:=True
它实际上是一个完整的保护工作表代码,相当于重新保护了一次,并且是不加密码的。
你要把两句合并一下:Sheets("11").Protect Password:="1", AllowFiltering:=True

VBA-test-1.zip

54.52 KB, 下载次数: 4

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-4-5 15:13 | 显示全部楼层
你单独运行一下上面三行代码试试,我确认是没有问题的。
可能你的程序直接跳过了这三行代码就结束了。
回复

使用道具 举报

 楼主| 发表于 2017-4-5 16:56 | 显示全部楼层
大灰狼1976 发表于 2017-4-5 15:13
你单独运行一下上面三行代码试试,我确认是没有问题的。
可能你的程序直接跳过了这三行代码就结束了。

程式码应该是没问题, 可是套用在我附件资料, 就有问题
有什么建议, 如何Debug?
回复

使用道具 举报

发表于 2017-4-5 17:01 | 显示全部楼层
你在这三行代码中间加个msgbox "随便什么内容",看看会不会被执行,不跳出消息框就是没运行这段代码。
回复

使用道具 举报

 楼主| 发表于 2017-4-6 08:35 | 显示全部楼层
大灰狼1976 发表于 2017-4-5 17:01
你在这三行代码中间加个msgbox "随便什么内容",看看会不会被执行,不跳出消息框就是没运行这段代码。

看起来有被执行, 但密码保护就无法执行, 真怪!
PW.jpg
1.jpg
回复

使用道具 举报

发表于 2017-4-6 10:14 | 显示全部楼层
你判断密码保护没有执行的依据是什么?
回复

使用道具 举报

 楼主| 发表于 2017-4-6 10:18 | 显示全部楼层
本帖最后由 lkk0063 于 2017-4-6 10:22 编辑
大灰狼1976 发表于 2017-4-6 10:14
你判断密码保护没有执行的依据是什么?
案"add data", 将"BB" sheet资料复制到 "CC"Sheet, 执行完程式是可以受保护的, 但不需密码就可以直接解除保护设定
回复

使用道具 举报

发表于 2017-4-6 10:30 | 显示全部楼层
我试过确实处于保护状态,而且直接解除不行,必须输入密码。
回复

使用道具 举报

 楼主| 发表于 2017-4-6 11:20 | 显示全部楼层
大灰狼1976 发表于 2017-4-6 10:30
我试过确实处于保护状态,而且直接解除不行,必须输入密码。

你好,
我要描述的是,Sheet(11),最后要设密码,而且密码是我指定 1才能解除密码保护,现在不需密码就可直接解除保护

Sheets("11").Unprotect Password:="1"
If Sheets("11").AutoFilterMode = True Then Sheets("11").ShowAllData
Sheets("11").Protect Password:="1"
回复

使用道具 举报

发表于 2017-4-6 11:28 | 显示全部楼层
你的附件我按下ADD DATA按钮显示NO DATA,所以也不好确认,
我是直接将上面三行代码做了个新宏直接运行的,结果是没有问题的。

或者你告诉我输入哪些条件后按ADD DATA不会显示NO DATA?
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:18 , Processed in 2.190962 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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