جزاك الله كل خير
لا أعرف كيف أشكرك حلت المشكلة
لم تكن المشكلة بسبب الحماية فقد ارجعتها، و استخدمت الكود الذي كنت تضعه و مشي الحال
str1 = Range(Cells(row1, 3), Cells(row1, 3)).Value
Range(Cells(row1, 4), Cells(row1, 4)).Validation.Delete
Range(Cells(row1, 4), Cells(row1, 4)).Validation.add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlEqual, Formula1:="=INDIRECT(VLOOKUP(" & """" & str1 & """" & ",fullgroup,2,0))"
كانت المشكلة أنني كنت أضع فاصلة منقوطة و المفروض تكون فاصلة
جزاك الله كل خير