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

用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

 

Native和Web过时了,企业级移动开发流行用Hybrid App 与EverNote竞争?谷歌Google Keep浮出水面 又一次跨越:著名3D游戏引擎Unity版本更新 Feedly团队:自研后端平台或将开源 StackMob的诱惑:16小时,山寨一款移动App “云”筹帷幄 开发者必知的5大SaaS在线服务工具 超350个政府项目托管在GitHub 政府开源会成主流? Kinect for Windows SDK 1.7正式发布,支持3D建模 SafeNet与风河系统联手推出VxWorks嵌入式系统软件货币化方案 Windows Server 2012中的动态负载均衡 Google等互联网公司将成为创新中心? 在Hadoop的战争中 MapR获新一轮3000万美元融资 初创公司DNNresearch:谷歌科技帝国的新“基石” 创业了,我们该如何起名? 乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 Ridiculous Fishing:游戏遭遇山寨如何一雪前耻 老游戏的今天:Doodle Jump每周进账2万美元 剑指Evernote 谷歌正式推出Google Keep 开源的JS MVC框架 Backbone.js 1.0发布 如何将反馈表中的若干表单内容发送到指定的邮箱并同时抄送到另一信箱? 使用游标时出现 -1002 的错误如何解决? 数据的初始化问题。 [求助] 如何用DirectX显示YUV格式的图像 我在安装Red Hat8时说一个文件坏了,但我有源代码,怎样编译成成哪个文件。 桌面内容不见了! 怎么获得当前目录 快救命啊高手们、菜鸟兄弟们,偶遇到sql语句问题啦,怎么对数据库插入数据啊100分给你 一个很白痴的问题,不过我实在搞不定,关于dbGrid的 一个关于数组基本使用方法的问题 请问如何把数据写到用OleContainer控件建立的WordApplication文档里面和如何从里面读取数据? 重回pb论坛,庆祝一下! [初级]请问如何在WebServer连接DBServer的Access资料库? WIN2000的MSDOS下无法输汉字 win2000p的老问题了,关于虚拟内存,页面文件 如何删除sql的日志文件!! 快救命啊高手们、菜鸟兄弟们,偶遇到sql语句问题啦,怎么对数据库插入数据啊100分给你 datagrid的问题,请大家进去看看,帮帮忙!在线等待 各位高手 用什么方法可以拖慢我的机器 在delphi中如何动态建立oracle的存储过程和触发器? 刷新父窗体的问题 请问:float数据的转换(见文章) 高手,救命啊!!在線等! 急问:win2000 的sp3可以打在win2000高级服务器版上么? 急死人了!!!!! TMNHttp组件的post方法的使用问题? 快救命啊高手们、菜鸟兄弟们,偶遇到sql语句问题啦,怎么对数据库插入数据啊100分给你 怎么样在bcb5里做一个类似于资源管理器的浏览界面? 请教数据类型转换的完整答案 马上结帖! oracle8.1.7支持全文检索吗? CMap<int, int, CString, CString> m_cMap 如何方便地找到函数的定义和包 为什么IdPOP3一用Retrieve方法就出错???? 在程序中无何派断本地机是否装了OFFICE中的word,并且如何获得它的路径(.exe的完全路径,我要调用这个程序) 请教资源文件问题 insert 语句~总出错,从一个表中查出来的数据插入到另一个表中~大家看看 String的长度最大有多大啊? 急切盼望 一个小问题 急待解决 请问关于套接字发送文件的问题 请问哪里有JDBC 2.1 下载? 当我打开evc的添加控件时,没有如何控件供选择,怎么办? 关于Calendar的问题 能引起数据库超时已过期的原因是什么? 请大家帮我一把好吗 怎样得到浏览器的分辨率? winForm内存占用? 为什么老说我找不到这个Method? JSP中的javabean应用。 如何用javascript调用vb的dll? 我是莱鸟,对你们来说是一些简单问题,可对我很主要,请大家赐教! thewater may take the bridge away怎么翻译 Many owners feel their pets understand them,for animals are_____to sense anger and sorrow.我选的是easy,答案是quick什么叫迅速感知悲伤吗~ i'm terribly sorry的回答是什么,not 开头的., 2.I think it~s impolite to _____others .I agree with you.A.shout on B.shout at C.shame at3.Jim,why do you look ____?Because i worked for a few hours last night ,it~s very_____.A.tired ,tired B.tiring,tiring C.tiring tired D.tired tiring4.Would you li you ought to spend more time on english改写 I'm terribly sorry,()I can't go hiking with you this Saturday.回答:It's OK.We can go together next time.A.so B.but C.and D.or正确答案:B请说出选B的理由和上半句的翻译! I think it silly of you not to forgive othersI think __silly __you not to forgive others for their mistakes. it's of 第一个空为什么不是it? 这个不可以符合主语+think it+adj.of/for sb. to do sth.吗? 英语试题,请给出解题详情.Sarah,hurry up.I am afraid you can't have time to _(change)before the party. please find attached 中的attached It is very____(think)____(介词)you____(think)of others first. 最近的亲属 THE NEXT OF KIN怎么样 英语检查 Please find the attached invoices which revised the terms of payment 有错吗 填上适当的介词:I think it's impolite to shout _______ others . Never give up,said,is to insist on victory是什么意思 Attached please find our offering prices.请问find怎么理解? dear student my name is bob .live in toronto ,canada .and i want a pen pal in chain .i think chaindery student my name is bob .live in toronto ,canada .and i want a pen pal in chain .i think chain is very interesting country.i am 14 yerys old my birt Emergency Contact Person是什么意思 please kindly find attached artwork Dear students,My mane is Bob.I live in Toronto,Canada,and I want a ______ (1) pal in China. next of kin.translate to Mandarin.Can "Next of Kin" be father or relative. 怎么具体理解这句话? Attached please find our offering prices.句中的find做什么成分,该怎么理解? I live in Toronto Canada.的中文 stonehenge was built slowly over a long period of 请问:we can hardly afford wasting time.请问这里的afford后面可以跟doing吗,和afford to do有区别吗? My name is Jane.My home is in ( ) A. Toronto,Canada B. Canada,Toronto next-of-kin是什么意思? 我想去度假,但是我没有时间.(afford) I live in Toronto Canada.这句话里为什么把Toronto放在Canada前面?请说明大小地名的用法 I usually spend more time on english study than____my brother.a does b do c did d have done选什么啊这个题? afford的一个句子,i can't afford the time talking with her.这个句子里为什么用talking with her.能用to talk with talking with her在句子中又做什么成分?急用. The tall building ____ when the earthquake happened.用shake,shook,is shaking来填空 Now ,i spend more time on my studies than e___ before Can you cone to my birthday party?——I'm sorry ,__I can't come.A.but B.and The houses,building last year were destroyed by the earthquake 改错 The page cannot be displayed because an internal server error has occurred? The Most Widely Used Languages-English 初三英语作文 80词1.世上有3000多种语言,其中英语应用最广泛.2.中国现在有越来越多的人们学习英语.3.英语变得越来越重要.围绕这3点写一篇80词 初三水平作文. ----May I take it away?----___________.A.All right B.That's all right C.That's right D.You are welcome Access Error:Site or Page Not Found Cannot open URL 远程连接硬盘录像机的WEB界面时出现的提示!局域网内访问的时候没问题,通过VPN在家里访问公司就会出现这个提示在家里访问公司别的服务器和软件都 ”contact"怎样翻译? L want a pen pal in China >(改为同义句) This page cannot be displayed due to an internal error.释成中文This page cannot be displayed due to an internal error.You can provide the following information to the administrators of this site to help them solve the problem:Error: Unable to con Remove current emergency contact details 求精确翻译! I want a Chinese pen pal改为一般疑问句 Have you not only you can't do that Submission declaration,这个应该如何翻译啊? what,pen,a,pal,China,in,I If you have a holiday 英语翻译:diligence package for dtc submission we think it our duty to help others为什么不加IS啊we think it is our duty to help others 翻译急用im okey thank you not doing so much right now have summer holiday so just relaxing See an accident on he road应打什么电话 翻译:we are hanging out in here there's a bridge [ ] the river.A;aboveB;nearC;acroosD;through必须有理由 i'm so sorry to = i'm terrible sorry to 回答的对的另外加100分 the tiger _____ (keep )in a tiny cage and can't move 首字母填空 In many situations,a tiny thing can be c______ to an important event.指千里之堤溃于蚁穴 I spend __ of my time on road.(A.most B.many C.more)为什么选A 此句中,keep 要改成被动语态吗temperature________( keep )between 2 and 10.此句子中,keep 要改成被动语态吗?是 keeps,还是is kept? the bridge is a_______the river(首字母答问题) 35.—Hey ,look where you are going —Oh ,I’m terribly sorry ,________ .A .I’m not noticing B .I wasn’t noticing C .I haven’t noticed D .I don’t notice最好有说明
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘