Save activeworkbook with a password

[transferxxx]

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

 

[Guest]

Try:-

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

Mike

 

[transferxxx]

Try:-

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

Mike

thxs - works great !!