用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

vba中设置用户名及密码

2018-08-20 作者:CCCP举报

[vb]代码库

step1:打开VBA后,→对象资源管理器→双击thisworkbook→粘贴CODE1
step2:新建一个用户窗体,用默认名称:userform1,拖放两个标签控件,两个文本框控件(passwordchar为:*),一个按钮控件。
step3: 双击窗体userform1→双击按钮控件→粘贴CODE2





【CODE1】
Private Sub workbook_open()
  MsgBox "您好,欢迎使用excel!今天是" & Date
  MsgBox "现在是" & Now
  Sheet1.Visible = xlSheetVeryHidden
  UserForm1.Show
End Sub
【CODE2】
Private Sub CommandButton1_Click()
  If TextBox1.Text = "此处为用户名" And TextBox2.Text = "此处为密码" Then
  Unload Me
  Sheet1.Visible = xlSheetVisible
  Sheet1.Activate
Else: MsgBox "请输入正确的用户名和密码!", vbOKOnly + vbInformation, "提醒"
  TextBox1.SetFocus
End If
End Sub


分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。