excel连续打开3个小时自动变成只读文件
Public Sub test()
If Timer - start_time >= 50 Then '3个小时,就把50换成10800
Application。DisplayAlerts = False
ActiveWorkbook。 Save
ActiveWorkbook。ChangeFileAccess xlReadOnly
Application。DisplayAlerts = True
Exit Sub
End If
Application。 OnTime Now() + TimeValue("00:00:01"), "test"
End Sub。全部
Public Sub test()
If Timer - start_time >= 50 Then '3个小时,就把50换成10800
Application。DisplayAlerts = False
ActiveWorkbook。
Save
ActiveWorkbook。ChangeFileAccess xlReadOnly
Application。DisplayAlerts = True
Exit Sub
End If
Application。
OnTime Now() + TimeValue("00:00:01"), "test"
End Sub。收起