Try:-

Sub saveme()
ActiveWorkbook.Password = "1234"
ActiveWorkbook.Save
End Sub

Mike

" wrote:

Am looking for a macro which would save my activeworkbook in its
existing location with a password (e.g "1234").
Can anybody help - thxs