Protecting All Sheets

I am trying to protect all sheets on a Workbook Close event.

I don't want the user to even be able to Select the Loked cells so I set it up that way through formating of cells.

This is what I have tried:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Protect Password:="P@ssword", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
' sh.Protect Password:="P@ssword"
Next sh
End Sub
I even tried the commented out line in that postion instead of where it is now.

It does protect but still allows selection of locked cells.