'Allowed values : C_Unrestricted, C_Restricted, C_Confidential or C_Strictly_Confidential
ThisWorkbook.BuiltinDocumentProperties("Keywords").Value = "C_Unrestricted"
'Allowed values : Unrestricted, Restricted, Confidential or Strictly Confidential
ThisWorkbook.CustomDocumentProperties.Add Name:="Document Confidentiality", Type:=msoPropertyTypeString, LinkToContent:=False, Value:="Unrestricted"