广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

    在VBA中,如何编写代码为工作表添加密码!

    来源:网络收集  点击:  时间:2024-07-28
    【导读】:
    本篇经验将通过实例和大家分享【在VBA中,如何编写代码为工作表添加密码?】工具/原料more电脑壹台OFFICE办公软件方法/步骤1/8分步阅读

    为工作表【789】加密,打开时无显示内容,并跳出输入密码对话框,正确输入密码后,显示表中内容,若输入密码错误,则不显示里面的内容,也无法进行编辑操作!

    2/8

    在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!

    3/8

    会进入VBA编辑界面!双击左侧栏中准备加密的工作表!

    4/8

    会弹出事件程序代码编辑窗口!

    5/8

    在事件程序界面里的左下拉菜单中选择【worksheet】,右下拉菜单中选择【activate】。

    6/8

    在事件程序窗口,输入以下代码:

    Private Sub Worksheet_Activate()

    i = InputBox(请输入密码)

    If i = 123 Then

    Cells.Font.Color = RGB(0, 0, 0)

    Else

    Sheet11.Activate

    End If

    Application.EnableEvents = flase

    End Sub

    7/8

    双击左侧栏中的“thisworkbook”工作薄!右下拉菜单中选择【open】,输入以下代码。

    Private Sub Workbook_Open()

    Application.EnableEvents = True

    Sheet8.Cells.Font.Color = RGB(255, 255, 255)

    Sheet11.Select

    End Sub

    8/8

    点击保存关闭工作表,我们再次打开工作簿时,点击工作表【789】,需要正确输入密码后,才能显示内容和进行编辑操作!

    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.1haoku.cn/art_1022485.html

    相关资讯

    ©2019-2020 http://www.1haoku.cn/ 国ICP备20009186号05-04 20:39:26  耗时:0.022
    0.0219s