Soru Listbox iki işlem yaptırma

[sirkülasyon]

Listbox1' e tıklayınca "Güncelleme mi Yapacaksınız" diye sormasını "EVET" ise Textbox(1,2,3,4,5,6) Locked özelliğini false edecek
aşağıda ki kod çalışacak
"HAYIR" ise Textbox(1,2,3,4,5,6) Locked özelliğini true edecek aşağıda ki kod çalışacak. Rica etsem yardımcı olabilir misiniz?

Dim bul As Range, s1 As Worksheet
Set s1 = Sheets("Personel")
Set bul = s1.Cells.Find(ListBox1.Text)
If Not bul Is Nothing Then
    Me.TextBox1.Value = bul.Offset(0, -1).Value
    Me.TextBox2.Value = bul.Offset(0, 1).Value
    Me.TextBox3.Value = bul.Offset(0, 2).Value
    Me.TextBox4.Value = bul.Offset(0, 3).Value
    Me.TextBox5.Value = bul.Offset(0, 4).Value
      Me.TextBox6.Value = ""
          Me.TextBox7.Value = ""
    CheckBox1.Value = False
    CheckBox2.Value = False
    Else
    MsgBox "Bulunamadı."
    End If

 

[Muzaffer Ali]

Merhaba.

Private Sub ListBox1_Click()
    Dim msg As VbMsgBoxResult
    Dim bul As Range, s1 As Worksheet
    msg = MsgBox("Güncelleme mi Yapacaksınız?", vbQuestion + vbYesNo)
    If msg = vbYes Then
        TextBox1.Locked = False
        TextBox2.Locked = False
    ElseIf msg = vbNo Then
        TextBox1.Locked = True
        TextBox1.Locked = True
    End If

    Set s1 = Sheets("Personel")
    Set bul = s1.Cells.Find(ListBox1.Text)
    If Not bul Is Nothing Then
        Me.TextBox1.Value = bul.Offset(0, -1).Value
        Me.TextBox2.Value = bul.Offset(0, 1).Value
        Me.TextBox3.Value = bul.Offset(0, 2).Value
        Me.TextBox4.Value = bul.Offset(0, 3).Value
        Me.TextBox5.Value = bul.Offset(0, 4).Value
        Me.TextBox6.Value = ""
        Me.TextBox7.Value = ""
        CheckBox1.Value = False
        CheckBox2.Value = False
    Else
        MsgBox "Bulunamadı."
    End If
End Sub