导航:首页 > 专利知识 > vba日期限制

vba日期限制

发布时间:2021-10-13 00:32:51

⑴ EXCEL高手如何用VBA限制打开时间

本帖最后由 hytsky 于 2011-12-19 23:50 编辑

Sub time()
Dim a As Date
Dim b As Date
Dim c As Date
a = Date
b = Sheets("用户及密码").Range("H500").Value
c = "2011 - 12 - 20"
If a < b Then
MsgBox "系统时间有误,请重新设置!", 1 + 64, "温馨提示"
ThisWorkbook.Close
ElseIf a > b Then
Sheets("用户及密码").Range("H500") = a
ElseIf c - a <= 2 And c - a > 0 Then
MsgBox "你还可以使用" & c - a & "天!", 64, "警告"
ElseIf c - a <= 0 Then
MsgBox "已超过使用时间", 64, "警告"
ThisWorkbook.Close
End If
End Sub

⑵ vba脚本如何设置使用时间限制

Sub sub1()

'控制使用时间,8:00-16:00时段可以使用
If Hour(Time) < 8 Or Hour(Time) > 16 Then Exit Sub

'控制使用日期,仅限双休日使用
If Weekday(Now, vbMonday) < 6 Then Exit Sub

'此处写上你自己需要执行的宏代码,或调用其他宏过程

End Sub

⑶ excel VBA 建立一个Function来规定日期的范围

A1为输入日期(单元格格式为日期),试下这个

=IF(VALUE(A1)>VALUE("2014-10-18"),A1,"#VALUE")

⑷ 如何用VBA编写限制时间的使用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

rem 代码功能:打开工作簿40分钟后,对工作表进行加密保护:密码mPwd
rem 以下代码,放到thisworkbook代码窗格中
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.ProtectContents Then sh.Unprotect "mPwd"
Next
Application.OnTime Now + TimeValue("0:40:00"), "abc"
End Sub
rem 以下代码,放到模块中
Sub abc()
Dim sh As Worksheet
application.DisplayAlerts=false
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Then sh.Protect "mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
End Sub

⑸ 如何控制vba控件文字框中只允许输入日期

要控制vba控件文字框中只允许输入日期,有多种方法,下面给你一种常用的办法:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1) = False Then

MsgBox "请输入日期"

TextBox1 = ""

End If

End Sub


⑹ 请EXCEL高人写一段VBA代码,让一个表只能在一定的日期内和次数内才能继续下面的VBA代码。


邮件已发送,请查收!(有实例文件,请打开修改测试)

代码介绍:


1、在ThisWorkBook内输入下面代码:

Option Explicit

Private Sub Workbook_Open()
If jiaoyan = False Then Exit Sub
'请在下面输入继续运行的代码!
MsgBox "你好,欢迎继续使用以下代码!", vbInformation, "提示"
End Sub

2、新建一个模块,输入下面代码:

Option Explicit

Function jiaoyan() As Boolean
Dim i As Integer, S As String, Dt As Date
S = GetSetting("MyExcel", "Config", "Date")
If IsDate(S) = False Then
Dt = #1/1/1900#
Else
Dt = CDate(S)
End If
If Dt > #12/31/2013# Then Exit Function '限定一定的日期,请修改!
SaveSetting "MyExcel", "Config", "Date", Date
i = Val(GetSetting("MyExcel", "Config", "Count"))
i = i + 1
If i > 60 Then Exit Function '限定使用次数,请修改!
SaveSetting "MyExcel", "Config", "Count", i
S = Environ("Computername")
If S <> "PC-201002121042" Then Exit Function '限定电脑名称,请修改!
jiaoyan = True
End

3、修改要限制的日期、次数、电脑名称,并保存excel,退出。以后每次打开此文件,都将继续校验,只有符合条件才继续运行后面代码!

⑺ EXCEL高手如何用VBA限制工作簿编辑时间

rem代码功能:打开工作簿40分钟后,对工作表进行加密保护:密码mPwd
rem以下代码,放到thisworkbook代码窗格中
PrivateSubWorkbook_Open()
DimshAsWorksheet
ForEachshInThisWorkbook.Worksheets
Ifsh.ProtectContentsThensh.Unprotect"mPwd"
Next
Application.OnTimeNow+TimeValue("0:40:00"),"abc"
EndSub
rem以下代码,放到模块中
Subabc()
DimshAsWorksheet
application.DisplayAlerts=false
ForEachshInThisWorkbook.Worksheets
IfNotsh.ProtectContentsThensh.Protect"mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
EndSub

⑻ 怎么在VBA设置当当前日期大于2017-09-06时候直接结束,小于的时候就可以使用宏

Subabc()
IfDate<CDate("2017-9-6")Then
Call宏‘执行宏
EndIf
EndSub

⑼ 在VBA里面怎么设置当日期大于20171012日时候

VBA里有自带当前日期的DATE函数啊,代码例句如下:

Public Sub a()

Dim a As Date

a = Date

If a > CDate("2017-10-12") Then Exit Sub Else MsgBox "请继续"

End Sub

'结束过程的语句是exit sub

⑽ VBA时间加减与范围限定

vba中时间可以直接与数值相加减。


如果你要得到一个时间的两秒后的时间可以这么写:


Suba()
DimdAsDate
d=#6/7/20131:00:00PM#
d=d+TimeValue("0:0:2")
Debug.PrintFormat(d,"yyyy-mm-ddhh:mm:ss")
EndSub
阅读全文

与vba日期限制相关的资料

热点内容
黄山五福纠纷 浏览:484
熊胆粉野宝说明书有效期 浏览:867
张磊侵权事件进展 浏览:587
民法有关于物权的规定吗 浏览:337
公共卫生服务其他岗位人员职责 浏览:509
旅顺工商局举报电话 浏览:741
房子年限怎么算 浏览:965
营业执照最有效期4几年 浏览:402
创造与魔法湛蓝星空发 浏览:100
创造与魔法剑齿虎具体位置 浏览:229
质权合同工商局版本 浏览:461
商铺转让合同怎么写 浏览:198
智威创造代理 浏览:89
淘宝如何投诉卖家 浏览:460
幼儿园小班创造游戏 浏览:37
百世投诉网 浏览:238
蛇年限定安妮值多少钱 浏览:370
土豆上传成功版权 浏览:576
字体设计版权价格 浏览:875
做版权书需要了解哪些 浏览:552