Titus附加组件不允许我保存到PERSONAL.XLSB

Question

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

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

Answer 1

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

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

Titus是一个Com Addin，通常在

上可见

根据您选择的内容，设置CustomDocumentProperties。您可以点击文件 - ＆gt;信息 - ＆gt; Adavnced Properties找到此信息，如下所示

现在，这是以编程方式添加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

我希望这能让你知道如何前进。

Answer 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