Unable to lock columns...

[exceluser90]

Hey I am currently trying to lock columns in my sheet based on the number of items in a ListBox, yet the code does not appear to have any affect.

If lockbox.Value = True Then
        Main.Range(Main.Columns(1), Main.Columns(Quarters.ListCount + 1)).Locked = True
End If

It seems like such a simple line of code, yet it doesn't seem to work. The cells remain unlocked.

 

[VoG]

Locking cells won't have any effect unless the sheet is protected. try like this

If lockbox.Value = True Then
    main.Unprotect
        main.Range(main.Columns(1), main.Columns(Quarters.ListCount + 1)).Locked = True
    main.Protect
End If

 

[exceluser90]

Sorry I left that part out. But it is being protected after that line.

 

[exceluser90]

Also, if I check the cells after, they are not even locked. Weirder still, if I run the code separately, it works...