احمد الجزار2007 قام بنشر أكتوبر 26, 2016 مشاركة قام بنشر أكتوبر 26, 2016 السلام عليكم عندي كود بيعمل locked للحلايا بشرط المشكله ان الكود بيبتدي عمله من الخليه a1 انا عاوز اعدل عليه بحيث انه يبدي عمله من الصف التاسع , ويتجاهل ما قبل ذلك الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="" If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True Else Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False End If ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub رابط هذا التعليق شارك More sharing options...
احمد الجزار2007 قام بنشر أكتوبر 27, 2016 الكاتب مشاركة قام بنشر أكتوبر 27, 2016 up رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 27, 2016 مشاركة قام بنشر أكتوبر 27, 2016 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 8 Then ActiveSheet.Unprotect Password:="" If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True Else Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False End If ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.