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/)