| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1702 人关注过本帖
标题:求用VBA宏
只看楼主 加入收藏
zjfy668
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-7-10
收藏
 问题点数:0 回复次数:1 
求用VBA宏
在A1单元格输入日期,A2单元格输入密码, 要求每次打开EXCEL 判断,当 当天日期小于A1日期时,则inputbox ("请输入你的使用权限密码?"),如密码错误 MsgBox "密码错误,请按确定退出",ThisWorkbook.Close , 如密码等于A2的值,则可进入EXCel
搜索更多相关主题的帖子: VBA  日期 密码 错误 
2019-07-10 10:31
Cyberoe2
Rank: 2
等 级:论坛游民
威 望:3
帖 子:16
专家分:45
注 册:2019-8-9
收藏
得分:0 
程序代码:
Private Sub Workbook_Open()
        Dim str As String
        With Sheet1
              If Date < .Range("a1") Then
res:             str = InputBox("输入密码:", "Passwd")
                    If StrPtr(str) = 0 Then
                            Application.Quit
                    ElseIf str = .Range("a2") Then
                            MsgBox "welcome!"
                    ElseIf str <> .Range("a2") Then
                            MsgBox "密码错误"
                            GoTo res:
                    End If
              Else
                    MsgBox "系统日期>=a1"
                    Application.Quit
              End If
        End With
End Sub
2019-09-19 14:20
快速回复:求用VBA宏
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014159 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved