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

用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

 

用卫生棉杀敌冲关!两个高中女生的创意游戏 专访《Java程序员修炼之道》作者Ben Evans:保守的设计思想是Java的最大优势 Google收购Firebase 帮助程序员快速开发出移动App和Web App 微信支付开发关键点技术解析 游戏任玩!开源虚拟现实头戴式设备Open DoVision MDCC大会召开倒数10天 看Twitter、Facebook和国内“BAT”三大巨头最新动态 《近匠》Wijmo 5 CTO:从Web到移动,我的25年编程生涯 重复充电、防丢失!多功能智能行李箱Bluesmart 【设计经验传承】图标设计初阶要先型 “光年”光纤路由 支持千兆网络的家居中心 MDCC 2014移动开发技术与平台峰会:知名应用技术大牛传授实战经验 Unity生态圈将变?EA前总裁接替创始人任新CEO 第九届中国Linux内核开发者大会在京举办 《近匠》爱拍SDK:手游录像分享 爱拍才会赢 Mark走起!iOS开发最常用的第三方库 【CTO俱乐部读书会】《人件》译者肖然:软件工程是社会学 错过就要等一年 深圳微信开发者大会不容错过的十大理由 【干货】国外程序员整理的 C++ 资源大全 一周消息树:被投资人“送”入看守所,创业人汪洁有罪还是无罪? 聚焦五大主题 Atlassian Summit 2014精华PPT下载 2014中国移动开发者大调查第四期获奖名单曝光 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(一) 【特惠倒计时两天】参加深圳微信开发者大会赠书及全套讲师讲义 《英雄联盟》支撑最高750万同时在线用户的聊天服务打造 深圳云软技术副总黄榕振:招行信用卡微信公众号开发高级篇 来自未来的你,MDCC 2014新奇智能硬件揭秘 Twitter开源云环境时间序列数据断层检测工具BreakoutDetection 浅析Facebook软件架构:Tao和BLOB的实现原理 【图文实录】CTO俱乐部:走近Keen Team,走近智能设备Hack 2014聚合开发者大会(JDDC)在京召开 专访腾讯反病毒实验室:揭秘TAV引擎,哈勃分析系统两大利器 《我们共同的容闳》专辑明天在央视国际频道播出 程序发布问题,大哥大姐来帮忙呀 在线咨询:用ATL做ActiveX控件,能不能让控件是个多文档界面程序。 谁记得这道题是怎么解答的? 申请www开头的域名都是收费的吗 苦恼!考研还是工作! 短信产品:CMPP接口、SGIP接口、CMPP代理网关、计算机与手机连接的短信群发 你是不会知道的!! acrobat pdf 不能打印 怎样使程序发生异常时不弹出带红叉的窗口,异常可采用日志文件记录? 我下载了mysql-3.23.57-win.zip 安装在win2k server下为何不能用? 妹妹求救:用什么软件可以编辑.dll文件! 帮帮忙 高分求VS.NET2003正版中文版下载 XML数据导入到SQL Sever数据库 IIS运行不了ASP.NET文件,怎样做呢? oracle8i安装问-在线等待-急 怎么开启dbms_output的功能。 如何批量运行插入语句??? 数据库输出的问题 关于DELPHI 与 .NET 怎么样可以使CStatic类定义的对象变成灰白的,即disabled掉,不准在资源中改。 请教一个关于文件的问题~~ 如何将UTF-8的编码变成gb2312的编码 为什么用ADOQUERy进行查询,时间超过40秒时便出现超时连接 说说 中秋你们那是怎么过的? 两天都没摆平的问题,各位帮忙看一下。我给大家唱小曲儿啦:) 向大力请教! 一点小问题 车票精确打印 深夜,你会为谁开着手机? 新手提问:日期时间无法完全显示:? 如何把位图,字体,图标资源保存在Dll动态库中,以便让不同的Windows应用程序共享 散分了300分~高兴,朋友的网站访问者有分~不够在加!!!!!!!!!!一定给分! 寻找网站后权限的解决方案---在线等待 有没有达人可以讲解下加密解密 请教高手:类的构造函数!谢谢 求一个从*.properties文件读取数据的javabean c/s部署问题 GTK2.0安装的问题??? 中国最好的免费影院--good 我的电脑打开,菜单栏没有在标题题下面,是怎么回事啊,在线等啊. windows 2000 server下能否安装oracle734 (急急-在线等)一个多条记录登记、保存问题 這樣的觸發器怎麽寫? 请问是考计算机等级考试好还是考中级程序员?以及相关书籍? 小数点后位数的问题 vb.NET文本框數據源綁定問題,各位幫忙了,小菜鳥領教了。希望你提出寶貴意見。 求助! SQLServer事务日志 这样的网友都该死!! 函数定义 若对X中的每个x,按对应法则f,使Y中存在唯一的一个元素y与之对应 那为什么抛物线算函数呢 那它是什么类型 世界上人类真的有心灵感应吗 当a 如果a<b<0,下列不等式中错误的是( ) A.ab>0 B.a+b<0如果a<b<0,下列不等式中错误的是( ) A.ab>0 B.a+b<0 C.b分之a<1 D.a-b<0 关于一元二次方程的题目y=x+b并与反比例函数y=k分之x(k≠0)只有一个公共点直线y=x+b过点A(1,0),并与反比例函数y=k分之x(k≠0)只有一个公共点,则K的值等于多少. 什么是心灵感应?什么人之间会产生心灵感应?最近发生的一些事情让我相信了有心灵感应.但我始终在想那到底是一种心理暗示还是真的有心与心之间的沟通呢?希望朋友们能给点意见, 知不足者好学,耻下问者自满,说一个成语 1.函数f(x)=(x+3)|x-1|地单调区间共有几个?2.已知f(x)=ax^7+bx^5+cx^3+6,f(-2)=10,则f(2)=? 已知X=2,Y=-1是方程组AX-BY=3,2AX=3BY=15的解,求(A+B)平方的值 已知方程组2x-3y=3,ax=by=-1与x+4y=7,2ax=3by=3的解相同,求a的平方-b的平方 计算;根号15÷[﹙1/根号3﹚﹢﹙1/根号5﹚]=? 美媒揭白宫工作准则:不让总统为坏消息叙利亚总统警告:外国停止支持反对派才杨澜提问郎朗\"工作有何意义\"惹争金华餐饮业遭遇寒流 高档酒店与农家乐奥巴马医改网站安全漏洞细节曝光 内测金华看守所推启迪教室 给在押未成年人学者称一线城市过高生活成本让人幸福感能源局发布页岩气产业政策 加大财政扶戴尔完成249亿美元私有化交易 从纳在未建交国书写传奇——记旅居巴拉圭侨爱尔兰政府资深顾问哈利根:中国梦属于SPI绿能宝战略投资宜维租车国内油价再次下调 今年首次“六连跌五粮液前董事长王国春:高端白酒的出路当今中国七大荒唐,不要太现实!月入3000也“小资”,信用卡助力生印度宣布与优于现金联盟达成新的合作关恐怖!“太空飞碟”旋转杆断裂!19人美团网王慧文:O2O将颠覆商业地产印度傻眼:被我高原超级工程扼住咽喉?“途牛宝贝”第二季招募启动 体验之美国院线的运营模式凌殇传六道帝尊时久记无聊游戏之闲话江湖中华玄道无限之入住万神殿翡冷翠的时代网游之僵尸化为吕布点苍茫宠物小精灵之夜旅比爱情更爱情古塔历史文化公园旅游通远门旅游金山城市沙滩旅游金堂云顶山旅游峨秀湖旅游乐中游乐园旅游浮烟山旅游坊子炭矿博物馆旅游密云水库旅游卫青墓旅游白娘子爱情文化园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘