Password protecting an Excel file (1 Viewer)

[aziz rasul]

I have the following snippet of code

objExcelAppOriginal.ActiveWorkbook.Sheets(strWorksheet).Protect Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering:=True

and

With objExcelAppOriginal
   .ActiveWorkbook
   .Protect Password:=strPassword, Structure:=True, Windows:=False
   .Save
   .Close
End With

I get no errors but the file opens without prompting me with a password!

 

[Ranman256]

try the SaveAs , but overwrite the existing file

Application.DisplayAlerts = [COLOR=#000080]False
[/COLOR]ActiveWorkbook.SaveAs Filename, , Password

 

[Galaxiom]

I have the following snippet of code

objExcelAppOriginal.ActiveWorkbook.Sheets(strWorksheet).Protect Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering:=True

and

With objExcelAppOriginal
   .ActiveWorkbook
   .Protect Password:=strPassword, Structure:=True, Windows:=False
   .Save
   .Close
End With

I get no errors but the file opens without prompting me with a password!

Protect prevents protected cells from being changed. It isn't intended to require a password to open the workbook.