Hi Mustafa,
Thanks for your information.
Even i have made a customize code for the existing ""Save as"" äction where we all need to do is just send password as one of the parameter for that save as method in the existing vbo
Dim doc as Object = GetDocument(handle,documentname)
doc.SaveAs(filename,,,password,,password,enforceStyleLock)
newname = doc.name