如何限制工作表使用次数

bucgdq

老师，如何设置工作表限制使用次数

bucgdq

麻烦各位老师帮弄一下，谢谢

maditate

大方一点，让大家多用几次没关系的。

doul123

大方一点，让大家多用几次没关系的。

philijian

就在某个工作表的某个单元格记录次数，每次workbook_open的时候+1，如果到5次就activeworkbook.close false呗；工作表用代码设置.visible为xlhidden或xlveryhidden，这样别人也看不到

wenzili

philijian 发表于 2017-4-26 22:00
就在某个工作表的某个单元格记录次数，每次workbook_open的时候+1，如果到5次就activeworkbook.close false ...

可以在名称中记录次数，试试在thisworkbook加入，如下代码
Private Sub Workbook_Open()
counts
End Sub


Public Sub counts()
Dim i As Integer
Application.DisplayAlerts = False
On Error Resume Next
i = [counttimes] + 1
If Err.Number = 13 Then
Names.Add Name:="Counttimes", RefersTo:=0
i = [counttimes] + 1
End If
Names.Add Name:="Counttimes", RefersTo:=i
ThisWorkbook.Save
If [counttimes] > 5 Then
    Cells.Clear
    ThisWorkbook.Save
End If
End Sub

bucgdq

我把代码复制进去咋不得行呢？麻烦帮我处理一下，把处理后的表格上传一下，谢谢

wenzili

代码要放在thisworkbook模块下

lsc900707

基础的东西不用心，没用的东西倒是很上心的。

lzqlaj

借助宏表函数完成。具才软件里有类似的做法。