Sayfayı Koruyunca Userform Bilgileri Yapışmıyor

[vivident]

Merhaba

Ekteki dosyanın ;
D sutunu aktif hücre, tablonun diğer hücrelerinin kilitledim. Userfom bilgilerini hücrelere aktarıyorum. Sayfaya kilitli olmayınca çalışıyor. Sayfa kilitli olunca hata veriyor.

Kilitli olsa bile değerleri hücreye ekle gibi bir kod varmı ?

Private Sub CommandButton1_Click()
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
End Sub

 

[vivident]

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="123"
Worksheets("sayfa1").Range("E3:I38").Select
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="123"
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
ActiveSheet.Unprotect Password:="123"
Worksheets("sayfa1").Range("E3:I38").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="123"
End Sub

Böyle bir eklenti yaptım ama, olmadı, arkadaşlar lütfen yardım

 

[Muzaffer Ali]

Aşağıdaki gibi deneyin

Private Sub CommandButton1_Click()
    unprotect "şifre"
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
    protect "şifre"
End Sub

 

[vivident]

Aşağıdaki gibi deneyin

Private Sub CommandButton1_Click()
    unprotect "şifre"
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
    protect "şifre"
End Sub

Böyle yaptım

Private Sub CommandButton1_Click()
 Unprotect "123"
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
    Protect "123"
End Sub

ama malesef olmadı

 

[vivident]

Hocam şimdi oldu sanırım
Private Sub CommandButton1_Click()
Sheets("sayfa1").Unprotect "123"
Cells(ActiveCell.Row, "D") = ComboBox1.Value
Cells(ActiveCell.Row, "E") = ComboBox2.Value
Cells(ActiveCell.Row, "F") = ComboBox3.Value
Cells(ActiveCell.Row, "I") = ComboBox4.Value
Unload Me
Sheets("sayfa1"). Protect "123"
End Sub

 

[vivident]

Yanlız tüm hücreleri koruyor, belli sutunları korusun veya hücreleri, bazı sutun veya hücreler açık kalmalı

Örneğin F sutununu hiç korumasın gibi

 

[Muzaffer Ali]

Sayfanın korumasını kaldır.
korunmasını istemediğin hücreleri seç sağ tıklat Koruma tabını aç kilitli onay kutusunu temizle Tamam ı tıklat.