说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用VBA为EXCEL文件加个登录对话框

HTML文档下载 WORD文档下载 PDF文档下载
登录对话框的作用不仅仅是保护内容,因为保护内容可以用“保护工作簿”或“保护工作表”来做更简单,登录对话框还可以根据不同的用户名做不同的工作,虽然这种保护对懂代码的人来说形同虚设,但一些场合还是有用的。

下载文件

 

 

登录对话框的作用不仅仅是保护内容,因为保护内容可以用“保护工作簿”或“保护工作表”来做更简单,
登录对话框还可以根据不同的用户名做不同的工作,虽然这种保护对懂代码的人来说形同虚设,但一些场合还是有用的。
一、添加登录对话框及处理程序
EXCEL工具菜单-》宏-》Visual Basic编辑器,插入一窗体(模式对话框,名为LoginForm),添加用户名与口令文本框,名为:username, password
再加上登录、退出按钮:名为LoginButton, ExitButton。
添加单击事件处理:

 

登录对话框的作用不仅仅是保护内容,因为保护内容可以用“保护工作簿”或“保护工作表”来做更简单,

登录对话框还可以根据不同的用户名做不同的工作,虽然这种保护对懂代码的人来说形同虚设,但一些场合还是有用的。

 

一、添加登录对话框及处理程序

 

EXCEL工具菜单-》宏-》Visual Basic编辑器,插入一窗体(模式对话框,名为LoginForm),添加用户名与口令文本框,名为:username, password

再加上登录、退出按钮:名为LoginButton, ExitButton。

添加单击事件处理:

 

 

 

Private Sub LoginButton_Click()       If username.Text = "abc" And password.Text = "123" Then        LoginForm.Hide        Exit Sub    End If        MsgBox "用户名或口令错误,请重新输入", vbCriticalEnd SubPrivate Sub ExitButton_Click()    LoginForm.Hide    ThisWorkbook.CloseEnd Sub

处理对话框关闭按钮

 

Private Sub UserForm_Terminate()    ThisWorkbook.CloseEnd Sub

二、添加打开EXCEL文件时自动显示登录对话框

在ThisWorkbook里添加

Private Sub Workbook_Open()    LoginForm.ShowEnd Sub

 

三、必须启用宏的实现

 

以上的步骤如果打开文件时不启用宏也是白搭,我们用如下方式实现禁用宏不显示工作簿。

 

 

'关闭时隐藏,打开时用宏来显示,防止宏关闭Private Sub Workbook_BeforeClose(Cancel As Boolean)    Windows(Windows.Count).Visible = FalseEnd SubPrivate Sub Workbook_Open()    Windows(Windows.Count).Visible = TrueEnd Sub

 

10个最热JavaScript开源框架的社区活跃度对比 2013福布斯中国富豪榜:李彦宏第三、马化腾第五、马云第八 Storm又获东风,Hortonworks计划将其整合到Hadoop企业版 IBM CEO:预测高新技术 五个我最喜欢的方式 我伙呆,硅谷高级工程师年薪16.5万美金起 羡煞旁人的Supercell:Clash of Clans卫冕营收榜冠军 谷歌第三财季利润增36.5% 但摩托罗拉业务继续亏损2.48亿 针对应用开发者的几点建议:注意特征蔓延、加大用户评审…… Ubuntu中文衍生版UbuntuKylin 13.10正式发布 Web设计师和Web开发者之间的区别是什么? 在政府退出后,Google的量子计算机项目面临危机 SQL on Hadoop的最新进展及7项相关技术分享 联想:欲收购黑莓,还能在智能手机领域创造PC神话吗? 谁说Android开发者的收入依然不行? 代码可维护性的神秘面纱 MDCC 2013首批演讲嘉宾名单出炉 议题即将披露 MDCC2013:公开征集讲师和演讲主题 移动周报:IT人必看!9大最火移动开发技能 OpenStack H版发布 盘点2013:21个最火的云初创公司 从摩尔定律到原子计算,2013诺贝尔物理学奖背后的计算机技术 黄峻:从自制纸板键盘的孩子到Adobe技术经理的故事 Web开发正被颠覆 开发者需认清五大新现实 最发人深省的亚马逊面试题,你会如何作答? 所见即所得:8款实用HTML5开发框架 Groovy最受欢迎 Java系开发者更偏爱其他JVM类语言?(图) [开源专访]iNews创始人赵戈戈:36小时开发的PHP版HackerNews 使用Spring框架的12个开源项目 甲骨文仍旧“憎恨”开源软件 开发者应该避免使用的6个Java功能 不可小觑的Web开发编码规范 关于串口操作! 如何重构事件驱动程序中的case语句? 小弟公司想做一个邮件系统!!!(要求能首发邮件)小弟没有做过!!请各位给一些提示!! 高分求救:如何在一个企业的自己的网站上设置搜索引擎,用来搜索本行业的信息,需要什么条件? 求助 关于LONG VARCHAR 或 数据库insert 操作 问两个有点难度的问题:怎样声明及使用API 和 ActiveX DLL? 向大虾请教一个很菜的问题! 用代理如何把一句话加到域中 假脱机是什么技术? 谁熟悉COGNOS的前台展现吗,可不可以教教我拉,有没有中文的文档可以借我看看拉! msgbox的权限? 数据库 vfp->sql server? 谁能告诉我下面程序代码在内存中被编译器实际做出来的结果是什么? 很急:关于msgget的调用 vb 连接数据库 是不是SQLserver2000不支持些SQL 请问如何用程序控制使FORM最大化,最小化? 如何在datatable中再查找符合条件的数据? 为什么打印宽度最大为21厘米? 请问我在一个.js文件中怎样调用其它.js文件中的资源 这样做到不刷新,获取application的变化? 请教状态栏的问题 vfp问题?急~(关于控件的使用) 破解bios开机密码 如何自己编写代码结束所有的应用程序呢?请教! 请问如何在C#中对字符串或byte[]进行crc32校验。有现成的调用吗? 菜鸟的一个有关数据库的疑问?有谁知道吗? 神啊,救救我吧! 神啊,救救我吧! 神啊,救救我吧! 菜鸟提问,如何知道MDB数据库中是否存在一个指定表,谢谢!急…… 关于用DBGRID向数据库添加主细表的问题?高分奖赏! 关于窗体菜单的问题? 很急!!!!!!!! 欢迎大家推荐好的学习JSP的网站! 数据库 vfp->sql server? 问一个最好的查漏方法 ARM Develop Suite eval version的破解方法或者破解文件 一个word文件,怎么让用户一打开它时 出现保存对话框? ie6.0的快捷键问题 这里人气旺,借贵宝地一用。熟悉网站搜索引擎的朋友请进! 交换机和路由器有什么区别?? csdn怎么回事啊!!昨天登陆后竟然显示别人的用户名,今天竟然连我的注册信息也改了.TMD 关于SQL SERVERS2000 建数据库的问题--请进 请问哪有讲算法的好书啊! 关于单片机??? 向各位大侠请教:怎样在JAVE中调用文件 SYBASE 数据库设备删除后 Vitual Device Number 不能释放? 高分诱惑(痛苦莫过于分太多) RichEdit中的COM问题!!! 各位师兄师姐,帮帮我,好吗? 感恩的作文,急需5篇每篇500字! 中国汉字的特点 重庆火锅作文,至少四种修辞500字 谁有关于革命英雄人物的故事啊?一个就够了,要简短点不要罗嗦,还要告诉我说的是哪个人. 我国汉字最大特点是()选项题a.有形b.有声c.既有形又有声 300-400字作文.音乐可以调节心绪、陶冶情操,还有助于拉近人与人之间的距离,使人们和谐相处.或许你也有过难忘的欣赏音乐的经历,用三四百字写出当时的情景和你的真切感受.有题材就行 幼时记趣,三峡,狼的翻译,还有原文 5篇500字作文初中的快急需 求十六年前的回忆练习答案.1927年4月28日,我永远忘不了那一天.那是父亲的被难日,离现在已经十六年了.  【那年春天,父亲每天夜里回来得很晚.】每天早晨,不知道什么时候他又出去了.有时 急需叙事有波澜的记叙文...故事情节可以悬念、巧合、误会、800~1000字左右 也可以是小小说、要有哲故事情节要有【悬念、巧合、误会、欲扬先抑】其中一个···曲折挖曲折... 关于革命英雄人物小故事描写英雄人物的小故事,周恩来呀,毛泽东呀,谁的都行,讲故事比赛呢,急用! 帮我选个英文名Angelia Queena Queenie 我在挣扎选哪个,各位出出主意吧,如果觉得不好听,那就帮我想一个,只要每人想一个就好了,不用很多 以 难忘的一句话 为话题 写一篇作文 革命英雄人物的故事 小学语文五年级上册五单元-遨游汉字王国试卷的答案再加上五单元头名卷 给篇内容波澜起伏的作文,题目叫转弯的地方还要是一篇记叙文 500字作文!急需! 人教版小学语文五年级《遨游汉字王国》课程纲要》 求1000字左右的短篇小说、小小说、微型小说.要艺考自备材料,选一篇稿子~希望亲们能推荐一些,不太有名,不要人尽皆知的内种小说~悬疑,动人,神马都可以,最好是能吊人胃口,有情节起伏…… 从哪些地方看出威尼斯和小艇关系密切? 人教版小学语文五年级上册第37页内容 800到1000字的小小说的名字.(写作文)写作文 小艇与威尼斯人的生活密切,这是为什么呢?请用“因为··所以··”的句式写一写十分钟以内发来! 郑成功有什么成就 山雨 作者通过合理而新奇的什么和什么? 以“放飞梦想,法律伴我成长”为题500字作文中学作文 内容紧扣主题 郑成功的成就是什么 六年级语文《山雨》作者通过合理而新奇的什么和什么? 第三届郑成功文化——海峡两岸中小学生征文(1)以两岸文化传承为主题,自选角度,结合自身体验,抒发感想,撰写征文.要求征文要适合于演讲,字数在800字左右. 郑成功的成就 三峡那篇课文是怎么翻译的? 在17课安塞腰鼓中用……一样,是……造一个排比句. 郑成功的故事简短一点,简短一点,再简短一点 一句话英文表白我是女生,想跟一个认识很久的外国人表白.求高人帮我想一句含蓄点的,不要太直白的,但是只要一句话.罗嗦的长的太直白的太吓人的就不用了.还有么?为啥都是有点吓人的。 写一篇秋天的作文.描写秋天景色的片断. 《十六年前的回忆》 课后题写被捕前和被捕时采用了对比的手法.父亲整理书籍、文件时对我的提问所表现出得含糊、敷衍的态度与( )形成对比;面对敌人,“我”的恐惧与( )形成对比. 英语表白作文怎么写. 人教版语文六年级上册第三单元作文怎么写?500字的我那一篇作文30分啊 作者....有熟悉这个的吗?不好意思,麻烦了{随机数h 表白的英文文章 急!求一篇写秋天的作文!题目:**的秋天字数600 越快越好大家尽情发挥…加分!要有借景抒情的作用,最好是‘伤感的秋天’!很急…谢谢了 请问下谁知道1-6小学语文人教版课文题目+作者...迷茫了,十分谢谢大伙了0O 给我一篇500字的关于在幸福中成长的作文 给我一篇500字的关于在幸福中成长的作文 一篇写秋季的作文要生动优美 求助1-6小学语文人教版课文题目 作者.急求啊啊啊啊...我都迷茫了,感谢各位3Q 重庆大学城400字作文怎样写 中国革命英雄人物比如说江姐 作者....有会的人说下嘛,十分谢谢大伙了{随机数Z 英语翻译从“江水又东,径西陵峡~亦当惊知己于千古矣” 革命英雄人物电影 26课开国大典看着课文第二段画一张大典会场示意图 三峡的原文及翻译 什么的郑成功 开国大典会场示意图. 英语翻译 谁知道这篇文章? 开国大典示意图开国大典课堂作业本 关于革命英雄人物的故事要在400字以内,3分钟内能读完的! 谁有福州西湖公园寻秋的作文?描写西湖秋天景色的? 开国大典的示意图在哪
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘