怎样给Excel设置使用日期，到期后自动关闭无法操作。

H228860118

求助大神怎样给Excel设置使用日期，到期后自动关闭无法操作。谢谢.

你是那块小饼干

似乎需要使用VBA

H228860118

你是那块小饼干 发表于 2024-10-19 13:31
似乎需要使用VBA

那就是板块发错了

哈喽哈哈1

1. Private Sub Workbook_Open()
   
2.     Dim expiryDate As Date
   
3.     expiryDate = #1/1/2024# ' 设置你的到期日期
   
4. 
   
5.     If Date > expiryDate Then
   
6.         MsgBox "此工作簿已到期，无法继续使用。", vbCritical
   
7.         ThisWorkbook.Close SaveChanges:=False
   
8.     End If
   
9. End Sub
   

复制代码

hxj119

此功能公式做不到！！！