Titus附加组件不允许我保存到PERSONAL.XLSB [英] Titus add-on won't allow me to save to PERSONAL.XLSB

问题描述

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

We use Titus for classification. I can save a macro in a local workbook, but I can't save anything to my universal PERSONAL.XLSB workbook. The Titus pop up won't go away no matter what options I choose.

明显的原因是Titus试图将其保存到错误的位置，如下图所示.除了禁用Titus之外，还有其他解决方法吗?我使用的是Win10，使用的是Titus分类套件4.5 HF3，Excel2013.在Win10升级之前，此确切的宏已保存到我的personal.xlsb中.(通过升级，我的意思是我得到了一个带有全新安装的新包装)

The apparent cause is that Titus is trying to save to the wrong place, as shown in the picture below. Is there any fix for this other than disabling Titus? I'm on Win10, using Titus ClassificationSuite 4.5 HF3, Excel 2013. This exact macro saved to my personal.xlsb before my Win10 upgrade. (And by upgrade, I mean I got a new box with a fresh install)

推荐答案

在保存之前，您可能想使用EnableEvents = False，然后使能EnableEvents = True.

You may want to use EnableEvents=False before saving and then EnableEvents = True.

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

The Idea is to disable the events so the popup is supressed and then save the file. Once the save operation is done we'd want to enable the events.

Titus是Com插件，通常可以在

Titus is a Com Addin and usually this is visible on the

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

Depending upon what you select the CustomDocumentProperties are set. You can find this by clicking File-->Info-->Adavnced Properties as shown here

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

Now this is how you'd add customProperties programatically

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

我希望这能给您一个前进的思路.

I hope this should give you an idea on how to go forward.

这篇关于Titus附加组件不允许我保存到PERSONAL.XLSB的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！