وائل الاسيوطي قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 (معدل) السلام عليكم اخواني في خطأ في الكود كنت محتاج مساعده بخصوصه وهي كنت محتاج اخلي الباسورد بدلاله قيمه الخليه a4 في الصفحه users تم تعديل مارس 23, 2016 بواسطه وائل الاسيوطي
ياسر خليل أبو البراء قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 أخي الكريم وائل لما لم ترفق ملف ؟ لما لم تضع الكود بين أقواس الكود؟! ما هو الخطأ الذي يظهر معك عند النقر على كلمة Debug؟ هل الاسم users الاسم البرمجي لورقة العمل المراد ربط الباسورد بها؟ هل جربت استخدام كلمة Sheets يليها قوس مفتوح ) ثم أقواس تنصيص " ثم اسم ورقة العمل users ثم إغلاق أقواس التنصيص " ثم إغلاق القوس ( ...؟ تقبل تحياتي 3
الصـقر قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 (معدل) تفضل استاذى الفاضل وائل استبدل الجزء الخاص بالخليه A4 بالتالى اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب ("اسم الشيت") Sheets If x = Sheets("users").Range("a4") Then او السطر التالى بفرض ان الشيت المسمى Users هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت If x = Sheet3.Range("a4") Then كلا السطرين يؤدو نفس الغرض اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة تقبل تحياتى تم تعديل مارس 23, 2016 بواسطه الصـقر 5
وائل الاسيوطي قام بنشر مارس 23, 2016 الكاتب قام بنشر مارس 23, 2016 شاكر مروركم اخواني الكرام انا بالفعل جربت كل ماسبق من محاولات بس المشكله اني لما بدخل الباسورد بعد كدا بيدي خطأ في الباسورد مع انني متأكد من انها نفس الموجوده في الخليه تماما والكود لا يعطي Debug لكن المشكله في تقبل كلمه المرور 1
ياسر خليل أبو البراء قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 ارفق ملفك أخي الكريم وائل للإطلاع عليه .. احذف البيانات الحساسة بالملف واحذف أوراق العمل الغير مرتبطة بطلبك واحذف الأكواد الغير ضرورية وأبقي على الكود المطلوب فقط 2
محمد حسن المحمد قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 (معدل) السلام عليكم ورحمة الله وبركاته إخوتي الكرام ..أخي الحبيب الصقر.. إن غيابك عنا لم نعتد عليه كما هو في الفترة الأخيرة فأنتم في منتدانا الكريم كالخلايا النبيلة في جسم الإنسان لا يمكنه أن يؤدي وظائفه بفعالية دونها ..أقول هذا الكلام بحقك أنت وثلة طيبة من أساتذتنا الكرام "دماغ المنتدى " ..ولذلك أرجو أن تفكر مليا بعيون ترنو إلى تعاونكم واجتماعكم جميعا لترفعوا من شأننا نحو قمة الحضارة العلمية. أنتم لا تمثلون أنفسكم فحسب ..بل أنتم للكل لأنكم نذرتم أنفسكم لمجتمعاتكم بانضمامكم لهذا المنتدى. ولذلك فإنني أطلب منكم طلب الوالد الذي يريد لأبنائه أن يكونوا منارة يستضيء بها الكثيرون ...فهل سأجد آذانا صاغية ...ذلك رجائي بكم أبنائي البررة ..والسلام عليكم ورحمة الله وبركاته. تم تعديل مارس 23, 2016 بواسطه محمد حسن المحمد 6
أبوبسمله قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 1 ساعه مضت, الصـقر said: تفضل استاذى الفاضل وائل استبدل الجزء الخاص بالخليه A4 بالتالى اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب ("اسم الشيت") Sheets If x = Sheets("users").Range("a4") Then او السطر التالى بفرض ان الشيت المسمى Users هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت If x = Sheet3.Range("a4") Then كلا السطرين يؤدو نفس الغرض اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة تقبل تحياتى ربنا ييسرلك احوالك وترجعلنا سالم غانم جزاك الله كل خير اخى حسام تقبل تحياتى 2
ياسر العربى قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 جرب ياريس Sub Yasser() Dim x As String x = InputBox("من فضلك فم بادخال كلمة المرور.", "Password Required") If x = users.Range("a4").Value Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ" End If End Sub اكيد دا ملف الصلاحيات 3
ياسر العربى قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 ياراجل قول كلام غير دا انا جربته في الملف نفسه وشغال يبقي ترفق المثال بقي زي ما قال الاخوة عشان نقدر نساعد المهم ادي المثال وشغال تمام كلمة الدخول123 صفحة اليوزرز 999 صلاحيات - Copy.rar 2
وائل الاسيوطي قام بنشر مارس 23, 2016 الكاتب قام بنشر مارس 23, 2016 2 دقائق مضت, ياسر العربى said: ارفاقك للملف دا بالاخص خلاني عرفت انك عارف انا بتكلم علي ايه القلوب عند بعضيها احبيبي ابو العربي عامه انا كدا كدا هارفعهوه لان في مشكله تانيه كبيره ياراجل في ملف برضو 10 ميجا ينفع الكلام دا مشكله ياريت نلاقيلها حل 1
الصـقر قام بنشر مارس 24, 2016 قام بنشر مارس 24, 2016 استاذى الحبيب ابويوسف لما يشغلنى عنكم الى الشدائد شاكر لك كلماتك الطيبه والكل بالمنتدى خير وبركه فانا تلميذ من تلامذه هذا الصرح الاستاذى الفاضل احمد الفلاحجى مشكور يا غالى على دعائكم وفقكم الله وجزاكم الله خيرا تقبلوا تحياتى 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.