高难度！怎么在excel文件中限制这个文件打开的次数啊？请高手来解决一下哦

smhf_6

对于此类限制性的代码，加密的还好，特别是到期　或　到次就删除的，您在收藏时，如果是EXCEL，就应该注释掉，若是WORD则没问题，
否则时间一长，忘了，自己刚一打开，没了

7786910

学习 .不知怎么操作才有效

7786910

使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1)
If k > 4 Then
ActiveWorkbook.Protect Password:="888888", structure:=True, Windows:=True
ActiveWorkbook.Password = "888888"
End If
k = k + 1
SaveSetting "MyApp", "Startup", "aaa", k
End Sub

可以测试通过

djyang

smhf_6 发表于 2010-7-15 19:23
使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Start ...

另存后照样有3次

mtxj

哪位大神能提供个压缩文档？可以参考学习下

lizhipei78

smhf_6 发表于 2010-7-15 19:23
使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Start ...

厉害，居然有这种操作

1245752336

加一个10次后自动删除的
Private Sub workbook_open()
    Dim t As Integer
    t = ActiveSheet.Cells(1, 255).Value
    t = t + 1
    ActiveSheet.Cells(1, 255) = t
    If t > 7 And t <= 10 Then
        MsgBox "本工作簿只允许使用10次，现在还可以使用" & 10 - t & "次！", vbCritical + vbOKOnly
    ElseIf t > 10 Then
        MsgBox "本工作簿只允许使用10次，现在次数已用完" & vbNewLine & "工作簿将自动删除", vbCritical + vbOKOnly
        ActiveWorkbook.ChangeFileAccess xlReadOnly  '改一下文件访问权限，不然删不了
        Kill ActiveWorkbook.FullName
        Me.Saved = True
        Application.Quit
    End If
End Sub