My first guess is that you're not opening the correct Test.xls file.

I'd test it by specifying the complete path, like:
ActiveWorkbook.SaveAs Filename:="c:\Test", .....

or add a message box after the save to double check the location.

msgbox activeworkbook.fullname



Ken Hudson wrote:

I am using the following code to lock cells and protect a sheet. When I
re-open the saved workbook, I am not prompted for a password (dash) when I
unprotect it. What is wrong with my code?
TIA
.......................
Range("B7,C7,D7,E7,F7,G7,B8,C8,F8,G8,G55,G94,G95,G 144").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect ("dash")
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.SaveAs Filename:="Test", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close False
........................

--
Ken Hudson

--

Dave Peterson