Khóa vùng dữ liệu theo màu ô, khi chọn checkbox

[210914101]

Chào các bạn!

Mình có 1 vấn đề khó quá, mong các bạn giúp đỡ mình với. Mình cảm ơn nhiều.
1. Khi mình chọn checkbox thì dòng đó tính từ cột A đến cột H sẽ được tô màu vàng. Việc này đã làm được.
2. Khi mình bỏ chọn checkbox thì thì dòng đó tính từ cột A đến cột H sẽ được quay lại màu trắng. Việc này cũng đã làm được.
3. Giờ mình muốn.
+ Khi dòng đó đã được tô thành màu vàng thì các ô có màu vàng đó sẽ được khóa lại không cho chỉnh sửa. Việc này chưa làm được.
+ Khi mình bỏ chọn checkbox thì nó sẽ hiện thông báo để mình nhập mật khẩu và mở khóa dòng dữ liệu đã được khóa đó. Việc này chưa làm được.
+ Khi nhập Pass xong, thì dòng đó sẽ được mở khóa và quay lại màu trắng. Đồng thời nhập không đúng mật khẩu thì checkbox sẽ không được chuyển thành False.
Vấn đề 3 mình chưa làm được, mong mọi người giúp đỡ mình với. Mình cảm ơn rất nhiều.
Trân Trọng!
Dưới đây là code khóa vùng theo màu hiện tại của mình.
Sub lockcellsbycolor()
'Updateby Extendoffice 20161027
Dim colorIndex As Integer
colorIndex = 6
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
ActiveSheet.Protect Password:="123"
Else
xRg.Locked = False
If (Range(xChk.LinkedCell) = "False") Then
ActiveSheet.Unprotect Password:="123"
End If
End If
Next xRg
Application.ScreenUpdating = True
'MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
=> Đây là hình ảnh hiện tại của file mình.

 

[210914101]

Không có ai giúp mình nhỉ.

 

[tam888]

Bỏ chữ "(Không có ai giúp mình nhỉ)" trong tiêu đề thì may ra có người giúp