限制次数

Private Sub Workbook_Open() Application.ScreenUpdating = False Application.Visible = False Dim i As Integer Const sum = 120 On Error Resume Next Dim mycount 'Worksheets("设置").Range("iv1").Value = "" mycount = Worksheets("设置").Range("iv1").Value + 1 Worksheets("设置").Range("iv1").Value = mycount ActiveWorkbook.Save If mycount > sum Then MsgBox "你试用已超过" & mycount - sum & "次，系统将被关闭，如想继续使用，请与灰埠镇财政所话联系!", vbExclamation, "请注册....." Application.Quit ActiveWorkbook.Close savechanges:=False Else MsgBox "这是一个试用版，你可以试用" & sum & "次,已使用" & mycount & "次,还可试用" & sum - mycount & "次。" & Chr(13) & Chr(13) & "若你在试用中有任何问题，请与灰埠镇财政所联系！", vbInformation, "欢迎试用......" Application.Visible = True End If Application.ScreenUpdating = True End Sub