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

用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

 

移动应用中的AR开发,5款最受欢迎工具推荐! 中国黑客Pwn2Own再创佳绩 Keen Team三年五夺魁 星环CTO孙元浩:技术解析Transwarp Inceptor是怎样炼成的 第七届中国云计算大会将于6月3-5日在北京召开 两大设计模式 塑造高可读性的网页布局 IP争夺战:任天堂与DeNA联手意味着什么? UNITE 2015干货不断,三天日程抢先看! iOS 8发布近一年,苹果HomeKit都带来了什么? Facebook开源移动网络测试工具Augmented Traffic Control 用JavaScript开发移动原生应用,Facebook正式开源React Native! 《知性》,探寻移动化社区的敏感带 【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 求教:关于CRC校验的问题 问题:有关查询结果排序. 为什么我用的是LoadString函数而编译显示错误时显示LoadStringW函数。两个有什么区别? 请问这个错误提示是什么意思呢?谢谢! OCI中的类型转换 麻烦大家看看下面的代码对吗?能否用MSChart显示MSHFlexGrid中指定的行(上下)和列(左右),谢谢谢谢 如何用vector做一个二维数组。如int a[4][4]的。该怎么做 仰天长笑,号称CSDN(“中国”软件开发网),却。。。 鼠标移出当前窗口时显示MessageBox如何做? 操作系统为solaris如何配置才能上internet网? 大虾留步! 根据日期查询数据库的问题(当天结账)急! 请问怎么去打开一个SQL SERVER的数据库,求救 怎样修改注册表? 如何把程序编译为只有一个EXE的文件?(对不起,我的分发光了!) OCP 试题之一 EhLib里TDBGridEh控件的SaveBookmark方法有何作用? 编程不需要创新,我同意 有一个朋友向我要类描述的rose表示的例子,我已经做好了,并上传到下面的网址上 福州的程序员请进................ 如何执行一个*.txt文档中的语句? 怎么在一个button被点击时,播放一段声音呢? OCP 试题之二 怎么用jb5创建一个corba工程? 怎么才能让程序永远在最前面 送分 请问乙肝表面抗原阳性(最最轻的那种,不是小三阳),进外企要不要?作公务员要不要紧?谢谢 怎么样才能处理像VB中的TREEVIEW中的NODECLICK的事件? 我想了解一下国内有多少公司用rose ASP500错误该怎么处理呢?新手请高手赐教!!本人在IIS的根目录下面访问HTM不会出现错误,但是在根目录下面建了虚拟路径有就出现了500错误。为什么? 每一个开发人员都应该拥有的东西 老问题:如何获得鼠标IBEAM的Handle? 用GetCursor()只能获得当前鼠标的Handle. 请问有法律高手在吗?急需要帮助,谢谢。 OCP 试题之三 请问乙肝表面抗原阳性(最最轻的那种,不是小三阳),进外企要不要?作公务员要不要紧 ?谢谢 请教:如何修改ICON? 高分寻求关于vc和mapinfo结合的资料!一定给分!! 怎么我在IE上提供的word文档下载,当点击左键时会打开执行而不能下载, 我公司招聘 做个小调查:做OA用Microsoft的做和用Lotus的做,工资大概各是多少?觉得哪个更难学? 请高手赐教,'ASP 0156 : 80004005' 是什么错误? 在MDI的主窗口CLOSE事件中,返回什么值才能使窗口不会被关闭? 老问题了一直没解决,speechSDK5.1做的程序怎样发布呢? 救命阿?? VC和SQLserver2000可以连么???如何连??????????????? 小弟的“处女作”,请给位捧个场,多提宝贵意见!谢谢! 帮我去见见好吗?http://www.csdn.net/expert/topic/389/389043.shtm 做个小调查:做OA用Microsoft的做和用Lotus的做,工资大概各是多少(最好写明地区)?觉得哪个更难做? 有什么比较好的帮助文件制作软件 chm 或 hlp?那里可以下载? 忍痛送分了,谁知道哪儿有d5开发指南下载,最好是李维的??? 步入设计先锋,专家在线语音交流。你是优秀的平面美术设计师或网页设计师吗?请走进我们的设计联盟。 成语之最-最宝贵的话语 求以“感恩与励志”为主题的班会标题.如:心怀感恩 励志成才 .要新颖一点的.创新哦. matlab 求程序 已知阿波罗飞船的运动轨迹(x,y)满足一下方程:d^2x/dt^2 = 2*dy/dt + x - a(x+b)/r1^3 - b(x-a)/r2^3.(1);d^2y/dt^2 = -2*dx/dt +y -ay/r1^3 - by/r2^3;.(2);其中,b = 1/82.45,a = 1 - b,r1 = sqrt((x+b)^2+y^2),r2 = sqrt 成语之最:最昂贵的稿费 最贵的话语 最宝贵的时间 最长的腿要成语,不是的别来 励志主题班会开场白 《行道树》作者是_______,他借行道树来塑造________的形象,借行道树的________抒写________的襟怀,短文表达了这样一个哲理:________________________.《人生寓言》作者________,寓言用________讲述带有______ 根据意思写成语之最:最好的作品—— 最无奈的事情—— 最大的浪费—— 最吝啬的人—— 最宝贵的话——最符合情理的事—— 一个数的小数点向左移动一位,所得数比原来的数小13.5,求原数.一个数的小数点向左移动一位,所得数比原来的数小13.5,求原数. 人们常用______(什么)来称谓不拘年岁差别,行辈不同而交情深厚的朋友我们常把拒绝客人进门的行为叫做让客人吃___________一词常用来比喻表面虚张声势,实际上全无防备. 我要求一篇感恩父母为演讲稿的文章,本月23号就要的,内容是教育员工学会知恩,感恩.报恩,从而用自己的勤奋工作,回报社会,回报亲人,回报公司,回报所有帮助过自己的人,营造良好工作与生活 一个数将小数点向左移动一位所得的数比原数小13.5这个数是多少. 需要过程 谢谢! 此题用方程怎么解 几道用方程解决的应用题,1,某停车场中共有三轮农用车、四轮中巴车和六轮大卡车44辆,各种轮子共有171个.已知四轮中巴车比六轮大卡车的2倍少1辆,在这个停车场中共有多少辆三轮农用车?( 有一部作品描写到:他就这样在亲友的悲泣和泪水中灵魂飞升了,我是说死了.”句中的他是( ).作者是( 》,是文艺复兴时期的现实主义巨著. 请问这个题用方程怎么解,急, 谁能帮我看看这个MATLAB程序怎么修改x=[1 2 4 5 6 7 8 10];N=length(x)n=0:N-1;k=0:N-1;X=x*exp(-j*2*pi/N).^(n*k);x1=X*exp(j*2*pi/N).^(n*k)/N;figure(1),stem(n,x);title('x(n)');figure(2),stem(n,abs(x1));title('IDFT丨x(k)丨')每次运行后 请问橙汁可以加热喝吗?如提. 一个数A,若小数向右移动一位,得到的数等于B;若向左移动一位,得到的数等于C.已知A+B+C=1332,则A=?不要说XY 各位大侠帮我看看我的matlab程序,我在matlab的GUI中写了这样一段代码:im=imread('1.jpg');im1=rgb2gray(im);im1=medfilt2(im1,[3 3]);im1=double(im1);[ca1,ch1,cv1,cd1]=dwt2(im1,'bior3.7');[M,N]=size(ca1); e=hundungen(M,N,0.1); tt=0.1 人生中最难得的财富是保持一棵充满快乐的心.( ) 挫折,得失,( )名利,( )荣辱……把我们的快乐消磨殆尽.不要为外界物质世界所累,不断挖崛快乐,享受快乐.(1)给加点的字注音.(1分 matlab程序解释clearx=[3 1 5 4 0 3 7 9 10 14 17 14 12 10 7 2 6 11 15 19 22 21 27 15 15 20 21 24 25 28 5 17 25 9 9 30 0];y=[2 5 4 7 8 11 9 6 2 0 3 6 9 12 14 16 18 17 12 9 5 0 9 19 14 17 13 20 16 18 12 16 7 20 15 12 0];t=[1.50 1.50 0.55 1.20 0.85 1. 一个数的小数点向左移动一位,比原数小72,求这两个数. 请问橙汁可以加热喝么?现在非常冷,我想知道橙汁可以加热么? Matlab程序注释(1)num=[2547]; den=[1,2005]; g=tf(num,den); phai=feedback(g,1); num=[571.2]; den=[1,0]; gc=tf(num,den); ggc=gc*g; phaic=feedback(ggc,1); bode(ggc); grid on; (2)num=conv([800],[1/40 1]); den=conv([1 0],conv([1/3/pi 1],[1/1000 一个数的小数点向左移动一位,比原数小0.72,则原数是多少. 初一语文试卷什么样的 matlab程序,求解释[x,fs,bit]=wavread('e:\1.wav'); [b,a]=butter(4,[0.025 0.85]);y=filter(b,a,x);[Rows,Cols]=size(x); 感恩400字作文 为什么橙汁加热了会变酸? 关于MATLAB程序解释我刚学MATLAB,看不懂以下的程序,有高手帮逐行翻译下吗?小弟在此谢过了~function [Phi,Gamma] = c2d(a,b,t)error(nargchk(3,3,nargin));error(abcdchk(a,b));[m,n] = size(a);[m,nb] = size(b);s = expm([[a b]*t; 将一个数的小数点向左移动一位后,得到的数比原来的数小72,这个数原来是多少? 橙汁加热喝 营养会流失吗 求解释程序 matlabclc;clear all;frameno=1;fid = fopen('carphone_qcif_ori90.yuv');[y1,u1,v1] = read_frame_qcif(fid,frameno);最后一句什么意思啊,为什么括号里是fid,frameno 一个数的小数点向左移动一位后,比原数小72.求原数是多少? 一元一次方程.怎么写,第五答大题(1)(2)小题 精液与可乐发生的化学反应取可乐100ml jy50ml 将 jy加入可乐,摇晃均匀.可乐由深黑色变为浅褐色;摇晃产生的泡沫久久无法散去;产生很多丝絮状褐色固体悬浮物(2mm左右).加入200ml水后,液体 几道小学的应用题[用方程解]1、用一根长76厘米的铁丝做一个长方形的教具,要使宽16厘米,那么长是多少厘米?2、内径为120毫米的圆柱玻璃杯中的水倒入内径为300毫米、内高为32厘米的圆盘中正 如图.21题.角 a=1/2角c=1/2角abc如何设方程解答 可乐与什么会发生化学反应? 小学方程解应用题要求100道, 把一个数的小数点向左移动一位后得到数比原来小13.5.原来的数是多少 人教版 要全面,越多越好 那里有好的 thank you very mach! 急用 麻烦叻`` 人教版初一上学期生物试卷 2009——2010初一下学期语文试卷苏教版的 我该去哪里找语文试卷?我的语文书本是人民教育出版社的. 初一上学期期中语文测试题不要弄混,我要的是七年级上册前3单元的期中测试卷, 学会感恩演讲稿400字.要求原创、急快、、要原创,3、4百字,《学会感恩》演讲稿 2011初一下学期月考语文试卷?人教版的 谁能给我出一张初一上学期语文试卷,马上就考试了! 用方程解怎么做? 2011初一下学期月考语文试卷 人教版 我是莒县的 在3月23日12点前给出答案!第一次月考 初一上学期语文试题,帮着解答一下,谢谢 点样做 用方程解 初一下学期期中语文试卷 娄底五中的!要今年版的!娄底五中要考的!期中测试! 初一上学期语文试卷带答案 成语之最中最宝贵的话语是什么? 励志——主题班会报道急 MATLAB %define the sequence of the program[A,B,U,Y,M]=define_matrix();[H,D,I,R1,C2,C1,R2,P,Cd,RO,Q0,X1,P0,G]=input_parameter();[X2,C,A1]=calculation_parameter(Q0,Cd,P,R2,D,RO,G);[M]=calculation_matrix(M,A,B,U,Y,I,R1,C2,C1,R2,P0,P,X2,X2,A1,Q0,H,C);gra
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn