Nhờ giúp về khoá sheet bằng VBA

[vanlinh105]

Em không rành về VBA nên bác nào biết là sao để mình nhập "Ok" vào ô A1 (hoặc ô nào mình muốn) thì nó có thể tự động khoá sheet đó luôn được không ạ?

Em cảm ơn

 

[hml89]

Em không rành về VBA nên bác nào biết là sao để mình nhập "Ok" vào ô A1 (hoặc ô nào mình muốn) thì nó có thể tự động khoá sheet đó luôn được không ạ?

Em cảm ơn

Vậy làm sao để mở được, câu hỏi của bạn làm tôi liên tưởng đến game phá bom, 1 đi và không có đường lùi. Tốt nhất là khóa ở thanh côn cụ có sẵn, thích mở vô nhập pass là xong.

 

[Phuocam]

Khóa sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target.Value = "OK" Then
        Sheet1.Protect Password:="abc"
    End If
End If
End Sub

 

[vanlinh105]

Khóa sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target.Value = "OK" Then
        Sheet1.Protect Password:="abc"
    End If
End If
End Sub

Em cảm ơn bác nhé, đúng cái em cần rồi ạ