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