当只读属性属性勾选时，Excel VBA宏为文件提供写访问权限

Question

我的Excel文件已勾选此属性，我想要。

因此它以只读方式打开。该文件偶尔需要编辑和保存。

最好有一个可以运行的宏（1）（当文件以只读方式打开时），它会在原位切换到Write Access。

然后我会进行更改并运行macro（2），使其再次成为只读状态。

这样我就不必在进入编辑之前取消选中属性属性，因为有时你甚至不知道是否需要编辑。

Answer 1

你可以使用这样的例程：

Sub MakeReadOnly(sFile As String, Optional bReadOnly As Boolean = True)
    SetAttr sFile, IIf(bReadOnly, vbReadOnly, vbNormal)
End Sub

这样称呼它使它只读：

MakeReadOnly "C:\blah.xlsx"

并清除只读：

MakeReadOnly "C:\blah.xlsx", False

理想情况下，您可以交换这些位，这样您就不会影响其他属性，但这应该在这里完成。