Excel精英培训网

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

[已解决]密码框没有输入密码时,弹出密码框没有密码输入,确定后可继续

[复制链接]
发表于 2013-12-15 09:59 | 显示全部楼层 |阅读模式
密码框没有输入密码时,弹出密码框没有密码输入,确定后可继续
未命名.JPG

密码正确执行程序否则退出.rar (129.72 KB, 下载次数: 20)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-12-15 10:04 | 显示全部楼层
本帖最后由 zjdh 于 2013-12-15 10:07 编辑

Sub 密码正确执行程序否则退出()
    Dim pw
10  pw = InputBox("权限验证:请输入管理员密码")
    If pw = "" Then
        MsgBox "你没有输入密码!"
        GoTo 10
    End If
    If pw <> "888" Then
        MsgBox "权限验证错误,程序自动退出!", , "系统提示"
        Exit Sub
        ThisWorkbook.Unprotect (pw)
    End If
    MsgBox "这只是一个测试实例!", , "系统提示"
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-12-15 10:16 | 显示全部楼层
zjdh 发表于 2013-12-15 10:04
Sub 密码正确执行程序否则退出()
    Dim pw
10  pw = InputBox("权限验证:请输入管理员密码")

老师,但这个进行取消和关闭时,也会弹出,请输入密码。。

能让,进行,取消和关闭时,都能关闭密码输入框吗!
麻烦老师了!
回复

使用道具 举报

 楼主| 发表于 2013-12-15 11:59 | 显示全部楼层
zjdh 发表于 2013-12-15 10:04
Sub 密码正确执行程序否则退出()
    Dim pw
10  pw = InputBox("权限验证:请输入管理员密码")

请老师帮帮斧正下。。。谢谢你了老师!
回复

使用道具 举报

发表于 2013-12-15 13:17 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2013-12-15 13:24 编辑
yjwdjfqb 发表于 2013-12-15 11:59
请老师帮帮斧正下。。。谢谢你了老师!


Book1.rar (6.75 KB, 下载次数: 30)

评分

参与人数 2 +11 收起 理由
yyyydddd8888 + 6 非常巧妙!
yjwdjfqb + 5 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-12-15 13:22 | 显示全部楼层
zjdh 发表于 2013-12-15 13:17

谢谢老师,就是这样的!
回复

使用道具 举报

发表于 2013-12-15 13:23 | 显示全部楼层
yjwdjfqb 发表于 2013-12-15 11:59
请老师帮帮斧正下。。。谢谢你了老师!

请测试:
密码正确执行程序否则退出.zip (131.07 KB, 下载次数: 20)

评分

参与人数 1 +5 收起 理由
yjwdjfqb + 5 很给力!

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 10:32 , Processed in 2.448273 second(s), 18 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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