×
畅享IT
    信息化规划
    IT总包
    供应商选型
    IT监理
    开发维护外包
    评估维权
客服电话
400-698-9918
当前位置:畅享论坛 >  企业管理  >  财务管理|FMS > 正文
发帖
回复
(共 0 条) 上一页 下一页
查看: 301|回复: 0

[原创]VBA程序试用版本控制代码实践

[复制链接]

等级:试用期
行业:
职能部门:
城市:广州市
金币:116

Public Sub ReadRock()
'
'DeleteSetting "MyVBA", "NB", "RockKey"
    'Dim intTime As Integer
    'SaveSetting "MyVBA", "NB", "RockKey", "10"
    If GetSetting("MyVBA", "NB", "RockKey", "") = "" Then
        SaveSetting "MyVBA", "NB", "RockKey", "10"
    Else
        intTime = CInt(GetSetting("MyVBA", "NB", "RockKey", ""))
        intTime = intTime - 1
        SaveSetting "MyVBA", "NB", "RockKey", intTime
    End If
    If GetSetting("MyVBA", "NB", "RockKey", "") < 0 Then
        Call Warning("试用期满,请联系QQ:369110470")
        ActiveWorkbook.ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        Application.Quit
    End If

    '
End SUb



畅享论坛提示:看帖后顺手回帖,是对辛苦发帖者的鼓励,是美德。

查阅更多相关主题的帖子: vba
(共 0 条) 上一页 下一页
您还未登录,不能对文章发表评论!请先登录
2020-05-29 03:36:53 594/2020-05-29 03:36:53 610/2020-05-29 03:36:53 610