如何检查当前打开的excel文件是否以只读模式打开？

Question

开放：我一直在寻找这里问题的一些答案。我希望我的谷歌没有生锈，但我找不到任何有用的东西。我尝试过没有运气的东西。

问题：我有一个由多个用户使用的文档。短暂的文件是以只读模式以这种或那种方式结束，他们忘记了只读（或者他们只是按下Okay按钮而不阅读警告）。您仍然可以正常操作工作表中的所有内容。

通过工作表和宏的正常操作，工作簿将在完成宏时自动保存。

有没有办法检查（打开工作表）您的版本是否以只读模式打开？我想介绍一些代码，以防止在Read Only中使用它时使用main函数（禁用工作簿宏）。

理想的解决方案：有一个我可以调用的函数来检查工作簿的只读状态。

例：

Public Function ReadOnlyMode () as Bool

'Code that I don't know how to write for the funtion
return True/False

End Function

Answer 1

使用以下方法进行测试

If ActiveWorkbook.ReadOnly Then  'If True

请参阅.ReadOnly属性说明。

Workbook.ReadOnly Property（Excel）

如果对象已以只读方式打开，则返回True。只读布尔值。