How to make cells Unclickable (Unselectable) in Excel

People who don't like using the "protection/password" technique to protect the locked cells content. Here is the way to protect the locked cells content without using the "protection/password" technique.

Private Sub Workbook_Open()
    'Make cells unclickable without password protection
    'change to your sheet name
    With Worksheets("sheet1")
        .Activate
        .EnableSelection = xlUnlockedCells
        .Protect Contents:=True, UserInterfaceOnly:=True
    End With
End Sub