历史
笔心小说 > 其他类型 > 四合院之傻柱的世界 > 第433章 VBA编程制作excel登录界面

第433章 VBA编程制作excel登录界面(1 / 2)

宁子工作室利用VBA编程实现x登录界面的设计,让你的x看起来高大上,具体操作流程如下:

1、界面包括用户名、密码,可以修改用户名和密码

2、在修改用户名和密码的时候需要输入原来的用户名和密码,该用户名和密码存放在x自带的名称管理器中,可以实现更新

3、用户名或者密码输入误3次即提示输入误而退出,权打开该x表格

4、输入了正确的用户名和密码后会看到欢迎提示框

主要代码如下:

SbNaVisib()

Nas('srna').Visib=Fas

Nas('srr').Visib=Fas

EnSb

PrivatSbWrkbk_Opn()

Appiatin.Visib=Fas

ng.Sh

MsgBx'欢迎登录宁子工作室!'

EnSb

PrivatSb1_Cik()

Appiatin.SrnUpating=Fas

StatiiAsIntgr

IfCStr(t1.Va)=Right(Nas('UsrNa').RfrsT,Ln(Nas('UsrNa').RfrsT)-1)AnCStr(t2.Va)=Right(Nas('UsrWr').RfrsT,Ln(Nas('UsrWr').RfrsT)-1)Thn

UnaM

Appiatin.Visib=Tr

Es

i=i1

Ifi=3Thn

MsgBx'对不起,你权打开工作簿!',vbInfratin,'提示'

ThisWrkbk.Cssavhangs:=Fas

Es

MsgBx'输入误,你还有'&(3-i)&'次输入机会',vbExaatin,'提示'

t1.Va=''

t2.Va=''

EnIf

EnIf

Appiatin.SrnUpating=Tr

EnSb

PrivatSb2_Cik()

UnaM

ThisWrkbk.Cssavhangs:=Fas

EnSb

点击观看同名漫画作品
最新小说: 一一 寓言故事CP乱炖(xp大爆发) 明日方舟-一些你前所未有想过的cp开车 骚话贱狗挨操记(gb) 其人之身(成为网黄的我出息了) 救命!联姻对象是死对头(欢喜冤家双洁H) 那年雪後,枯木迎暖春 【眷思量】梦望断 烂命一条 师尊的秘密(H/孕)