Excel - 单元格在 VBA 宏运行后锁定

Question

I have a macro that's using a loop to take data from one sheet and copy it to another, putting them in an order determined by an array. Relevant code:

For counter = 1 To 358 Step 1
    Sheets("data").Cells(inputrow, counter + 1) = Sheets("Sheet1").Cells(rowarray(counter), colarray(counter))
    Sheets("sheet1").Cells(rowarray(counter), colarray(counter)).Clear
Next counter

The input sheet is protected, with the cells that you put data unlocked, but every time I run the macro those cells get locked again. I have no idea what's causing this and it's driving me nuts. Please help!

Answer 1

.Clear was stripping the unlocked formatting. Use .ClearContents instead.

Answer 2

I was facing the same problem when I ran a macro the unlocked cells would automatically get locked and stopped macro functioning. After changing it to.ClearContents it worked and now the part of the sheet that I want protected is now password protected. Thanks