Ensure only unlocked cells are selected on a protected Worksheet

Sub Auto_Open()
 Sheets("Sheet1").EnableSelection = xlUnlockedCells
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


© Copyright andrewsexceltips.net All Rights Reserved.