Office中国论坛/Access中国论坛
标题:
[原创]设置Excel VBA程序使用期限
[打印本页]
作者:
fjzjyan
时间:
2007-1-22 01:49
标题:
[原创]设置Excel VBA程序使用期限
1、用户窗体“确定”按钮代码
Private Sub CommandButton1_Click()
Dim rg As Range
Set rg = ws.[c9]
If Text1.Text = "123456" Then
MsgBox "欢迎进入VBA数据库开发课堂", vbOKOnly + vbInformation, "提示"
rg = "你对知识的渴望正是我们生生不息的源动力"
rg.Font.Color = RGB(255, 0, 0)
rg.Font.Name = "宋体"
rg.Font.Bold = True
rg.Font.Size = 12
Unload Me
Else
MsgBox "你输入的密码错误,请重新输入", vbOKOnly + vbInformation, "错误提示"
Text1.Text = ""
Text1.SetFocus '获得焦点
End If
End Sub
2、用户窗体“取消”按钮代码
Private Sub CommandButton2_Click()
Unload Me
ActiveWorkbook.Close (False) '不显示保存对话框
End Sub
3、模块使用期限(syqx)代码
Sub drrj()
'不让屏幕刷新
Application.ScreenUpdating = False
Dim i As Integer
Dim x As Integer
Dim n As Integer
drsj.Visible = xlSheetVisible
'统计当前数据区域的总行数
i = drsj.[a1].CurrentRegion.Rows.Count
'如果错误就跳过
On Error Resume Next
If drsj.[a1] = "" Then
drsj.[a1] = Now
drsj.Visible = xlSheetVeryHidden
Exit Sub
End If
drsj.Cells(i + 1, 1).Value = Now
x = drsj.Cells(i + 1, 1).Value - drsj.Cells(i, 1).Value
n = drsj.Cells(i + 1, 1).Value - drsj.Cells(1, 1).Value
drsj.Visible = xlSheetVeryHidden
If n > 60 Or x < -1 Then
MsgBox "你的试用期已过,请与管理员联系"
<FONT face="Times New Ro
作者:
guess169
时间:
2007-4-6 05:53
试试
作者:
小白兔
时间:
2007-5-9 22:03
能行吗?看不懂VBA语句啊,真汗![em04]
作者:
zwdong
时间:
2007-5-23 17:57
好,支持
作者:
太阳火
时间:
2009-3-3 16:33
顶顶顶顶顶
作者:
meteorxp
时间:
2009-4-10 09:06
作者:
刘青梅
时间:
2016-12-3 18:10
顶顶顶顶顶
作者:
唐波
时间:
2019-4-12 20:36
60天许可
?????
作者:
wuwu200222
时间:
2020-4-24 15:58
学习
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3