以下是源代码: Sub SaveRngToJpg(imagePath As String, sheetName As String, rangeInfo As String) Dim rng As Range
Private Sub Workbook_Open() ' 设置禁止编辑的时间,例如:2022年1月1日 00:00:00 Dim lockTime As Date lockTime = #1/1/2022# ' 检查当前时间是否超过设定的禁止编辑时间 If