السلام عليكم
اخي العزيز
بالنسبة لاخفاء شريط المعادلات فهذا الكود لاخفاؤه
Application.DisplayFormulaBar = False
وهذا كود اظهاره
Application.DisplayFormulaBar = True
و بالبحث في الموقع ستجد الكثير عن حماية الملف حاول و اخبرني بالنتيجة
بالنسبة لكي يعمل الملف معك في اي مكان يجب اتباع اي من الطريقتين.....
الطريقة الاولي
افتح الملف التي تريد نقل الداله اليه
في بيئة عمل فاجوال باسيك اعمل insert mdoule
وانقر عليه مرتين لفتح محرر الكود الخاص به و الصق هذا الكود
Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)
For x = 1 To جدول_البيانات.Rows.Count
If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then
Counter = Counter + 1
If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For
End If
Next
End Function
الطريقة الثانية
قم بنقل الملف (عن طريق فلاشه مثلا) الذي ارسلته لك سابقا الي العمل في المشاركه رقم 6 و يتم اتباع نفس الطريقة المشروحة فيها