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

Question

开场白:我已经研究了很长时间，寻找这里问题的一些答案。我希望我的 Google-fu 不会生锈，但我找不到任何有用的东西。我已经尝试过我发现的东西，但没有运气。

问题:我有一份文档被多个用户使用。简而言之，文档以某种方式最终处于只读模式，并且他们忘记了它的只读模式(或者他们只是按“确定”按钮而不阅读警告)。您仍然可以正常操作工作表中的所有内容。

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

有什么方法可以检查(在工作表打开的情况下)您所拥有的版本是否以只读模式打开？我想介绍一些代码，以防止在只读模式下使用 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 属性 (Excel)

Returns True if the object has been opened as read-only. Read-only Boolean .