Protecting Sheet to not allow cell selection

[vbaNumpty]

I use the following macro in two workbooks:

Sub Protect_DB()

    Application.ScreenUpdating = False
    
    Sheet1.Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

End Sub

However in the first workbook where I initially created that macro it does not allow a user to select any cells no singular cell is highlighted with the square to show you what cell you have selected.

In the second workbook, everything is locked similarly, but I am able to move through 4 cells with the arrow keys and enter values in the ranges w1, x1, w2 and W5001 for some unknown reason.

I cannot figure out why this is happening.

 

[Tetra201]

Try adding the following:

Sheet1.EnableSelection = xlNoSelection

 

[vbaNumpty]

Try adding the following:

Sheet1.EnableSelection = xlNoSelection

That did the trick! Still a mystery why it was needed though.

Thank you, appreciate you.

 

[Tetra201]

Glad to have helped.