Как заблокировать активную строку в excel с помощью VBA?

Question

Как и в названии, мне нужно написать код VBA, который копирует всю выбранную строку i и вставляет только значения, чтобы впоследствии результаты не могли быть изменены.

Я уже успел сделать это для ActiveCell в последнем файле, над которым я работал, но мне пришлось изменить только одну ячейку. Это код, который я использовал:

Sub Freeze() 
    ActiveCell.Copy 
    ActiveCell.PasteSpecial Paste:=xlPasteValues 
End Sub 

Однако для этого нового файла я должен скопировать всю строку и я не хочу, чтобы выбрать каждую отдельную ячейку. Когда я использую это в новом файле, он работает только в первой ячейке. Как я могу заставить его работать для всей строки?

Спасибо.

Answer 1

Используйте простой код ниже (старайтесь избегать Выбор ячеек и активных клеток, если это возможно):

Sub Test() 

Call Freeze(3, 7) 
Call Freeze(4, 8) 

End Sub 


Sub Freeze(rowsource As Long, rowdest As Long) 

Rows(rowsource).Copy 
Rows(rowdest).PasteSpecial Paste:=xlPasteValues 

End Sub 

Answer 2

Paste: = xlPasteValues ​​

Вам не нужно копировать значения вставки если вы не пытаетесь также копировать форматы.

Попробуйте это. Замените имена листов соответствующими именами листов. Также замените X, Y соответствующими номерами строк. Если вы используете несколько строк, то изменить Rows(X) к Range("X:X") и аналогично Range("Y:Y")

Thisworkbook.Sheets("Sheet1").Rows(X).Value = _ 
Thisworkbook.Sheets("Sheet2").Rows(Y).Value