To password protect a sheet I use a very simple piece of code, as
below, but how do I incorporate code to ensure that the "Select
Unlocked Cells" is UNCHECKED when protecting


Sub Protect()

Sheets("Sheet1").Select
ActiveSheet.Protect Password:="1234"

Thanks