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

用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

 

语音技术现状:四千万突破语音产业的技术壁垒? 万维网联盟W3C推荐Web性能API 微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 我得代码有错误吗!!在线紧急等待 如何用Java访问微软的DDE Server? 在windows xp中怎么建立虚拟服务器呀? 解决问题,马上结贴 xp風格的問題 请问如何让一个表格的边框的宽度和表格内部的线的宽度不一样? 请问wsad和eclipse哪里有下呢? 如何理解下面的程序段 调查:你(单位)愿意花钱买服务端控件吗? 为什么有些网页是繁体字! 我终于知道什么是英雄了! 关于快捷键。 一个丑人的自白(爆笑) 转载 如何实现信息反馈? 怎样使DataGrid固定显示8行??? 一个简单的问题,关于CListCtrl.. C++文件流的怪问题,竟然不能再次打开??? 怎样在win2000 专业版上使用PHP Linux下如何知道有哪些端口未被使用?? 共享上Internet网的另一台机为何一定要配上DNS服务器地址? 来共同研究开发 文件的变量名拼写错误的检查。。。 人生交叉点, 大家进来帮帮忙 在线等待急急!在超链中有的什怎么传不过去? pb还有出路吗? 如何知道有哪些端口未被使用 请教想在页面里调用js文件达到图片轮显效果 如何在动态库中获取调用该动态库的程序的文件名称? 如何获取灰度图中各象素点的灰度值?(在线等待) 请高手帮我解决这个离散余弦变换(DCT)的问题。高分相送。 求助:sql语名查询? 怎么样在输入数据后立即更新表格? 怎么在tablename是一个参数的表中取字段值? 触发器问题?触发器无法通过确认! 请问如何将字符1转化为数字1呢? 怎样在状态栏中显示页面载入进度? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? 菜鸟的一问,请帮忙!! 请帮帮忙指一下路 上一个问题还没解决,所以只有找其它的办法。我要实现直接把邮件发到对方的SMTP服务器 类型转换? 现在有个NCNE国家信息化工程师认证,有没有用? 当数据库使用AddNew--Update插入数据时sql server出现进程死锁,请问为什么呢? Oracle8i技术问题 变量传递问题,急! 请教几个简单的函数(菜鸟级) 哪里能找到《实用软件工程》? 哪里有VisualJ++下载?谢谢! 在linux下,要在一台机上同时录音和放音,应该怎么做? 连接问题 水蛭用什么方法可以杀死 大象为何不长毛? 第二套天空套颜色怎么选 蚂蟥可以杀死吗? 单独行动——(填带马的词语)人马众多——(填带马的词语) 扩充实力——(填带马的词语) 草花头下边一个内字读什么? 移动彩钢房多少钱37平焊出底座吧1 有谁知道武士刀伞(侍伞)的“螳螂脚”是什么?在淘宝上看到的侍伞,宝贝介绍里有.螳螂脚是什么?百科里也没查到. 黄鹤楼送孟浩然之广陵描绘了一幅什么样的景象具体点,也不要太多字,就2,30个字的样子 Michael is a very happy boy 改为感叹句 蟒蛇皮哪里有买 野生熊猫有没有天敌? 5mw激光模组能接上250mw激光二极管吗? 蟒蛇皮可以买卖么 天空6套颜色怎么选 激光二极管,根据卖家提供的一些参数怎么确定该型号激光二极管电流,电压参数HL7851G - 785纳米,50毫瓦,Ø9毫米,A 型引脚,Hitachi 激光二极管,例如这个 大学高数双纽线的旋转问题双纽线绕极轴旋转,请问哪个是极轴啊要是用坐标表示的话,又是绕什么旋转啊 黄鹤楼送孟浩然之广陵描写了什么的情景 什么是激光模组?什么又是激光模块,它和单个的激光管又有什么区别? 求一个双纽线的图形,并且希望得知双纽线的图形应该怎么确定,因为题目中双纽线的方程总是变得,是应该背吗这个双扭线方程是(x^2+y^2)^2=2a^2(xy) 天空颜色选择? 激光二极管和激光模组怎么用?我看老外弄的激光枪酷毙了还可以点火柴.网上说需要激光2极管和模组怎么用?怎么组装?激光二极管和激光模组是一样的吗?说明白点好的加分 世上真的有唐伯虎这个人吗?来帮帮忙 黄鹤楼送孟浩然之广陵写的是什么季节 A boy can swim very well.A boy swims very well .这两句改成过去时怎么改呢? 某冰箱厂九月份计划生产一批冰箱,上半月完成计划的七分之四,下半月完成的和上半月同样多,结果超过计划150台,计划生产冰箱多少台? 草花头加个的字 是什么字?菂 字 怎么打..有什么输入法可以打出这个字.. 小石潭记 :第一段写小石潭的位置,有什么作用?为什么“闻水声,如鸣佩环”?作者观鱼的心情是怎样的?(用原文答)全文没有一处不在写水.请你分析一下作者是从哪些角度写潭水的特点的? 黄鹤楼送孟浩然之广陵写了一件什么事 草花头的字,一定要10个 小石潭记为什么“闻水声,如鸣佩环”? 大熊猫有天敌么?如果有那是什么? 熊猫有天敌吗?在动物世界里,很少看到熊猫与其他动物在一起?为何 为什么小石潭记的水声“如鸣佩环” 大熊猫对付天敌 Chinese doctors believe that they should [eat more yin foods like tofu.]对括起来的提问求了 急 求定积分,定积分,上限为2,下限为-2,∫I1-xIdx1-x 的绝对值 螳螂的脚有什么特点及作用 《黄鹤楼送孟浩然之广陵》是谁写的? 求此定积分, 观察知了的作文 熊猫的天敌是什么? 巨蟒跟鳄鱼 自然界里哪个厉害巨蟒跟鳄鱼 还有其他的动物 他们谁最厉害呢 以前看过一个视频 蛇把鳄鱼吃了 但是是一只小鳄鱼 如果是大鳄鱼的话结果会是什么样?最好有狮子跟老虎 等等等 抓知了作文400字 黄鹤楼送孟浩然之广陵主要写什么 我房间好多飞蛾啊.怎么办最近我房间好多飞蛾啊.后面发现是门框角落有个洞.里面飞蛾窝,我把洞堵塞住后.飞蛾就会从墙上各种各样的缝隙中飞出来,晚上开灯后就会很多飞蛾在灯边上.太多啦 知了的叫声,我要找些知了的作文. 上面一个草花头,下面一个在字怎么读 飞蛾弄死蜜蜂飞蛾和蜜蜂关在一起 两只蜜蜂都死了 飞蛾还活着 我想知道是什么情况 写一篇知了的作文(多写外形、叫声)我是捡到了一只知了, 草花头加个及读什么? 我家就我一个人的房间里有好多好多的飞蛾,为什么房间内会出现许多飞蛾?要怎么办呢? 大象长毛了吗? 草花头下加个弱读什么 怎么弄死飞蛾 最近看到一本书的封皮是《大象为什么不长毛》才发现自己不知道大象为什么不长毛.听说是 方舟子 写的.没看这本书但就想问问有没有知道的大象为什么不长毛? 草花头 加个 予 读什么 晚上房间很多飞蛾怎么办? 为什么大象不长毛? 在一个圆柱形木桶里装满水水中淹没这一个一个直径18cm的圆锥高18cm的圆锥,当圆锥取出后,水面降低多少 有氧运动有助延年益寿美媒:中国央行显露收紧货币政策意向中国将任下届贝尔格莱德书展主宾国世界最高狗离世 站立高过2米(组图)日媒:日菲被中国盯上因与华无共同陆地安倍在赌他能把中国吓住男子把10公斤黄金扔进垃圾场 当地掀美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局日驾校人性化服务多 学车之余可美甲还美国家安全局称奥巴马对监听默克尔一事美国处方药价格高昂 民众被迫违法购外医改网站技术问题百出 奥巴马上教堂也阿根廷举行中期议会选举 女总统执政联阿根廷举行中期议会选举 执政联盟面临西班牙巴塞罗那发生列车脱轨事故 造成马达加斯加大选结束 各方观察团认为投格鲁吉亚总统大选启动 共计23名参选美国航空公司改签费攀升 消费者“斗智美国旧金山湾区万圣节前多起驾车枪击 韩“独岛”宣传片擅自使用日剧画面 视从广东姑娘到“新疆古丽”安倍打算访朝示好?中国海军将派舰艇参加“环太平洋201关系整个社会的价值取向乌克兰埃及新总统走马上任跨境 e 贸易:让郑州与世界在线共舞建设党员联户工程市业余足球联赛结束小组赛性生活频率多少更健康?兴业银行推NFC手机钱包三个和尚没呀没水喝推进新型城镇化的三维要求哲语漫画天天小贴士头孢+饮酒,心肌梗塞?桑巴领地 探戈抢戏?时刻拧紧“总开关”手足口病与疱疹性咽峡炎有何区别?折翅“雄鸡” 还能翱翔?湖南物流总部投入运营电击伤,致命危害大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘