I would like to contribute on how I managed to solve it.
In my case, my code works to add sensitivity label with VBA Access, that is, Access opens a spreadsheet and assigns a sensitivity label.
To figure out which label to use, I created a spreadsheet and manually assigned it. Then, open the spreadsheet using the code and identify the ID to continue. I call with a buttons.
'--------------- ID identification
Sub GetSensitivityID()
Dim myLabelInfo As Office.LabelInfo
Dim XL As Object
Dim Cell As Variant
Set XL = CreateObject("Excel.Application")
With XL
.Visible = False
.displayalerts = False
.Workbooks.Open "C:\Users\CS33\Documents\4.PMO\3.Raizen\SGR\Arquivo não compilado\TemplateSafran.xlsx"
Set myLabelInfo = ActiveWorkbook.SensitivityLabel.GetLabel()
Rótulo190 = myLabelInfo.LabelId 'Este rótulo serve para verfificar o ID
.ActiveWorkbook.Close (True)
End With
Set XL = Nothing
'Set myLabelInfo = ActiveWorkbook.SensitivityLabel.GetLabel()
'Debug.Print myLabelInfo.LabelId
End Sub
'--------------- ID identification
'--------------- ID assignment
Dim XL As Object
Dim Cell As Variant
Set XL = CreateObject("Excel.Application")
With XL
.Visible = False
.displayalerts = False
.Workbooks.Open "C:\Users\CS33\Documents\4.PMO\3.Raizen\SGR\Arquivo não compilado\TemplateSafran.xlsx"
Dim myLabelInfo As Office.LabelInfo
Dim Context As Variant
Dim objWorkbook As Workbook
Dim sInterno As String
Set objWorkbook = ActiveWorkbook
Set myLabelInfo = objWorkbook.SensitivityLabel.CreateLabelInfo()
Set Context = CreateObject("Scripting.Dictionary")
sInterno = "0c6b9222-ff7d-4c6e-80fc-d2dead453d3c"
With myLabelInfo
.AssignmentMethod = MsoAssignmentMethod.PRIVILEGED '1
.ContentBits = 4
.IsEnabled = True
.Justification = "Because" 'Make this whatever you want
.LabelId = sInterno
.LabelName = LblName
.SetDate = Now()
End With
objWorkbook.SensitivityLabel.SetLabel myLabelInfo, Context
.ActiveWorkbook.Close (True)
.Quit
End With
Set XL = Nothing
'--------------- ID assignment
