Saving file bypass pop up message

[288enzo]

Hi all,

My company has a pop up for data classification, the data classification company is Titus if it makes a difference.

I'm trying to create and save a new Excel file. Is there a way to bypass Titus?

I tried the following, but that still gives me the Titus pop up.

    Set newWB = Workbooks.Add
    With newWB
        Filename = "File A"
        Set newS = newWB.Sheets("Sheet1")
        newS.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.DisplayAlerts = False
        Workbooks(newWB.Name).SaveAs Filename:=Filename & ".xls"
        Application.DisplayAlerts = True
    End With

Thank you

 

[Skyybot]

You cannot bypass Titus via VBA.

 

[288enzo]

You cannot bypass Titus via VBA.

I figured it out, the below solution works.

       Application.DisplayAlerts = False
       Application.EnableEvents = False
       Workbooks(newWB.Name).SaveAs Filename:=Filename & ".xls"
       Application.DisplayAlerts = True
       Application.EnableEvents = True