excel - 如何通过excel VBA以只读方式打开电子表格中的嵌入对象

Question

我在运行 VBA 代码的工作簿的隐藏工作表中嵌入了很少的对象。这些对象(word、excel、pdf 等)只是模板，我需要在单击命令按钮时打开这些对象的副本或以只读方式打开这些对象，以便模板内容保持不变。

我在互联网上搜索过，但没有找到以只读方式打开这些嵌入对象的方法。我正在运行此代码，但另存为操作不成功。

Private Sub M114_Click()
Dim WDObj As Object
Dim WDApp As Object

Set WDApp = GetObject(, "Word.Application")
Set WDObj = Sheets("Tools").OLEObjects("MO")

WDObj.Activate

WDApp.ActiveDocument.SaveAs ("MO_copy.doc")
Set WDObj = Nothing
Set WDApp = Nothing
End Sub

Answer 1

您需要保护文档以防止更改 之前 你把它嵌入到 Excel 中。

以 Word 文档为例:

您可以使用 Word 的保护功能对其进行保护，并且可以选择为不同的用户授予不同的权限。

转至Review功能区上的选项卡。

在 保护 群，点击 Restrict Editing

在屏幕一侧的“限制编辑”选项的第 2 部分中，选中“ 仅允许这种类型的编辑 ”框，并确保将下拉菜单设置为 **No Changes (Read Only)**。 .

根据需要设置其他保护选项。

在第 3 部分单击是，开始强制执行。

保存并关闭文档，然后嵌入到您的 Excel 文件中。

或者，如果您的嵌入对象链接到源文件，您可以在 Windows 文件属性中将该文件设置为只读。如果对象未链接到文件，这将不起作用。