VBA Error _ Add Sensitivity label

[Mallesh23]

Hi Team,

While saving a workbook via vba , I am getting one pop up message
Add Sensitivity label , how to disable this message.

via vba please help. thanks in advance !



I am getting erorr at at below line
nwbk.SaveAs Filename:=newFilePath, FileFormat:=xlOpenXMLWorkbook

Sub test()
   Dim Cl As Range
   
   
   newFilePath = "D:\output\test.xlsx"
   
   Dim nwbk As Workbook
   Set nwbk = Workbooks.Add
   
   Dim ws As Worksheet
   Set ws = nwbk.ActiveSheet
   
   ws.Range("a1").Value = "Hi"
   
   
    
    Application.DisplayAlerts = False
    On Error Resume Next
    nwbk.SaveAs Filename:=newFilePath, FileFormat:=xlOpenXMLWorkbook  'pop up message
    
    Application.DisplayAlerts = True
    
    
End Sub

Thanks
mg

 

[MikeVol]

Hello @Mallesh23.
Your error does not reproduce for me. The file is created and saved in the specified directory with the specified name without a single error or message. The code is working.

 

[MARK858]

@Mallesh23 see the article below if your company has set sensitivity labels (but easier to talk to your IT Dept. about it as they should have explained it)

Change Sensitivity Label Programatically

This code will allow you to change a workbook's Sensitivity Label using VBA. It seems that each company gets to decide what those labels are. I also believe that each of those has a ID unique to that company. Each ID needs to be in this...

www.mrexcel.com

 

[Mallesh23]

Hi Mark,

I tried above code , still it is asking me
add Sensitivity label while saving a workbook.




thanks
mg

 

[MARK858]

Can you not just set the sensitivity label for the document manually from your Home tab or your Windows bar?

 

[Mallesh23]

I tried that , set to Internal -General Use

But everytime macro runs new workbook is created with time stamp attached to it

I get pop up message Add sensitity label

select a label , with below dropdown

Internal - General Use
Public
Personal - Individual Use
Confidential

also cancel option is there

plz help how to disable or select confidential or cancel it. I am using office 365


Thanks
mg

 

[MARK858]

plz help how to disable or select confidential or cancel it. I am using office 365

It is a security measure set by your company, we do advise (even if we could) on how to disable, cancel or get around security measures on this forum.

You can try saving the workbook manually after setting the label

then run the code below

Sub getlabel()
    Dim myLabelInfo As Office.LabelInfo
    Dim labelpart1 As String, labelpart2 As String

    Set wb = ThisWorkbook

    Set myLabelInfo = wb.SensitivityLabel.getlabel()

    labelpart1 = myLabelInfo.LabelId
    labelpart2 = myLabelInfo.SiteId

    With Sheets("Sheet1")                        ' change Sheet1 to an empty sheet

        .Range("A1").Value = labelpart1 ' Label ID
        .Range("A2").Value = labelpart2 ' Site ID

    End With


End Sub

Then use the information it gives you as per the below followed by your save line on the other files

Dim docSenseLabel As SensitivityLabel
Dim labelInfo As Office.labelInfo

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

Please note that the code above isn't mine and I am not on a work computer to test it