使用vba设置Azure保护的敏感性标签

6za6bjd0  于 2023-06-06  发布在  其他
关注(0)|答案(1)|浏览(440)

使用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.labelInfosensitevitylabel是否有任何引用,我应该首先启用哪个?

相关问题