Hi,

Maybe something along these lines

Sub Save_Me()
MyPass = Sheets("Sheet1").Range("A1").Value
Fname = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=Fname, Password:=MyPass
End Sub


Mike

"Seanie" wrote:

Is it possible to save via Code a file with a password that resides is
a cell within the workbook?