ReadOnly 属性

如果指定工作簿以只读方式打开，则该值为 True。Boolean 类型，只读。

示例

如果当前工作簿是只读的，则本示例将此工作簿另存为 Newfile.xls。

If ActiveWorkbook.ReadOnly Then
    ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS"
End If