? ThisWorkbook.ProtectStructure
? ThisWorkbook.ProtectWindows
? ActiveSheet.ProtectContents
? ActiveSheet.ProtectDrawingObjects
? ActiveSheet.ProtectScenarios
ActiveSheet.EnableSelection = xlNoRestrictions
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.EnableSelection = xlNoRestrictions
Next ws