ActiveWorkbook.SaveAs Filename:= _

"<path_to_folder_or_file>.xlsb" _

, FileFormat:=xlExcel12, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:= _

(sPath & sFileName), _

FileFormat:=xlExcel12, _

Password:="", WriteResPassword:="adg", _

ReadOnlyRecommended:=True, _

CreateBackup:=False