首页 > Office专区 > Excel教程 >

EXCEL如何设计密码登录框登陆界面输入密码使用

来源:互联网 2023-02-21 16:29:05 385

EXCEL如何设计密码登录框,每次打开文件,先加载登陆框,有密码,方可进入R6l办公区 - 实用经验教程分享!

工具/原料

  • EXCEL2003-2016
  • 电脑一台

方法/步骤

  • 1

    新建一个EXCEL工作表,并保存为开启宏的工作表R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 2

    依次点击文件-选项-信任中心-信任中心设置-宏设置,开启宏控制R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 3

    在EXCEL界面,按ALT F11,进入VBA编辑页面R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 4

    在功能区找到插入菜单,而后点击插入,用户窗体,新增一个窗体R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 5

    为窗体添加背景,以及密码登录框R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 6

    双击窗体,进入窗体VBA编辑页面,根据需求,一步步编辑即可,密码登陆框等,都设计一些代码R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

    EXCEL如何设计密码登录框登陆界面输入密码使用R6l办公区 - 实用经验教程分享!

  • 6相关内容未经许可获取自百度经验
  • 7

    代码:R6l办公区 - 实用经验教程分享!

    Private Sub Label1_Click()R6l办公区 - 实用经验教程分享!

    If ComboBox1.Value = "管理员" And TextBox1.Value = 888 ThenR6l办公区 - 实用经验教程分享!

    'ActiveWindow.DisplayWorkbookTabs = TrueR6l办公区 - 实用经验教程分享!

    Sheet2.SelectR6l办公区 - 实用经验教程分享!

    Application.Visible = TrueR6l办公区 - 实用经验教程分享!

    EndR6l办公区 - 实用经验教程分享!

    ElseIf ComboBox1.Value = "用户" And TextBox1.Value = 123 ThenR6l办公区 - 实用经验教程分享!

    'ActiveWindow.DisplayWorkbookTabs = TrueR6l办公区 - 实用经验教程分享!

    Sheet3.Visible = xlSheetVeryHiddenR6l办公区 - 实用经验教程分享!

    Sheet2.Range("F:F,J:J").EntireColumn.Hidden = TrueR6l办公区 - 实用经验教程分享!

    Sheet2.SelectR6l办公区 - 实用经验教程分享!

    Application.Visible = TrueR6l办公区 - 实用经验教程分享!

    EndR6l办公区 - 实用经验教程分享!

    ElseR6l办公区 - 实用经验教程分享!

    MsgBox ("密码不正确,无权进入系统")R6l办公区 - 实用经验教程分享!

    On Error Resume NextR6l办公区 - 实用经验教程分享!

    Unload MeR6l办公区 - 实用经验教程分享!

    If Workbooks.Count > 1 ThenR6l办公区 - 实用经验教程分享!

    'Application.DisplayFormulaBar = TrueR6l办公区 - 实用经验教程分享!

    'ThisWorkbook.Close TrueR6l办公区 - 实用经验教程分享!

    ThisWorkbook.Close savechanges:=FalseR6l办公区 - 实用经验教程分享!

    ElseR6l办公区 - 实用经验教程分享!

    'If ThisWorkbook.Saved = False Then ThisWorkbook.SaveR6l办公区 - 实用经验教程分享!

    Application.QuitR6l办公区 - 实用经验教程分享!

    End IfR6l办公区 - 实用经验教程分享!

    End IfR6l办公区 - 实用经验教程分享!

    End SubR6l办公区 - 实用经验教程分享!

  • 以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!R6l办公区 - 实用经验教程分享!


    标签: excel密码设计登陆界面

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号