Hallo VBA-Spezialisten,
wie kann man vor dem Speichern einer Excel-Datei den Sensivitylabel auf "Vertraulich" setzen? Ich habe dazu folgendes Makro gefunden:
Sub setlabel()
Dim docSenseLabel As SensitivityLabel
Dim labelInfo As Office.labelInfo
Dim wb As Workbook
Set wb = Activeworkbook
Set docSenseLabel = wb.SensitivityLabel
Set labelInfo = docSenseLabel.CreateLabelInfo()
With labelInfo
.AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
.LabelId = "the labelId you got"
.LabelName = "Important or whatever label you saved earlier"
.SiteId = "the site Id you got"
End With
docSenseLabel.setlabel labelInfo, labelInfo
wb.SaveAs Filename:="U:\Daten\LabelTest.xlsx", FileFormat:=51
End Sub
Leider ist mir nicht klar, was ich bei .LabelId, .LabelName und .SiteId eintragen soll :-( Entsprechend funktioniert der Befehl docSenseLabel.setlabel labelInfo, labelInfo auch leider nicht.
Vielen Dank für eure Unterstützung und Hilfestellung!
PeTeR