宁子工作室利用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