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

2025-07-10 20:05:42分类：首页 > 知识

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用户登录窗体代码修改,详细如下)

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]