何对一个EXCEL工作表进行使用期限设置

发布网友发布时间：2022-05-01 12:26

共4个回答

热心网友时间：2022-05-24 09:59

那你只能用vba了。
Sub Clear()
If Date = "限定日期" Then
Range("清除范围").ClearContents
End If
End Sub

热心网友时间：2022-05-24 10:00

是权限*么？
权限*；单击工具-保护-保护工作表，按你的要求进行*追问我说的不是权限，别人可以看，但有时间*，比如还可使用3天，3天后就无权限打开了

热心网友时间：2022-05-24 10:00

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("js").Select
A = Cells(1, 1).Value
If A > 0 Then
A = A - 1
Cells(1, 1).Value = A
Sheet1.Visible = True
[D9].Font.ColorIndex = 0
Sheets("js").Visible = False
Sheet3.Visible = False
ActiveWorkbook.Protect password:="123"
ActiveWorkbook.Save
Else
End If
End Sub

Private Sub Workbook_Open()
ActiveWorkbook.Unprotect password:="123"
Sheets("js").Visible = True
Sheets("js").Select
A = Cells(1, 1).Value
If A = 0 Then
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
Else
MsgBox "还可以使用" & A & "次"

End If
End Sub追问你语言代码中的“123”代表什么啊
还有就是我把上段复制VAB编辑窗中时需对哪几个地方作相应修改以适合自己的应用。上面的代码我全部复制不作修改运行时就提示: “ 运行时错误'9' 下标越界 ”该作如何处理

最好是在上面每句代码后面给个中文注释我好试着修改相关内容。谢谢了

热心网友时间：2022-05-24 10:01

不如设置个密码，*访问！