excel登录代码怎么写(EXCEL用户登录窗体代码修改,详细如下)

1.EXCEL用户登录窗体代码修改,详细如下

Private Sub CommandButton1_Click()

Application.Visible = True

For i = 1 To Sheets.Count

Sheets(i).Visible = -1

Next

If TextBox1 = "123" And TextBox2 = "123" Then

ElseIf TextBox1 = "456" And TextBox2 = "456" Then

Sheets(1).Visible = 0

Sheets(3).Visible = 0

ElseIf TextBox1 = "789" And TextBox2 = "789" Then

Sheets(1).Visible = 0

Sheets(2).Visible = 0

Else

Application.Visible = False

For i = 1 To Sheets.Count

Sheets(i).Visible = 0

Next

MsgBox "用户名或密码不正确,请重新输入!", 64

Exit Sub

End If

Unload Me

End Sub

2.ASP+EXCEL查询系统如何增加密码登录,代码怎么写

给你个大概思路,你自己做吧。

from action="?action=login"input name="user"input name="password"dim t:t=request("action")dim n:n=request("name")dim p:p=request("password")if t="login" thenif n="用户名" and p="密码" then'这里的密码,你可以设置固定,或者从数据库取出,数据库取出,同理,只是做一个取得的值跟数据库值比对一下而已。session("user")=nend ifend if在需要登录才可以看到的页面上加上这句:if session("user")="" then response.write"你没有登录请登录else显示正常内容end if。

3.怎么做在Excel中制作用户登录窗口

为了保护Excel工作表,有时需要对工作表的打开设置权限,这就需要创建用户登录界面。

在Excel中,制作用户登录窗口的方式很多,使用控件是其中的一种重要方法。本文介绍使用VBA窗体控件、文本框控件和按钮控件等来制作用户登录窗口的方法。

1、启动Excel并打开工作表,打开Visual Basic编辑器,在工程资源管理器中鼠标右击,选择关联菜单中的“插入”|“用户窗体”命令插入一个用户窗体。按F4键打开“属性”对话框,在"Caption"文本框中输入文字“用户登录”更改窗体标题,如图1所示。

创建用户窗体并设置其属性2、从“工具箱”对话框中分别选择“文本框”控件、“标签”控件和“命令按钮”控件,在窗体中绘制这些控件,如图2所示。在“属性”对话框中将两个“标签”控件的"Caption"属性分别设置为“登录名”和“登录密码”,将“命令按钮”控件的"Caption"属性分别设置为“确定”和“取消”,向窗体中添加控件 修改控件的3、在窗体中选择第二个“文本框”控件,在“属性”对话框中将"PasswordChar"属性设置为字符“*”,如图4所示。

这样,在该文本框中输入的字符将被“*”替代。更改“文本框”控件的4、鼠标右击窗体中的“确定”按钮,选择关联菜单中的“查看代码”命令打开“代码”窗口,此时Visual Basic编辑器将自动在“代码”窗口中为控件添加Click事件。

为该按钮添加的Click事件程序如下:Private Sub CommandButton1_Click() If TextBox1.Text<>"郭轶凡"Then '判断用户名是否正确 MsgBox"用户登录名错误,您无权登录!" '不正确给出提示 With TextBox1.SelStart=0 '设置选择文字的开始字符.SelLength=Len(TextBox1.Text) '设置选择文本的长度.SetFocus '文本框获得焦点 End With ElseIf TextBox2.Text<>"abcdef "Then '如果密码错误 MsgBox"密码输入错误,请重新输入!" '给出提示 With TextBox2.SelStart=0 '设置选择文本的开始字符.SelLength=Len(TextBox2.Text) '设置选择文本的长度.SetFocus '获得焦点 End With Else MsgBox"登录成功,欢迎你的到来!" '登录成功提示 Unload Me '卸载窗体 End If End Sub 提示 在这里,程序首先判断第一个文本框的Text属性值是否为设定的用户名,如果不是则给出提示,同时使用With结构设置非常关键的SelStart属性和SelLength属性,使文本框中的文字能够高亮显示。同时,使用SetFocus方法使文本框获得焦点以方便用户更改用户名。

如果输入的是设定的用户名,程序接着判断第二个文本框中的Text属性值是否是设定的密码,如果不是则执行与用户名错误相同的操作。如果用户名和密码均正确,程序给出提示并卸载窗体。

5、接着在“代码”窗口中输入程序代码,为“取消”按钮添加Click事件代码,具体程序如下所示:Private Sub CommandButton2_Click() Unload Me '卸载窗体 ThisWorkbook.Close '关闭工作簿 End Sub6、按F5键运行程序出现“用户登录”窗口,在“登录名”文本框中输入人名,如果非授权用户,程序给出提示,如图4所示。单击“确定”按钮关闭提示对话框后,“登录名”文本框获得焦点,在其中输入正确登录名。

在“登录密码”文本框中输入密码,如果密码错误,程序给出提示,如图5所示。如果输入正确的用户名和登录密码,程序提示登录成功,如图6所示。

单击“确定”按钮关闭对话框,“用户登录”窗体将关闭。登录名输入错误提示 密码输入错误提示 登录成功提示7、在工程资源管理器中双击"ThisWorkbook"选项打开“代码”窗口,在其中输入如下程序代码使工作簿打开时用户窗体可见。

切换到Excel,保存文档,完成本实例的制作。Private Sub Workbook_Open() UserForm1.Show End Sub。

4.有关登录窗口的vba代码

Private Sub Workbook_Open()

Application.Visible = False

login.Show

End Sub

在窗体代码中做了

Private Sub CommandButton1_Click()

If UserName.Text = "123" And Pwd.Text = "123" Then

Me.Hide

Application.Visible = True

Else

ThisWorkbook.Application.Quit

End If

End Sub

Private Sub CommandButton2_Click()

End

End Sub

再拿去运行下,肯定没有问题。

5.EXCEL如何编辑登录窗口

首先建立一个用户窗体UserForm1做为登录窗,设置两个文本框TextBox1和TextBox2,一个确定按钮,CommandButton1。代码如下

Private Sub CommandButton1_Click()

If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then

Me.Hide

Sheets("sheet1").Select

Else

ThisWorkbook.Application.Quit

End If

End Sub

在thisworkbook项输入如下代码,就在打开文档时弹出登录窗。

Private Sub Workbook_Open()

UserForm1.Show 0

End Sub

excel登录代码怎么写

转载请注明出处育才学习网 » excel登录代码怎么写(EXCEL用户登录窗体代码修改,详细如下)

知识

钱已退还证明书怎么写(退保证明怎么写呢)

阅读(287)

本文主要为您介绍钱已退还证明书怎么写,内容包括彩礼已退回的证明怎么写,退保证明怎么写呢,收到退款钱了怎么写收条。这个是格式,照这个就可以了 农民合同制职工退保申请书 _________社会保险基金管理中心:本人已知悉并了解:本人与企业终止或

知识

制冷原理课程设计结论怎么写(课程设计报告怎么写)

阅读(376)

本文主要为您介绍制冷原理课程设计结论怎么写,内容包括课程设计报告怎么写,实验报告的结论怎么写实验,课程设计的小结怎么写。电子课程设计报告的格式安排 1. 摘要 2. 目录 3. 前言/引言 4.正文 5. 结论 6. 参考文献 7. 附录 二、摘要 1.

知识

学生假期鉴定要怎么写(家长如何给孩子写假期鉴定)

阅读(277)

本文主要为您介绍学生假期鉴定要怎么写,内容包括学生假期表现综合评价怎么写,报告册的假期学生做鉴定应该怎么写,家长如何给孩子写假期鉴定。第一份:孩子上学以来的第一个寒假即将结束,孩子将开始一个新的学期,进入更为紧张的学习。在这段时间

知识

注册杭州志愿者时住址怎么写(志愿者注册中所属地区应该填啥)

阅读(435)

本文主要为您介绍注册杭州志愿者时住址怎么写,内容包括杭州市志愿者服务网站注册怎么填,区域跟详细地址这两栏怎么填(志愿者实名注册页面的),杭州市志愿者服务网站注册怎么填。关于志愿,希望以下几点可以帮到您:考生志愿,指考生所选报的院校和专

知识

诚实守信的广播稿怎么写(诚实守信广播稿300字)

阅读(349)

本文主要为您介绍诚实守信的广播稿怎么写,内容包括诚实守信广播稿300字,有关诚实的广播稿900字,广播稿诚实守信100多字字。敬爱的老师,亲爱的同学们:你们好!***小学“红领巾广播站”现在开始广播!我是广播员***,欢迎您的收听!诚信是一个古老的道

知识

卖车不卖牌证明怎么写(卖车不卖牌怎么办理)

阅读(298)

本文主要为您介绍卖车不卖牌证明怎么写,内容包括卖车不卖牌怎么办理,没有牌照卖车证明怎么写,求指教,卖车不过户协议怎么写。根据《机动车登记规定》第五十二条:办理机动车转移登记或者注销登记后,原机动车所有人申请办理新购机动车注册登记

知识

医院后勤自荐书怎么写(医护人员如何写自荐书)

阅读(318)

本文主要为您介绍医院后勤自荐书怎么写,内容包括医护人员如何写自荐书,医院后勤述职报告,帮忙写2篇自荐书,一篇去医院工作,一篇去药企的,含个人简介搜。在此先允许我,向您致以最真挚的祝福和感谢:祝您生活愉快,事业腾飞!感谢您在百忙之中惠阅我

知识

验枪走火检讨书怎么写(带枪被查出怎么写检讨书)

阅读(311)

本文主要为您介绍验枪走火检讨书怎么写,内容包括枪支走火检讨书怎么写,模板给我发过来,我的枪械走了火,让我写检查,怎么写,带枪被查出怎么写检讨书。下面提供一篇范文参考对不起,老师!我犯的是一个严重的原则性的问题。我知道,老师对于我的犯

知识

护士护理查房怎么写(护理查房记录范文)

阅读(366)

本文主要为您介绍护士护理查房怎么写,内容包括护理查房怎么写,护理查房记录范文,急求一份护理查房的标准格式。您好!我来说上几句. 护理业务查房: 临床临床护理查房:是对新入、危重病人的现存护理问题、措施、护理效果、护理质量进行的护理查

知识

退婚收条怎么写(退婚协议怎么写)

阅读(260)

本文主要为您介绍退婚收条怎么写,内容包括退婚彩礼,让男方写收条怎么写才具有法律效果,拜托了,订婚退婚彩礼收据怎么写,退婚协议书怎样写。退婚协议协议人男方父亲: (身份证号码: 女方父亲: (身份证号码: 男女双方经人介绍于2011年1月相识,并于201

知识

怎么写面粉厂年度总结(面粉厂员工工作总结怎么写年度)

阅读(294)

本文主要为您介绍怎么写面粉厂年度总结,内容包括面粉厂员工工作总结怎么写年度,面粉厂员工工作总结怎么写年度,面粉厂拉丝工年终工作总结怎么写。工作总结就是要让你的领导了解你,体现你的工作价值所在。所以写好几点:你都做了哪些事,简明扼要

知识

爱的的诺翻译英文怎么写(爱的英文怎么写)

阅读(264)

本文主要为您介绍爱的的诺翻译英文怎么写,内容包括爱的诺言英语怎么说,爱诺用英语怎么说,爱伊诺,翻译英文怎么写。2.日本语:阿一西带路 3.英语: I LOVE YOU 4 希腊语:s`agapo 5 犹太语:ani ohev otach 6 匈牙

知识

我的世界种子码怎么用(我的世界种子代码大全及种子代码怎么用)

阅读(271)

本文主要为您介绍我的世界种子码怎么用,内容包括我的世界种子代码大全及种子代码怎么用,我的世界种子代码大全及种子代码怎么用,我的世界输入代码种子后怎么使用。点开我的世界,看右上角有个new点开,左边是生存,右边是创造,再看右上角,有个Advan

知识

数据透视图怎么用(EXCEL数据透视表怎么用)

阅读(256)

本文主要为您介绍数据透视图怎么用,内容包括EXCEL数据透视表怎么用是干什么的,excel数据透视表怎么使用方法,数据透视表怎么用。请将这些字段拖到标有“请将列字段拖至此处”的拖放区域,“运动”列成为“运动”字段,单击“数据透视表和数据透

知识

excel中ln函数怎么用(怎么在excel中使用ln函数)

阅读(408)

本文主要为您介绍excel中ln函数怎么用,内容包括怎么在excel中使用ln函数,怎么在EXCEL里用ln函数,如何用Excel求表格中数据的ln值。准备工具/材料:装有windows 10的电脑一台,Microsoft Office 家庭和学生版 2010 excel软件。打开EXC

知识

用sumif怎么写函数(excel函数sumif怎么写)

阅读(266)

本文主要为您介绍用sumif怎么写函数,内容包括excel函数sumif怎么写,WPSSUMIF函数怎么写,在ExcelVBA中怎么写sumif函数。SUMIF(F1:F102,"<90")-SUMIF(F1:F102,">70") 这个公式不是正确的结果,例如有两个数,1和2,SUM

知识

excel时间控件代码怎么写(excel按钮控件怎么写代码)

阅读(362)

本文主要为您介绍excel时间控件代码怎么写,内容包括excel按钮控件怎么写代码,EXCELJ栏I栏都设置日期控件,其代码如何编写以下为在I栏设置,在excelI栏J栏设置日期控件工具的代码如何编写,我将以下代码中的。通过VBA,添加组合框控件,然后通过事

[/e:loop]