使用vba宏在Excel中创建新工作簿时会出现此弹出消息,该宏必须手动设置,并且会暂时停止代码。
我已经看到了一些潜在的解决方案,如this
Sub SetLabelInfo()
Dim myLabelInfo As Office.LabelInfo
Set myLabelInfo = Application.ActiveDocument.SensitivityLabel.CreateLabelInfo()
With myLabelInfo
.ActionId = "5cc46055-305d-4bc1-8f5f-5edf82231378"
.AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
.ContentBits = 4
.IsEnabled = True
.Justification = "Some justification needed only if downgrading label."
.LabelId = "9203368f-916c-4d59-8292-9f1c6a1e8f39"
.LabelName = "MyLabelName"
.SetDate = Now()
.SiteId = "6c15903a-880e-4e17-818a-6cb4f7935615"
End With
End Sub
但我甚至不能访问对象office.labelInfo
或sensitevitylabel
是否有任何引用,我应该首先启用哪个?
1条答案
按热度按时间kupeojn61#
Microsoft Office 16.0对象库