Excel のテーブルを開くたびに使用回数が 1 つ減っていきますので、1000 回開く場合は 1000 回と設定します。

Private Sub Workbook_Open()
    ' 获取当前使用次数
    Dim usageCount As Integer
    usageCount = Sheets("Settings").Range("A1").Value

    ' 判断是否还有剩余使用次数
    If usageCount > 0 Then
        ' 减少使用次数
        Sheets("Settings").Range("A1").Value = usageCount - 1
        MsgBox "剩余使用次数：" & (usageCount - 1)
    Else
        ' 提示使用次数已用尽
        MsgBox "使用次数已用尽，无法再打开。"
        ' 关闭Excel表
        ThisWorkbook.Close
    End If
End Sub

Private Sub Workbook_Open()
    ' 指定使用次数存储的工作表和单元格
    Dim ws As Worksheet
    Dim countCell As Range
    Set ws = Worksheets("Settings")
    Set countCell = ws.Range("A1")

    ' 获取当前使用次数
    Dim usageCount As Integer
    usageCount = countCell.Value

    ' 判断是否还有剩余使用次数
    If usageCount > 0 Then
        ' 减少使用次数
        countCell.Value = usageCount - 1
        MsgBox "剩余使用次数：" & (usageCount - 1)
    Else
        ' 提示使用次数已用尽
        MsgBox "使用次数已用尽，无法再打开。"
        ' 关闭Excel表
        ThisWorkbook.Close
    End If
End Sub