Titus 插件不允许我保存到 PERSONAL.XLSB答案

【问题标题】：Titus add-on won't allow me to save to PERSONAL.XLSBTitus 插件不允许我保存到 PERSONAL.XLSB
【发布时间】：2017-08-24 15:05:03
【问题描述】：

我们使用 Titus 进行分类。我可以将宏保存在本地工作簿中，但无法将任何内容保存到我的通用 PERSONAL.XLSB 工作簿中。无论我选择什么选项，Titus 弹出窗口都不会消失。

明显的原因是 Titus 试图保存到错误的位置，如下图所示。除了禁用 Titus 之外，还有什么解决方法吗？我在 Win10 上，使用 Titus ClassificationSuite 4.5 HF3，Excel 2013。这个确切的宏在我的 Win10 升级之前保存到我的 personal.xlsb 中。（通过升级，我的意思是我得到了一个全新安装的新盒子）

【问题讨论】：

标签： excel add-on

【解决方案1】：

您可能希望在保存之前使用 EnableEvents=False，然后使用 EnableEvents = True。

想法是禁用事件，以便抑制弹出窗口，然后保存文件。保存操作完成后，我们希望启用事件。

Titus 是一个 Com 插件，通常在上可见

根据您选择的内容设置 CustomDocumentProperties。您可以通过单击文件-->信息-->高级属性来找到它，如下所示

现在这就是您以编程方式添加 customProperties 的方式

Application.EnableEvents = False
With ActiveWorkbook.CustomDocumentProperties
.Add "CompanyClassification", False, msoPropertyTypeString, "Company-Public"
.Add "CompanyClassification", False, msoPropertyTypeString, "Company-Internal"
.Add "CompanyClassification", False, msoPropertyTypeString, "Company-Confidential"
.Add "CompanyClassification", False, msoPropertyTypeString, "Company-Secret"
End With
'Do the Save Operation here. Also if your company wants to Comply with EU GDPR (European General Data Protection Regulatory) then add the appropriate footer (Internal/Public/....) 
Application.EnableEvents = True

我希望这能让您对如何前进有所了解。

【讨论】：

【解决方案2】：

我发现，如果您编辑 Personal.xlsb 工作簿，并使用 BeforeClose 方法，则：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
End Sub

然后调用 BeforeClose 方法重新启用：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = True
End Sub

【讨论】：