用途:判斷目前開啟檔案是否唯讀狀態,
判斷EXCEL檔案是否更新與寫入資料
Sub Check_ReadOnly()
'--判斷檔案是否唯讀'
If ActiveWorkbook.ReadOnly = True Then
MsgBox "唯讀"
Else
MsgBox "讀寫"
End If
End Sub
判斷EXCEL檔案是否更新與寫入資料
Sub Check_ReadOnly()
'--判斷檔案是否唯讀'
If ActiveWorkbook.ReadOnly = True Then
MsgBox "唯讀"
Else
MsgBox "讀寫"
End If
End Sub