Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,328
- Được thích
- 1,765
Em chào Thầy cô & anh chị!
Em có đọan code khóa & mở dòng, nhưng sau khi thực hiện thì có một số điểm sau:
Tại cell A1, nhập số 1 thì sẽ Unprotect sheet, nhưng nếu điều chỉnh lựa chọn tại cột H thì những dòng có chữ R tương ứng ở cột H sẽ bị tiếp tục khóa.
Xin giúp em sửa code với điều kiện như sau:
1/ Nếu cell A1 nhập vô số 1 hoặc đang là số 1, thì sẽ Unprotect sheet dù có điều chỉnh hay thay đổi cột H
2/ Nếu cell A1 là trống hoặc khác số 1, thì những dòng có chữ R tại cột K sẽ bị khóa ( những dòng khác không bị khóa)
Em cảm ơn.
Em có đọan code khóa & mở dòng, nhưng sau khi thực hiện thì có một số điểm sau:
Tại cell A1, nhập số 1 thì sẽ Unprotect sheet, nhưng nếu điều chỉnh lựa chọn tại cột H thì những dòng có chữ R tương ứng ở cột H sẽ bị tiếp tục khóa.
Xin giúp em sửa code với điều kiện như sau:
1/ Nếu cell A1 nhập vô số 1 hoặc đang là số 1, thì sẽ Unprotect sheet dù có điều chỉnh hay thay đổi cột H
2/ Nếu cell A1 là trống hoặc khác số 1, thì những dòng có chữ R tại cột K sẽ bị khóa ( những dòng khác không bị khóa)
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
If Target.Column = 8 Then
Unprotect "123"
Cells.Locked = False
For Each Cl In Range([H7], [H65536].End(3))
If UCase(Cl.Value) = "R" Then Rows(Cl.Row).EntireRow.Locked = True
Next
Protect "123", AllowFiltering:=True
End If
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Unprotect "123"
Else
ActiveSheet.Protect "123", AllowFiltering:=True
End If
End If
End Sub
