Soru döngü ile textboxları kilitleme/ açma

[sirkülasyon]

If ToggleButton1.Value = True Then
For i = 1 To 24 'TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = True
Me.Controls("TextBox" & i).BackColor = &H80000003
Next
Else
For i = 1 To 24 ' TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = False
Me.Controls("TextBox" & i).BackColor = &H80000005
Next i
End If

Yukarıda ki kod ile yapmaya çalıştım ama olmadı. Rica etsem yardımcı olabilir misiniz?

 

[sirkülasyon]

Yukarıda ki sorunumu çözdüm. İlgilenen tüm ustalara teşekkür ederim. Rica etsem bu talebime yardımcı olabilir misiniz?

soru = MsgBox("Bu Komisyon Üyelerinde Değişiklik mi Yapmak İstiyor sunuz?", vbYesNo + vbInformation, "Uyarı")
If soru = vbYes Then
Dim i As Long
For i = 1 To 24 'TEXTBOXLARI KİLİTLEME
Me.Controls("TextBox" & i).Locked = False
Me.Controls("TextBox" & i).BackColor = &H80000003
Next
MsgBox "Komisyon değişikliği için kilitler açıldı"

mesajından sonra

Sheets("data").Range("L3").Value = TextBox1.Value
Sheets("data").Range("M3").Value = TextBox2.Value
Sheets("data").Range("L4").Value = TextBox3.Value
Sheets("data").Range("M4").Value = TextBox4.Value
Sheets("data").Range("L5").Value = TextBox5.Value

textboxlarda değişiklik yapıldı ise MsgBox "Komisyon değişikliği başarı ile yapılmıştır"
yapılmadan kaydedildi ise MsgBox "Komisyon değişikliği yapılmadan kaydedilmiştir"

 

[muygun]

Merhaba;

Private Sub ToggleButton1_Click()
On Error Resume Next
If ToggleButton1.Value = True Then
For i = 1 To 24 'TEXTBOXLARI Kilitle
Me.Controls("TextBox" & i).Locked = True
Me.Controls("TextBox" & i).BackColor = QBColor(7) 'gri
Next i
End If

If ToggleButton1.Value = False Then
For i = 1 To 24 'TEXTBOXLARI aç
Me.Controls("TextBox" & i).Locked = False
Me.Controls("TextBox" & i).BackColor = QBColor(10) 'yeşil
Next i
End If

End Sub

Şeklinde de olabilir. Deneyin.

 

[sirkülasyon]

Muygun ustam Teşekkür ediyorum. Elleriniz sağlık. Müsaitseniz ikinci mesaj için de yardımcı olabilir misiniz?

 

[muygun]

Textboxlara veriyi sayfadan mı alacaksınız? (boş mu olacak?)
Sayfadaki veri ile mi mukayese edeceksiniz?
Soru anlaşılmıyor. (ve neden örnek dosya eklemiyorsunuz?)

Eklediğim örnek üzerinden yönlendirme yapın.

 

[sirkülasyon]

Muygun ustam
ellerine sağlık. Çok teşekkür ederim. Bu örnek dosya benim işlemimi yapmama yeter.
Var olasın

 

[muygun]

O halde kolay gelsin.