Hi All,
I have came across a requirement where I have to change the Excel file's Sensitivity label to Confidential before saving the file. Now I know the Excel VBA Code of it, however I was not able to make it workable via code stage. Can anyone help me on this?
--------------------------------------------------------------------------------------------------------------------------------
Here is the VBA Code:
Sub SetSensitivityLabelConfidential()
Dim myLabelInfo As Office.LabelInfo
Dim Context As Variant
Dim objWorkbook As Workbook
Dim SConfidential As String
Set objWorkbook = ActiveWorkbook
Set myLabelInfo = objWorkbook.SensitivityLabel.CreateLabelInfo()
Set Context = CreateObject("Scripting.Dictionary")
With myLabelInfo
.AssignmentMethod = MsoAssignmentMethod.PRIVILEGED '1
.ContentBits = 4
.IsEnabled = True
.Justification = "Write Your Reason"
.LabelId = "Your Organization alpha numberic code for Confidential type"
.LabelName = "Confidential"
.SetDate = Now()
End With
objWorkbook.SensitivityLabel.SetLabel myLabelInfo, Context
End Sub
--------------------------------------------------------------------------------
Thanks & Regards,
Pawan Panjwani
------------------------------
Pawan Panjwani
------------------------------
