【发布时间】：2017-08-03 18:39:00
【问题描述】：
我目前正在通过网络文件即时更新ActiveWorkbook 中的Worksheet。
我想将此 Ws 从 ActiveWorkbook 移动到 XLA Add-In。
如果我这样做了，如果 XLA 插件受密码保护，我是否仍然能够更新它（即更新数据然后保存 XLA 插件）？像这样的工作吗？
Private Sub updateMyXLASheet(ByVal MyDataArray as Variant)
ThisWorkbook.Sheet("myXLADataSheet").Range("myDataArrayGoesHere").Value = MyDataArray
Application.DislayAlertes = False
ThisWorkbook.Save
Application.DislayAlertes = True
End Sub
（ThisWorkbook 是 XLA Add-In 工作簿）
【问题讨论】：
-
很容易测试 - 你试过了吗？
-
@TimWilliams。这就是我刚刚成功完成的:-D。 PS：我的宏相当大/复杂，我只花了几个小时用正确的
ActiveWorkbook/ThisWorkbook/myDataWorkbook替换数百个ThisWorkbook引用。 （而且由于这是 a 第一次处理复杂的XLA Add-In，实际上并没有那么容易。）但是，我刚刚发现 Excel 不允许我在ActiveWorkbook中定义Names引用ThisWorkbook... -
当您尝试添加名称时会发生什么？我刚刚从一个加载项运行这个没有问题：
ActiveWorkbook.Names.Add "Test", ThisWorkbook.Sheets(1).Range("A1") -
实际上，我可以成功创建引用
XLA Add-In的Names，但是如果我保存并关闭ActiveWorkbook，当我再次打开它时链接更新将失败...编辑：似乎我错了，Names确实工作正常......