链接到密码保护的工作簿

这是我想要做的。 我广泛search没有成功。 我有两个传播 。 Book1 Book2用密码open = "green"

书1有单元格A1 ='C:\[Book2.xlsm]Sheet1'!A1的公式

我想我的macros将Book1单元格A1中的公式复制到A2，以便它从密码保护的Book2中拾取引用A2。 问题是它不断popup要求密码。 我想在没有打开Book2的情况下自动input该密码。 粘贴新公式后，我无法立即通过密码popup。

任何帮助非常感谢。 我目前使用的代码是：

 Sub Macro1() Range("A1").Select Selection.Copy Range("A2").Select ActiveSheet.Paste UpDateLinks End Sub Sub UpDateLinks() Const PWord As String = "green" Dim xlLinks Dim i As Integer xlLinks = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(xlLinks) Then For i = 1 To UBound(xlLinks) SendKeys PWord & "{Enter}" ThisWorkbook.UpdateLink Name:=xlLinks(i) Next i End If End Sub 

Answer 1

您可以在一个工作簿中实现这一点。 将数据表的可见属性设置为xlVeryHidden，然后将密码设置为VBA。 然后无法从用户界面中取消隐藏表格