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

用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

 

实例剖析:如何用Foundation For Apps创建完美Web应用 【舌尖上的CTO】兄弟肉夹馍的开发运维一体化 开创未来的关键:是什么造就了硅谷?(下) 安全漏洞影响2.5万iOS应用?AFNetworking维护者发布回应 《近匠》专访AbleCloud李海磊:IoT平台求变 腾讯、京东、微软等设计专家齐聚,探讨移动应用体验创新设计 TIOBE 2015年5月编程语言排行榜:微软系语言份额上升 《Hadoop核心技术》作者翟周伟 :我与Hadoop的不解之缘 云集百位核心专家 中国云计算大会演讲议题公布(表) 细品这杯香浓的咖啡——阿里中间件高级专家沈询的Java之旅 超图研究院院长李绍俊:创新2.0时代的平台软件研发体系 优麒麟(Ubuntu Kylin)15.04发布派对在天津成功举行 【CTO讲堂】以API为核心的移动应用云大发展时代 游戏设计的迭代误用:从半成品到概念修正 成功的社区在于拥抱变化——知乎创始人周源专访 优化UITableViewCell高度计算的那些事 国外iOS大牛:开发Apple Watch应用我犯过的错 云上Java System Profiling与Debugging——蚂蚁金服观察与实践 搜狗商业平台Java技术实践 Java在电信软件领域的技术实战 关于Java框架Vert.x的几点思考 Java在游戏服务器开发中的应用 Java框架研发思考 那些年,Java程序员用过的开发工具 Java内存模型的历史变迁 Java 8与Apache Ignite Java开发与技术挑战——关于技术的技术思考 专访唯品会架构师肖桦:做编码的架构师 越来越“简单”的Java 我的Java!越过山丘 专访沙梓社:做个“Think Different”的技术牛人 编写数据库应用程序时出现error:BLOB has been modified。请问如何解决? 编译出问题了啊!??! 一个不该在这里出现的问题.. 但我实在找不出比这个更厉害的高手了..sos.. 有错吗??? 谁知道VS.NET中文版的CD-KEY? 怎样把用autocad14画的图给加栽到一个基于单文档程序中!! 一个很老的问题,但我不得不问,我很为难呀 怎样改变一个CPropertySheet的字体? 很幼稚的问题...(肯定给分) 看书发现的两个概念性问题,可能很简单,请说的详细一点!多谢帮忙! 用UDL连接数据库的问题???奇怪 哪位老兄有修改网卡mac地址的冬冬? 高分寻找:*.mp3转*.rm的软件。 为什么不能执行?高手请进! Access导入到SQL,可以导入ID字段的吗? 头疼的问题!!!!!!!! 还记得那首老歌吗? 如何获得窗口任意位置的被选文本 先有编译器还是先有语言? 怎样使StringGrid中的某一列不可见? 如何遍历select下拉菜单中的内容,并显示在另一个select菜单中?(在线等待) 请高手指教:怎么创建动态链接库,怎么用动态链接库,我是一个初学者,唯有的50分全送出去请教此问题 有谁能帮我?我用OpenDialog找开数据库文件,只能打开一次。再次打开或打开另一个数据库文件,就会地址出错,why? 转让书刊 this->GetParent()->ShouWindow(SW_MIN..)最小化以后,却不能点击任务条还原,怎样还原 JBuilder如何产生Make文件? 如何使listbox的两列显示对齐? 如何在自己的主页中添加代码??用来污染IE的,到底是加在哪个位置??//最好写具体些!!! 关于图片存入数据库的问题 请教大量二进制数据在内存中的存放(马上给分) 讨论:有关tomcat的解释顺序的问题. TechnoFantasy 请近来,还有100分哦:) 打印问题 强烈建议在文档中心增加C++ BUILD!!! 对于同一个SOCKET,能否起多个线程同时读、写呢?如何实现? ??!!!有急事相求 谁知道如何在自己的程序中建立象IIS那样的meta-database数据库结构? 怎样在数据库连接关闭后读出数据? 你知道扩展名为img是什么文件吗? 请问如何在Delphi中实现 AutoComplete(自动完成) 的功能?急!急!急! 请教一下在MDI的程序中pmyView->GetParent()->GetParent()->..... 都得到了什么?? 好奇怪的初始化问题。 一个RANDOMACCESSFILE的问题 急急急!!!VB中如何 实现多行删除表中数据???? 有关注册表的问题 ASP中用ADO连接SQL Server2000的连接字符串怎么写? 在画布上怎么实现滚动条 急~~~如何从文件中取值赋给动态数组?~~~~在线等待 到哪里能够下载 BCB6 Update 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 马克思主义哲学的直接理论来源?A 古典政治经济学B 黑格尔辩证法C 费尔巴哈唯物主义D 空想社会主义请问选不选A呀.这是多项选择! 什么叫劣币驱逐良币,有什么现实意义吗 我的250v~10a 的插线板 可不可以在美国110v的电压下使用?另外这个插线板可以直接插在转换插头上吗? 马克思主义哲学的直接理论来源是什么选择题A古希腊罗马哲学 B德国古典哲学C十七世纪英国哲学 D十八世纪法国哲学知道的告诉我谢谢 劣币驱逐良币现象要说明什么问题是不是只有在金本位的情况下会出现呢?即使劣币驱逐良币又能怎么样呢?为什么劣币会驱逐良币呢,如果不是金本位是不是还会这样呢,毕竟货币不是金银其价 The weather will be____tomorrow A rain B snow C cloud D windy (解释一下为什么,拜托了) 单选.马克思主义哲学产生的直接理论来源是( )A.古希腊罗马哲学 B.英国唯物主义哲学C.法国启蒙哲学 D.德国古典哲学 劣币驱逐良币,谁能帮我解释一下,谢谢 ( )What will the weather be like tomorrow?It ---A.rains B.is rain C.is to be 马克思主义哲学的直接理论来源是什么 制作临时装片时,染色会对细胞产生什么影响 小学拼音中前鼻音韵母有几个 已知:x/6=y/4=z/3(x.y.z均不为零)则x+3y/3y-2z等于多少?3Q 请问iPhone4手机下方左右两个是扬声器么?我的怎么只有右边那个有声音啊?左边那个难道是话筒? 请问一年级小朋友学的拼音里面,鼻音韵母是什么 马克思主义哲学的理论来源于 如何将iphone4的手机号码导入另一个iphone4? 电源插座板,额定电压"250V~",能在美国用吗?主要是这个"250V~"的"~",意思是向下兼容吗?还有一个电池充电器,额定电压"220V",在美国用的话是不是会功率不够,需要充更久的时间?或者是根本接上 6分之X=4分之Y=3分之Z(X,Y,Z均不为零)则3Y-2Z分之X+3Y=?, 英语:What's the weather like today?lt's______.A.rain B.windy C.sun 给孩子辅导作业,月 用 正 心 山 十 片 门 广 方前鼻韵母的字有:后鼻韵母的字有:翘舌音的字有:我想知道什么是前鼻音 已知x/3=y/5=z/6且3y=2z+6则x=___y=____ 请问我在美国买了电器,电压是110V的.国内有没有110V升220V的变压器? 插座上标有“额定电压250v-”是什么意思?一个万能插座,带USB的,我是想带到美国去用,上面写着如题的话,请问是只能在250v下使用么?还是说250v以下都可以?那带到美国能不能用啊?有人说会有充 已知x/3=y/5=z/6,且3y=2z+6,那么x=x=多少,y= 1直接开平方法解5(1+100分之x)²=125 用配方法解-2x²-x+1=0 公式法 2x²-6x-3=0因式分解x(3x-2)=2(3x-2) 如何区分韵母中的前鼻音,后鼻音,以及什么是三拼音节 加减消元法解方程{4x+3y=7{2x-5y=5﹛2x-3y=5 (2x+3)∧2-(1-√2)∧2=0用开平方法怎么解 插排上写着16A~我新买个1800瓦的吹风机,不知道这插排能承受住了不?250V等于多少瓦啊? 二元一次方程{2x+3y=-1与{4x-y=5加减消元法怎么算 在一本书上看到说纸币可以避免劣币驱逐良币现象,为什么能这样,劣币驱逐良币的意思我是明白的 但是我就是不明白纸币在中起什么作用 可以避免这个现象 插排额定电压250V 额定功率2500W或4000W 额定电流10A或16A 那么 额定功率是指负载的输出功率不可超过250RT是不是说负载的输出功率不能超过2500或4000W?还是输入功率 全部马克思主义学说的理论结论是?A科学社会主义B马克思主义哲学C马克思主义政治经济学D无产阶级革命的...全部马克思主义学说的理论结论是?A科学社会主义B马克思主义哲学C马克思主义政 1.(1+3+5...+99)-(2+4+6+...+100) 是否等于—50(讲解) 把一个最大功率为3000瓦的插排接在家用的250V 10A的插座上后,能安全使用功率大于2500瓦的电器了吗?家里的插座都是最大2500瓦的(有时候超过1500瓦就不敢用了),那该怎么处理才能安全使用大 急需论文一篇,题目为“论科学发展观的哲学依据” 马克思主义哲学的无产阶级是什么意思,其不是代表工人阶级吗? What's the weather going to be like next week?It's going to be ____. 用马克思主义基本原理的哲学理论,结合《十二个五年规划》阐述科学发展观用马克思主义基本原理的哲学理论,结合《中共中央关于制定国民经济和社会发展第十二个五年规划的建议》阐述 已知方程组4x-3y-2z=0,x-3y+2z=0的解x,y,z都不等于0,则x:y:z= What do you think the weather is going to be like next week?中文意思?like next 伤感,青春的短语 已知方程组:4x-3y-2z=0;x-3y+2z=0,的解,x,y,z都不等于0,则x:y:z=_______ what's the weather going to be like next week?lt's going to be___ a.wet b.dark c.long d.far 等比数列{an}中,前n项和7n满足S1,s3,S2成等差数列.求…①该数列的公比q.②群a1-a3=3+求Sn 已知方程组4x-3y-2z=0,x-3y+z=0,z≠0求x/z,y/z的值 what is the weather going to be?it's________A raining B rained C going to rain 马克思主义哲学论文 分析论述以人为本思想的哲学理论基础谁知道 哪里有 非常急用 四个五怎么等于二 解方程组x+y-z=0,2x+y+z=7,x-3y+z=8 马克思主义哲学是无产阶级的( )、 认识论和( ),是马克思主义的理论基础. 小米手机状态栏上的图标什么意思? 方程组x-y+z=0 ,x+y-z=1,2x-3y+z=1的解为 用开平方法解 4x²-7=0(2)3(1-x)²=12(3)(2x+6)²-8=0 四个7怎么等于5 手机屏幕上一个信封样图案右下角一个F字母是啥意思 用直接开平方法,解关于x的方程,x²-a²-4x+4=0 手机小米2S,昨天刚换的屏幕,490,上面牌子标志是小米的标志,但我发现和原来的屏幕颜色不在一样,请问会假吗?是不是原装的呀? 电源是220v,而接上插座上面的电压是110v电源箱插座上面的电压用万用表测得的是220v,再插上一插座,测得插座上面的电压变成110v,卸掉插座,测火线跟零线之间电压仍然是110v,是怎么回事?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘