打开只读工作簿进行编辑

我试图自动更新服务器上的文件，只读为每个人都可以访问。 编辑只为less数人使用。 因此，它是密码保护，但只用于编辑，而不是开放。

我试图写一个macros来打开一个密码保护的文件，但只适用于打开文件的保护。 我尝试了下面的代码，因为别人认为它可能有助于展示广告和/或忽略，但这并没有帮助。 我不断得到一个popup窗口，说：“input密码写访问，或打开只读”。 我甚至试过SendKeysinput密码，但比popup式显示太。

任何我可能没有的build议？

Application.DisplayAlerts = False Workbooks.Open Filename:="test.xlsx", IgnoreReadOnlyRecommended:=True, Password:="password", ReadOnly:=False Application.DisplayAlerts = True 

Answer 1

 Sub test() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim wb As Workbook Dim fFilename As String fFilename = "C:\Documents and Settings\Desktop\test.xlsx" SetAttr fFilename, vbNormal Set wb = Workbooks.Open(fFilename, Password:="test") wb.Worksheets("sheet1").Range("A1").Value = "Hello" wb.Close SaveChanges:=True ' It will set the File back to Read only SetAttr fFilename, vbReadOnly End Sub