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

用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

 

用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 用DELPHI实现位图显示特技 用DELPHI中Canvas特性开发图形软件 用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 在多媒体文件中批量抓取图象-Delphi资料 怎样读出不同格式图形的高和宽-Delphi资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 大家进来看看这个效果怎么做! 哪能找到关于网络侦听的源程序?用VC做的,谢谢! 九月份就大四了,要分方向了,大家给点意见? 如何禁用ie选项中的“显示友好的http错误信息” 接了一个小小的酒店管理系统,问一下,值多少钱?(可别说我做坏了市场:)) 程序员考试的资料在哪下载?(.pdg的文件用什么阅读?) 我下载了JDK1.4.1_03安装以后JDK目录里没有1.3的Javac文件呀? 新手的问题(asp的源代码): vector&父类子类的问题 单片机如何实现霓虹灯控制,谢谢。 ASP操作oracle数据库,是不是只能用SQL语句实现 哪里有介绍NAT(网络地址转换)原理的网站? win2000下,的计算机管理--磁盘管理--选中c盘--右键--属性--工具--查错,选中扫描并试图恢复坏扇区........... Session会无故消失!! 请大家注意FAQ的提交! ---如何在linux下编译IDL文件--- 求Rational purifyplus for Linux 的license 简单sql语句问题 VB编译好的程序为何不能在没装VB上运行? vector&父类子类的问题 有关三角矩阵乘法 如何编写ASP类? servlet调用Oracle,如何使用jdbc直接进行连接?高分相赠 我的2000 pro 总是出现超频保护 大家快来接分了!!!! 怎样让一个窗体总是在桌面的最前面,不会被其他程序的窗口挡住? 送分啦 dshow的入门级问题,请指教 那种开发工具开发效率较高 xp的问题 "处理中的数据超过允许的极限"是怎么回事? 为什么我的.net在建web工程设置断点后无法调试,加上了button后无法显示。谢谢了。 我现在大概有10万资金,可以做什么投资回报比较大呢?? 请教关于动态控件内存释放问题~(老问题新谈,高手请进)~~ SQL的一个问题!(高手请进!!!) 发个笑话,爆笑(转贴) 通过远程视图不能修改记录 cet-8跟英语专业八级是一回事吗? 关于图象处理 急急~~!!在哪儿能下载Flash插件呢!! 如何设定一个窗体的弹出广告在找开后自动关闭 水晶报表一对多问题?? 一个关于表单提交的超级简单,超级奇怪的问题? 怎样实现vb6中datagrid控件的打印 SQL select 语句如何对images进行操作? 怎样实现vb6中datagrid控件的打印 水晶报表一对多问题?? 使用oracle传递日期型数据问题 好好急啊 如何当数据集的纪录移动的时候,触发一个事件,以响应我需要的作的工作?? 有关括号配对,在先求救! c#中制作安装程序,如何包含.net框架程序。 运营商怎么连接因特网的是靠物理线路(光纤)还是服务器和服务器之间传送数字信号(无线)类似手机通信求懂的人回答 不懂的别误人子弟 如果(x+a)(x-a)=x^2+bx-6对于x的任何值都成立,那么a、b的值分别为a=3,b=5 B.a=3,b=1 C,a=-3,b=-1 D.a=-3,b=-5(x+a)(x-2)=x^2+bx-6 = 刚才题目打错了 该怎么写生活日记 通信基站里有个叫DF 的是什么东西呀 已知a^2+b^2=1,对于满足条件0≤x≤1的一切实数x,a(1-x)(1-x-ax)-bx(b-x-bx)≥0恒成立,当ab乘积最小时,求ab 生活日记要怎么样写 关于罗尔定理罗尔定理的逆定理是否正确 已知f(x)=ax*2+bx+c,当x属于[-1,1]时,都有-1≤f(x)≤1成立,且a+b=2,则a-b= tpo9综合写作的听力文本! 偷袭的英文怎么说? (1/2)选择题 当x不等于负的b分之5时 ,(-bx -5 ) 分之(a +x ) =2成立 ,则a的平方 -b的...(1/2)选择题 当x不等于负的b分之5时 ,(-bx -5 ) 分之(a +x ) =2成立 ,则a的平方 -b的平方等于 A TPO9的听力是不是特别难啊?我总共扣了7分算是怎么样的水平啊?0714考的话现在应该做些什么准备啊? “某人偷袭成功”的英语翻译是什么? 怎样用列举法求双胞胎生两男、两女、一男一女的概率各是多少? tpo9 听力的section1为什么tpo9 听力的section1 第三篇讲shrub的第一个选项选A啊?不是开始就说的是气温影响的吗?我认为是b 罗尔定理成立的条件罗尔定理的条件之一是在区间上存在两个相等的函数值点,但这两个相等的函数值点必须是区间的端点吗? 3男2女 上台抽奖 随机抽两个人 列举所有的基本事件 在等式y=ax的2次方+bx+c中,当x=0时,y=0;当x=1时,y=1;求当x=2时,y的值. 如图在△ABC中,BE、CF分别是AC、AB边上的高,在BE延长线上截取BM=AC,在CF延长线上截取CN=AB,试判断AB,AC的关系,并说明理由 表达想念某人,做其他事心不在焉的诗句 g(x)=3x^2-bx+b>=0在[-2,1]上恒成立求b的取值范围,计算过程详解 在△ABC中,BE,CF分别是AC,AB边上的高,且交于点O,在BE的延长线上截取BM=AC,在CF的延长线上截取CN=AB.求证:(1)AM=AN(2)AM⊥AN因为在学全等三角形尽量用那个知识进行回答谢谢_(:3」∠)_ 有谁能够将C#类中的get 和set 函数的具体用法说透一点呀?我在C#的属性中使用了get 和set 函数,但是我看不出它的具体作用体现在哪!谁能将它说得清楚一点啊! g(x)=3x^2-bx+b>=0在[-2,1]上恒成立求b的取值范围, 一道物理题``姐姐哥哥帮忙``在爷爷的生日宴上,爸爸拿出一个酒杯,并斟上一杯递给爷爷,爷爷端起酒杯,惊喜的看到杯中有一幅清晰的长寿图,爷爷干了这杯酒,再看的时候发现长寿图不翼而飞了 C#语法的问题 get set的用法public class Users { private int _userid; private string _username; private string _userpwd; public int UserId { get { return this._userid; } set { this._userid = value; } } public string UserName { get { return this 什么是生活日记寒假写生活日记,却不知写什么.Help me! 寒冬时节的早晨,汽车司机发现车窗上有“哈气”于是就打开暖气 很快除“哈气”.夏天,下过雨后,车后面的车窗也有“哈气” 打开空调制冷,很快也把“哈气”除去 这是什么原因 关于C#中get:和set;用法在类中定义属性public string name{get;set;}和private string name;public string Name{get { return name; }set { name= value; }}有什么区别.感觉都是封装字段. 要几篇生活日记 P.112(8)物理题 姐姐哥哥们,state whether the following statements are correct or not.(a)plastic,wood and glass are good insulators because they lack free electrons.(b)separetion between molecules in a gas is greater than that in a solid. 请问现在月球发现了水分的话,是否就能居住呢? 生活日记结尾怎么写马上就要 悬赏30分,求一道物理题,姐姐哥哥们,在用电流表测量某段电路中的电流时,若选用0~0.6A量程,测得电流植为0.2A.若选用0~3A量程,测得电流植为0.18A,那么该电路中的电流大小应该选取?我不只需要一 若即若离的爱我遇到了一个她,我发现我喜欢她,爱她.可是我们若即若离的,让我感觉到不安,我害怕失去她,又总是有可能失去的感觉.我的神啊,救救我吧,人生得李雪此女,别无它求.我不要,更不 来两篇生活日记字数300左右 可以抒情讨论 请各位姐姐哥哥帮我解一下5、 6、题 “全月应纳税所得金额”指全月总收入减2000元后的金额.项老师上月交个人所得税90元,算老师上月收入级别 全月应纳税所得金额 税率1 不超过500元部分 5%2 超过500元到2000元部分 10%3 超过200 折线统计图不但可以表示( ),而且( ). 关于静电力的计算A,B小球分别带电荷9Q和-3Q,固定在相距L的位置,现将一个电荷量为Q的小球C放在什么位置上它的静电力为0?想问一下具体的思路,具体的答案无关紧要…… 希望大家可以推荐几本关有哲学的书!想有一天去夏威夷旅游 不知道出国需要什么手续和条件 还有应该注意什么? ∫x/(4+x)^0.5 dx如题! 静电力计算真空中,两个相同的金属小球所带电荷量分别是+3乘十的负8次方,-5乘十的负8次方,相距R时 静电引力是0.3N,现将两球接触后再置于原来位置时,他们之间的静电力变为多少,是引力还是 已知W1(t0)=W2(t0),W1(t0-△t)>W2(t0-△t),求当自变量的变化由t0-△t到t0时,W甲和W乙谁大(W1属于W甲,W2属于W乙) ∫((X+5)^4)dx 不定积分 在Rt△ABC中,∠ACB=90°,∠BAC=60°,DE垂直平分BC,垂足为D,交AB于点E,又点F在DE的延长线上,且AF=CE,求证:四边形ACEF是菱形 变化率的数学问题有一个等边三角形,边长为20厘米.其顶点每秒向对边的中点以1.5厘米/秒的速度靠近,假设其保持为等边三角形.当三角形消失时,求其消失时刻面积的变化率.谢谢~ ∫(x^5+x^4-8)/x^3-x dx求不定积分具体过程 在Rt△ABC中,∠ACB=90°,∠BAC=60°,DE垂直平分BC,垂足为D,交AB于点E.又点F在DE的延长线上,且AF=CE.求证:四边形ACEF是菱形. 数学,瞬时变化率是什么? 英语. 在Rt△ABC中,∠ACB=90°,∠BAC=60°,ED垂直平分BC,垂足为D,交AB于点E,在DE的延长线上取一点F,使AF=CE.求证:四边形ACEF是菱形 数学的瞬时变化率怎么计算? 25.谁能帮我全部 如图,在RT△ABC中,∠ACB=90°,∠BAC=60°,D,E分别是BC,BA的中点,点F在DE的延长线上,且AF=CE.求证:四边形ACEF是菱形 若(x-2)(x+a)=(x方+bx+6),则a.b各等于多少 设函数f(x)=ax+4/x(x>0),a∈正 R (1)当a=2时,用函数单调性定义求f(x)的单调递减区间 HDU ACM编程2000题..刚学的C语言,编程方面还不是很好,2000题正好是作业程序如下#includeint main(void){\x05char a,b,c,t;\x05while(scanf("%c%c%c",&a,&b,&c)!=EOF);\x05{\x05\x05\x05if(a>b)t=a,a=b,b=t;\x05if(a>c)t=a,a=c,c=t;\x05if(b> 已知x=-1时,a x的三次方加 bx等于1成立,那么x=1时,a x的三次方加 bx-3等于多少? 设函数f(x)=x-2/x-1 1.用定义证明函数f(x)在区间(1,正无穷)上是单调递减函数2.若f(t2-t+2)-2<0,求实数t的取值范围.(根据函数单调性来解答)重点是第二问! 巴基斯坦塔利班证实其头目被美军无人机洛杉矶国际机场发生枪击事件 一嫌疑人洛杉矶国际机场发生枪击事件 嫌犯被执洛杉矶机场枪击案至少3人受伤 包括一洛杉矶国际机场发生枪击事件 至少两人洛杉矶国际机场发生枪击事件 一嫌疑人伦敦股市股指1日收盘基本持平斯诺登密会德议员 称愿为NSA窃听事斯诺登密会德议员 称愿为NSA窃听事美国洛杉矶国际机场发生枪击事件 至少德国法兰克福股市DAX指数1日下跌波黑有轨电车相撞致40多人受轻伤美国洛杉矶国际机场发生枪击案湖南岳阳三姐弟上学途中遭绑架杀害 嫌尼泊尔张灯结彩庆“灯节”:首日敬乌鸦日俄政府在东京举行外长防长会谈俄罗斯成立建设和住房公用事业部日俄政府在东京举行外长防长会谈伦敦股市股指1日上涨美国10月份制造业采购经理人指数上升卜拉希米强调日内瓦会议旨在实现政治解广东网上药店崛起 撑起行业半边天挑战感情牌 青葱或将发布土豪金手机?公安机关立体化推进平安建设开盘论市:周线收盘不宜过急,再压低下“十个手指都能弹钢琴”的加藤鹰马鞍山人疯狂囤货扫空超市,最新的各大梅台农业创业创新中心在广东梅州挂牌盘点应聘时不应犯的错误:偷走考官妻子请告诉我,怎样做一个严厉又有爱的父亲国内外权威媒体竞相关注包之网及不良资快来看一看放大镜下的沉香,是真是假一悟空租车朱旭:师傅,悟空把车送到了为了十年后不得癌症,你今天必须这样做中东多国争中国市场,但中国更偏向俄罗【冷兔槽】每日一冷NO.1047雄县地税“四个突出”强化建筑业营业税冬游了冬游了,出游美妆不NG更美丽UU客吴凡:希望成为八零后九零后的旅油价强力反弹 美油盘中大涨6%突破38岁追求小李子,19岁获封天才导演,明星送生日礼物:黄晓明送baby跑车
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘