Các Bạn giúp mình sửa code khóa dòng có điều kiện (1 người xem)

[ndhmoney686]

Mình có file đính kèm khóa dòng có điều kiện mình siêu tầm được của Anh sealand, các bạn xem và sửa giúp mình code như sau.
- Hiện tại thì cột F nếu đánh dấu "X" vào thì sẽ khóa dòng từ cột A tới cột F.
- Các bạn sửa giúp mình code: Nếu đánh dấu "X" vào cột A thì sẽ khóa dòng từ cột A tới cột F. (Mình có copy để cái tiêu đề theo ý của mình ở dòng 30)

Mong các Bạn giúp. Cảm ơn các Bạn nhiều!

 

[happyghost]

Mình cũng còn gà về code nhưng mò mò thử và thấy kết quả cũng không tệ, bạn và các cao thủ khác check lại thử xem sao nha, một số dòng thay đổi code như sau:

Private Sub CommandButton3_Click()
Cells(ActiveCell.Row, "F")= "" ---> [COLOR=#ff0000]Cells(ActiveCell.Row, "A") = ActiveCell.Offset(-1).Value + 1[/COLOR]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then     --->[COLOR=#ff0000] If Target.Column = 1 Then[/COLOR]
For Each Cl In Range([F5], [F65536].End(3))   ---> [COLOR=#ff0000]For Each Cl In Range([A5], [A65536].End(3))[/COLOR]

 

[ndhmoney686]

Mình có hỏi qua vị tiền bối và code được sửa như sau. Đúng theo mong muốn của mình. post lên đây các bạn cùng chia sẻ.