如果对象以只读方式打开，则返回 True。 只读 Boolean。
语法
表达式。ReadOnly
表达 一个代表 Workbook 对象的变量。
示例
如果当前工作簿是只读的，则此示例将此工作簿另存为 Newfile.xls。
If ActiveWorkbook.ReadOnly Then
ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS"
End If
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。