عادل حنفي قام بنشر مايو 14, 2008 قام بنشر مايو 14, 2008 اخي العزيز نزار الفكره جميله بـ navigate و ماقصرت و فقك الله
Ali Tawfeek قام بنشر مايو 14, 2008 الكاتب قام بنشر مايو 14, 2008 (معدل) مشكور اخى نزار على عرض المساعدة فى االشرح المفصل فهل لى ان اطلب ما اريد بالتفصيل الممل و عذرا للطالة 1- بالنسبة الى موضوع اظهار خاصية navigate اريد شرحها بالتفصيل ليس لعدم ظهور او اخفاء او حماية ورقة و انما اريد ان افهما بالتفصيل لعمل هذه الخاصية عندما يكون عندى ملف يحتوى على عدد كبير من الاوراق و اريد وضع هذه الخاصية ليكون التنقل بين الاوراق اسهل من الوضع الطبيعى 2- بالنسبة الى سؤالى فى حماية الورقة من المشاهدة و التعديل بالفعل يا اخى نزار اناجربت كودك التالى Private Sub Worksheet_Activate xx: Dim x x = InputBox("Password required" & Chr(13) & "welcome to OPR", "Welcome to OPR") If IsNull(x) Or x = "" Then GoTo xx If x = 123 Then MsgBox "welcome to N-Daily" Else MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 1 and not 2, Bye !!", vbOKOnly Sheets("sheet1").Activate End If End Sub فما اريد يا اخى هو انما ادخل الكود السابق يظهر لى كلمة السر و ادخالها و لقد فهمتها و لكن تزال عندى مشكلة هو ان الصفحة تزال قيد المساهدة و ما اريده هو عدم السماح بمشاهدة ايضا طالما لم ادخل كلمة السر 3- شئ اخر و ليس اخرا ان شاء الله هو عندما اضع كلمة سر للصفحة و لتكن مثلا 3 فهل يمكنى وضع كلمة سر اخرى للكود حيث ان الاشخاص المسموح لهم بالتعديل و مشاهدة ليس بالضرورة ان يكون مسموح لهم بالتصميم مشكورين اخوانى على اكسابنا المعلومات و ما نريده هو الشرح المفصل حتى يتثنى لنا التعلم و جزاكم الله خيرا تم تعديل مايو 14, 2008 بواسطه ali fathi
نزار سليمان عيد قام بنشر مايو 15, 2008 قام بنشر مايو 15, 2008 (معدل) اخواني السلام عليكم اخي الحبيب احمد السلام عليكم مشكور على مرورك اخي الحبيب aah_aah2008 السلام عليكم مشكور على مرورك اخي ali fathi لك ماتريد بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل بالنسبة للسؤال الثاني بالفعل اخي انا ارفقت ملف قبل التعديل على هذا الاستفسار فعذرا وانظر الى المرفق في هذه المشاركة وسترى المطلوب ويمكنك نسخ الكود وتغيير كلمة السر ( لاتنسى ان تنظر للمرفق بهذه المشاركة) بالنسبة للطلب الاخير نعم اخي الكريم فلا علاقة بين كلمة السر على الصفحة وكلمة السر على VBA واي استفسارات اخرى انا جاهز مع الشكر للجميع انظر للمرفق ________________2__________5_2_.rar تم تعديل مايو 15, 2008 بواسطه نزار سليمان عيد
Ali Tawfeek قام بنشر مايو 23, 2008 الكاتب قام بنشر مايو 23, 2008 بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل اخوانى 3 خيار من خيارات الاداوت يسمى بـ خيارات التصحيح التلقائي فهل هذا هو فعلا navigate فما اريده يا اخوانى هو شرح مفصل جدا عن ميفية استخدام الدالة و كيفية عمل النطاق ارجو منكم المساعدة العاجلة
Ali Tawfeek قام بنشر مايو 26, 2008 الكاتب قام بنشر مايو 26, 2008 (معدل) بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل اخوانى 3 خيار من خيارات الاداوت يسمى بـ خيارات التصحيح التلقائي فهل هذا هو فعلا navigate فما اريده يا اخوانى هو شرح مفصل جدا عن كيفية استخدام الدالة و كيفية عمل النطاق ارجو منكم المساعدة العاجلة اخوانى هل هناك اى جديد في طلبى السابق يا اخوانى ؟؟؟؟؟؟؟؟ ارجو المساعدة يا اخوانى ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ تم تعديل مايو 26, 2008 بواسطه ali fathi
نزار سليمان عيد قام بنشر مايو 27, 2008 قام بنشر مايو 27, 2008 اخي الكريم السلام عليكم انظر للشرح في المرفق واي استفسار اعلمني من فضلك navigate.rar
Ali Tawfeek قام بنشر مايو 31, 2008 الكاتب قام بنشر مايو 31, 2008 اخي الكريم السلام عليكم انظر للشرح في المرفق واي استفسار اعلمني من فضلك اخى نزار مشكور اخى الكريم على ملفك المرفق و لكنى للاسف لم افهم كيفية انشاء الصيغة احتمال لان البرنامج عندى باللغه العربية و لكن لى سؤال هل يمكنى اخفاء و حماية صفحة الملف بدون استعمال هذه الصيغة اخوانى اريد مساعدتكم بشكل عاجل عن كيفية حماية ورقة عمل و عدم استطاعة الظهور ) ليس ظهور الورقة بينما ظهور بيانات الورقة الا لو ادخلت كلمة السر اريد هذا بشكل عاجل جدااااااااااااا اليوم و لكم جزيل الشكر
نزار سليمان عيد قام بنشر مايو 31, 2008 قام بنشر مايو 31, 2008 اخي الكريم السلام عليكم انظر للمرفق _________________________________________.rar
Ali Tawfeek قام بنشر مايو 31, 2008 الكاتب قام بنشر مايو 31, 2008 اخي الكريم السلام عليكم انظر للمرفق مشكور اخى الكريم نزار هل لى من شرح تفصيلى عن طيفية تطبيق هذا ارجو شرح مفصل جدا لان هذا هو ما اريده بالتفصيل
نزار سليمان عيد قام بنشر مايو 31, 2008 قام بنشر مايو 31, 2008 اخي الكريم السلام عليكم شرح الكود Sheets("Sheet1").Select Sheets("Sheet2").Visible = False في الفقرة اعلاه يتم اختيار الصفحة 1 واخفاء الصفحة 2 Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If IsNull(x) Or x <> 5 Then MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly Sheets("Sheet2").Visible = False Sheets("Sheet1").Select في الكود اعلاه يتم ظهور رسالة تفيدك باضافة كلمة السر ويوجد شرط وهو اذا كلمة السر لاتساوي 5 او لم تكتب شئ فتبقى الصفحة 2 مخفية والصفحة 1 هي المفعلة Else If x = 5 Then MsgBox "welcome to sheet2" Sheets("Sheet2").Visible = True Sheets("Sheet2").Select في الكود اعلاه اذا كلمة السر = 5 فقم بعمل ظهور رسالة ترحيبية اظهار الصفحة 2 اختيار صفحة 2 End If End If End Sub في الكود اعلاه نهاية الشرط نهاية الماكرو الاول Sheets("Sheet1").Select Sheets("Sheet2").Visible = False في الكود اعلاه يقوم بالذهاب الى صفحة واحد واخفاء صفحة 2 نهاية الماكرو الثاني مع الشكر
Ali Tawfeek قام بنشر مايو 31, 2008 الكاتب قام بنشر مايو 31, 2008 اخي الكريم السلام عليكم شرح الكود مشكور اخى الغالى على شرحك بس هل يمكنك ان تشرح لى كيفية تعديل الماكرو المذكور حيث اريد ان اعدل مكان وضع الماكرو الخاص بكلمة الذهاب الى الصفحة 2 فكيفية تعديل الكلمة و تعديل المكان مشكور اخى الكريم مرة تانية على سرعة مبادرتك
نزار سليمان عيد قام بنشر يونيو 1, 2008 قام بنشر يونيو 1, 2008 [ مشكور اخى الغالى على شرحك بس هل يمكنك ان تشرح لى كيفية تعديل الماكرو المذكور حيث اريد ان اعدل مكان وضع الماكرو الخاص بكلمة الذهاب الى الصفحة 2 فكيفية تعديل الكلمة و تعديل المكان مشكور اخى الكريم مرة تانية على سرعة مبادرتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.