How can I run this code on a locked cell?

[boznian]

I am using the following code to apply the *result* of a formula in place of the actual formula in the same cell:

    Cells(crow, "AQ:AQ").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
    Application.CutCopyMode = False

This works fine as long as the cells are unlocked but I really need to keep them locked - can this be done?

 

[Yahya]

you need to Unprotect your sheet then Protect

ActiveSheet.Unprotect "YourPassword"
Your code
ActiveSheet.Protect "YourPassword"

HTH

 

[machopicho]

 Cells(crow, "AQ:AQ").Activate
 Selection.Locked = False
 Selection.Copy  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _        False, Transpose:=False  
 Application.CutCopyMode = False
 Selection.Locked = True

 

[boznian]

Thanks guys-

I like the
Selection.Locked = False
solution better but it won't work for me - maybe because I am on Excel 2003? So using the
ActiveSheet.Unprotect
statements is doing the job.

Thanks!!

 

[boznian]

Follow-up-

I didn't immediately realize that this

ActiveSheet.UnProtect 
formulas and code here...
ActiveSheet.Protect

was resetting all my protection options, which meant I could no longer filter the sheet or format cells. So code was changed to this:

ActiveSheet.UnProtect
formulas and code here...
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFiltering:=True