Toggle Sheet Protection Macro

[storm925]

Hi. I need a little help with a simple toggle that I am trying to attach to a button. I want to be able to lock a range and also unlock a range with one button. This is what I am trying to make work:

For Each cell In ActiveSheet.Range("A6:D45")
Selection.Locked = Not Selection.Locked
Next

I'm still new at writing macros. Thank you for looking at my post. --Ben

 

[Von Pookie]

Your code is looping through cells, but only affecting whatever cells are selected at the time.

You can just refer to the range rather than looping through cells. Try:

With Range("A6:D45")
    .Locked = Not .Locked
End With