Giúp code: Nếu nhập số 1 vào cell A1 thì Unprotect Sheet ... (1 người xem)

[Hong.Van]

Em nhờ thầy cô & anh chị giúp em code như sau:
Tại sheet hiện hành em có đặt Pass cho sheet là "123", bây giờ em muốn khi nhập số 1 tại cell A 1 thì sẽ Unprotect Sheet. nếu bỏ số 1 này đi (hoặc để trống hoặc ký tự hay số khác) thì tiếp tục Protect sheet
Em có mày mò code nhưng chưa được

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" = 1 Then
  ActiveSheet.Unprotect "123"
  Else
  ActiveSheet.Protect "123" 'Moi them
End If
End Sub

Em cảm ơn

 

[Ba Tê]

Em nhờ thầy cô & anh chị giúp em code như sau:
Tại sheet hiện hành em có đặt Pass cho sheet là "123", bây giờ em muốn khi nhập số 1 tại cell A 1 thì sẽ Unprotect Sheet. nếu bỏ số 1 này đi (hoặc để trống hoặc ký tự hay số khác) thì tiếp tục Protect sheet
Em có mày mò code nhưng chưa được

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" = 1 Then
  ActiveSheet.Unprotect "123"
  Else
  ActiveSheet.Protect "123" 'Moi them
End If
End Sub

Em cảm ơn

Hổng hiểu!
Thử làm như vầy xem:
- Bấm vào chỗ "trước" chữ A và "trên" số 1 của Sheet1
- Vào Format-Cell-Protection: Click chọn cả 2 ô Locked, Hidden. OK
- Chọn ô A1: Vào Format-Cell-Protection: Bỏ chọn cả 2 ô Locked, Hidden. OK
- Chép code của bạn vào sheet1.
Gõ thử vào A1 cái gì đó và thử xem có kết quả gì không?

 

[Hong.Van]

Ý em là nhập số 1 vào cell A1, kg fải nhập A1 vào cell A1. Sao làm theo cách thầy vẫn đúng???

 

[Quang_Hải]

Em nhờ thầy cô & anh chị giúp em code như sau:
Tại sheet hiện hành em có đặt Pass cho sheet là "123", bây giờ em muốn khi nhập số 1 tại cell A 1 thì sẽ Unprotect Sheet. nếu bỏ số 1 này đi (hoặc để trống hoặc ký tự hay số khác) thì tiếp tục Protect sheet
Em có mày mò code nhưng chưa được

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" = 1 Then
  ActiveSheet.Unprotect "123"
  Else
  ActiveSheet.Protect "123" 'Moi them
End If
End Sub

Em cảm ơn

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Unprotect "123"
Else
[a1].Locked = False
ActiveSheet.Protect "123"
End If
End If
End Sub

 

[Ba Tê]

Ý em là nhập số 1 vào cell A1, kg fải nhập A1 vào cell A1. Sao làm theo cách thầy vẫn đúng???

Đọc câu này lại "hổng hiểu" nữa rồi!