[adel27]

كود :

 For i = 0 To DATAG.Rows.Count - 1
           With DATAG.Rows(i)
               Dim MyCheck As String = .Cells(6).Value.ToString
               If MyCheck = "True" Then
                   .Cells(0).ReadOnly = True
                   '.Cellds(1).ReadOnly = True
                   .Cells(2).ReadOnly = True
                   .Cells(3).ReadOnly = True
                   .Cells(4).ReadOnly = True
                   .Cells(5).ReadOnly = True
                   .Cells(6).ReadOnly = True
                   .DefaultCellStyle.BackColor = Color.LightGray

               Else
                   .Cells(0).ReadOnly = False
                   .Cells(1).ReadOnly = False
                   .Cells(2).ReadOnly = False
                   .Cells(3).ReadOnly = False
                   .Cells(4).ReadOnly = False
                   .Cells(5).ReadOnly = False
                   .Cells(6).ReadOnly = False
                   .DefaultCellStyle.BackColor = Nothing
               End If
           End With
       Next

يا جماعه وضعت هذا الكود لما أضع علامة تشك في السطر اللي أحتاجه يظلل تمام 
بس باقي علي كود الحفظ في قاعدة البيانات اللي تم التأشير عليها يحفظها في القاعده 
وعند التحميل مره أخرى يبقى الشكل مثل ماهو ...
لو سمحتم لم يتبقى في مشـروعي إلا هاذي