VBA to set Sensitivity Label

[adilsabirazeez]

Hi,

I am generating a set of excel files into a folder. I want to set the sensitivity label of all these files to a particular category like "Highly Confidential". I am not able to find VBA to automate this.

If anyone has any solution, then please post it.

Thanks in advance.

 

[6StringJazzer]

Excel does not have a built-in "sensitivity label" feature so you must need something that is customized. What form would you like this label to take? File metadata (custom property)? Watermark? Header? Footer? Part of the file name?

 

[Micron]

Seems it's an IT tech supported thing

Learn about sensitivity labels

Learn how sensitivity labels from Microsoft Purview Information Protection can protect your organization's sensitive content, wherever it's stored.

docs.microsoft.com

 

[6StringJazzer]

I was not familiar with this. It appears to be a feature that is added on at the enterprise level, not something that is a built-in Excel feature. Sorry, but I can't even research it if it's not available in my environment.

 

[adilsabirazeez]

Excel does not have a built-in "sensitivity label" feature so you must need something that is customized. What form would you like this label to take? File metadata (custom property)? Watermark? Header? Footer? Part of the file name?

Custom property

 

[adilsabirazeez]

Yes enterprise level! No Problem

I was not familiar with this. It appears to be a feature that is added on at the enterprise level, not something that is a built-in Excel feature. Sorry, but I can't even research it if it's not available in my environment.

 

[Sholt]

If a sensitivity label hasn't been applied to it as of yet then I found the easiest way to do this is to create a template and set the sensitivity label in it. I then just import the data into the template and save as. It will save the template sensitivity settings with it.

 

[VisKe001]

Hi All, do we have any solution on this? I'm also looking for similar help in my VBA code

 

[rmagedyn]

So, I got it to work with the following code, derived from the example here:

Dim lblInfo As Office.LabelInfo
Dim noSenseLabel As SensitivityLabel
Set xlSQL = CreateObject("Excel.Application")
xlSQL.Visible = False
'xlSQL.Visible = True

If xlSQS Is Nothing Then
    Set xlSQS = xlSQL.Workbooks.Add
    Set noSenseLabel = xlSQS.SensitivityLabel
    Set lblInfo = noSenseLabel.CreateLabelInfo()
    
    With lblInfo
        .AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
        .LabelId = "9203368f-916c-4d59-8292-9f1c6a1e8f39"
        .LabelName = "MyLabelName"
        .SiteId = "6c15903a-880e-4e17-818a-6cb4f7935615"
    End With
    
    noSenseLabel.SetLabel lblInfo, lblInfo
    
    xlSQS.SaveAs xlFn, 51

    'Set noSenseLabel = xlSQS.SensitivityLabel
    'Set lblInfo = noSenseLabel.GetLabel()
    'Debug.Print lblInfo.LabelId
    'Debug.Print lblInfo.LabelName
    'Debug.Print lblInfo.SiteId

Else
End If

The trick is getting the LabelId and SiteId. As long as the file or document is "Visible," the prompt to manually select the Sensitivity Level will show up after the attempt to save the document. The commented-out code should help you get that info for your enterprise, after the initial doc is saved. Then you can just replace with your company's info.

 

[KF2806]

So, I got it to work with the following code, derived from the example here:

Dim lblInfo As Office.LabelInfo
Dim noSenseLabel As SensitivityLabel
Set xlSQL = CreateObject("Excel.Application")
xlSQL.Visible = False
'xlSQL.Visible = True

If xlSQS Is Nothing Then
    Set xlSQS = xlSQL.Workbooks.Add
    Set noSenseLabel = xlSQS.SensitivityLabel
    Set lblInfo = noSenseLabel.CreateLabelInfo()
   
    With lblInfo
        .AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
        .LabelId = "9203368f-916c-4d59-8292-9f1c6a1e8f39"
        .LabelName = "MyLabelName"
        .SiteId = "6c15903a-880e-4e17-818a-6cb4f7935615"
    End With
   
    noSenseLabel.SetLabel lblInfo, lblInfo
   
    xlSQS.SaveAs xlFn, 51

    'Set noSenseLabel = xlSQS.SensitivityLabel
    'Set lblInfo = noSenseLabel.GetLabel()
    'Debug.Print lblInfo.LabelId
    'Debug.Print lblInfo.LabelName
    'Debug.Print lblInfo.SiteId

Else
End If

The trick is getting the LabelId and SiteId. As long as the file or document is "Visible," the prompt to manually select the Sensitivity Level will show up after the attempt to save the document. The commented-out code should help you get that info for your enterprise, after the initial doc is saved. Then you can just replace with your company's info.

Hello rmagedyn,
I have the same problem, but i couldn't get your example to work. It seems the setting for xlSQS is missing. Any help would be really appreciated.

Thanks in advance
Bernd