Question

我是一个相对新手的程序员，这是我在Stack上的第一个问题，所以请耐心等待：

我正在尝试在一个电子表格上编写宏，该电子表格将自动更新SharePoint上的另一个电子表格。我遇到的问题是该文档受密码保护。

我已经能够使用vba打开文档了，但是为了将更改保存到SharePoint站点，我还需要检查工作簿并重新检入。这是我到目前为止的代码：

Sub Open_Document()

'Declare and define variables
Dim document As Workbook
Dim documentName As String
documentName = "\\anonymousSharepointSite\document.xlsm"

'If document is not already checked out, check out and open
If Workbooks.CanCheckOut(documentName) Then
    Workbooks.CheckOut (documentName)
    Set document = Workbooks.Open(fileName:=documentName, Password:="XXX")
Else
    MsgBox ("Can't check out")
End If

End Sub

我的目标是让程序在不询问用户密码的情况下打开并签出“文档”。截至目前，Workbooks.Open方法包含Password参数并且工作正常，但Workbooks.CheckOut方法正在调用另外的密码提示，我不确定如何管理。

在我的研究中，除了文件名之外，我还没有找到Workbooks.CheckOut的任何其他参数。例如，我尝试了以下操作，但未定义Password参数。

Workbooks.Checkout Filename:=document, Password:="XXX"

我做错了什么？如何使用VBA输入此文档的密码，就像使用Workbooks.Open方法一样？

就像我说的，这是我第一次在Stack上提问，所以如果问题不清楚或含糊不清，我会道歉。如果有困惑，我会很乐意清理。

我很感激帮助！

使用VBA从Sharepoint签出并打开受保护的Excel工作簿

0 个答案: