حسام نور قام بنشر سبتمبر 25, 2003 قام بنشر سبتمبر 25, 2003 السلام عليكم ورحمة الله وبركاته مع التنقل داخل الملف نريد عدم السماح بالدخول لشيت معين إلا لأشخاص معينين . فهل يمكن عمل كلمة سر لشيت داخل ورقة العمل ؟
محمد طاهر عرفه قام بنشر سبتمبر 25, 2003 قام بنشر سبتمبر 25, 2003 و عليكم السلام و رحمة الله و بركاته لنفرض أنك لا تريد فتح ورقة رقم2 الا بكلمة سر اولا تأكد من فتح الملف علي ورقة عمل أخري فى حدث الفتح للملف ككل Private Sub Workbook_Open() Sheets("sheet1").Activate End Sub ثم عند التفعيل لورقة رقم 2 فاذا أدخلت كلمة السر = 5 فسيرحب بك و تدخل الي ورقة رقم 2 و اذا ادخلت كلمة خطأ ، فسيتم ترحيلك الي ورقة رقم 3 و لن تدخل ورقة رقم 2 و ذلك بكتابة الكود التالي فى حدث عند التفعيل لورقة رقم 2 Private Sub Worksheet_Activate() If InputBox("Password required", "Welcome to Officena") = 5 Then MsgBox "welcome to sheet2" Else MsgBox "Wrong Password , Bye !!", vbOKOnly Sheets("sheet3").Activate End If End Sub
الفدعاني قام بنشر سبتمبر 25, 2003 قام بنشر سبتمبر 25, 2003 اشكرك اخ محمد اخي الكريم اثنا كتابتي للكود حسب شرحك حصل الاتي: اثناء كتابة اي رقم ما عدا رقم (5) يرحلة الى ورقة 3 ولكن اضغط على اوكي بدون كتابة اي رقم يذهب بك الى البرمجة ثم اضغط اوكي تذهب الى الورقة رقم 2 كأن لايوجد كلمة سر ؟ اكرر شكري لك اخي محمد
حسام نور قام بنشر سبتمبر 26, 2003 الكاتب قام بنشر سبتمبر 26, 2003 - فعلا أستاذنا محمد طاهر الكود رائع ويعمل بشكل ممتاز ولكن تظل المشكله أذا تم الضغط على Cancel فيذهب بك الي الكود نفسه . - نتمنى بخبرتك أن تقوم بأصلاح المشكله وفقك الله دائماً
محمد طاهر عرفه قام بنشر سبتمبر 26, 2003 قام بنشر سبتمبر 26, 2003 تعديل الكود Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If IsNull(x) Or x = "" Then GoTo xx If x = 5 Then MsgBox "welcome to sheet2" Else MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly Sheets("sheet3").Activate End If End Sub
حسام نور قام بنشر سبتمبر 26, 2003 الكاتب قام بنشر سبتمبر 26, 2003 - ياسلام عليك يا دكتور محمد . دكتور ورئيس قسم .
tag4m قام بنشر أبريل 18, 2004 قام بنشر أبريل 18, 2004 "السلام عليكم لم استطع تشغيل الكود، فعندما اضغط ورقة رقم 2 تظهر شاشه افتتاحية لكتابة كلمة المرور ولكن فى نفس الاثناء الورقة رقم 2 ظاهرة رغم انى لم اكتب كلمة المرور بعد وعند كتابة كلمة المرور لاتكتبها واضغط مسافة مرتين ثم انتر يتم ظهور شاشة افتتاحية بوجود خطأ اضغط end الموجودة فى نفس الشاشة الافتتاحية يتم العمل فى الورقة 2 وكأن لا يوجد كود فماذا بحدث هل يوجد خطأ منى فى استخدام هذا الكود أم ان الكود به شئ ، وشكرا لكم
tag4m قام بنشر أبريل 19, 2004 قام بنشر أبريل 19, 2004 ارجو ان تفيدونى بهذا الموضوع وأزيحواعنى عدم الفهم وشكرا لكم
ابومؤنس قام بنشر أبريل 19, 2004 قام بنشر أبريل 19, 2004 وعليكم السلام ورحمة الله . ومعذرا علي التاخير , بالنسة للكود صحيح ولا بد من ظهور الورقة الثانية ولكن لا تستطيع الكتابة فيها حتي تكتب كلمة المرور . ولتغلب علي مشكلو ظهور الورقة الثانية قبل كتابة كلمة المرور . يمكنك ان تضيف في الكود امر يجعلك تنتقل الي جزء غير مهم من الورقة الثانية ربما يكون مجموع من نطاق الخلايا الفارغة مثلا . وبعد كتابة كلمة المرور ينتقل بك الي الجزء المهمة . وبذلك لا يستطيع احد قراء او رايت خلايا مهمة في الورقة الثانية ما لم يكتب كلمة المرور الصحيحة . الامر الجديد هو : Range("K1:Y35").Select هذا اذا افترضنا ان نطاق الخلايا من K1 حتي Y35 هو فارغ . اكتب هذا الامر في السطر الثاني للكود السابق . واضيف الامر التالي Range("A1").Select ايضا باعتبار ان الجزء المهم للورقة الثانية يبدا من الخلايا A1, اكتب هذا الامر قبل كلمة Else في الكود السابق ,, بالنسبة للمشكلة الثانية , وهي ظهور رسالة الاعلام بخطاء . فاعتقد انة يجب عليك تغير كلمةSheet2 بكلمة ورقة2 وكذلك الامر للورقة3 ,, ونحن في انتظار الرد , بالتوفيق .
tag4m قام بنشر مايو 16, 2004 قام بنشر مايو 16, 2004 شكرا لك اخى الكريم ابو مؤنس وارجو تقبل اعتذارى على التأخير فى الرد عليك ، شكرا جزيلا لك على التوضيح وعلى الكودين السايقبن ، جزاك الله كل خير وشكرا استاذنا محمد طاهر يامدرسة وشكرا لاخى الكريم حسام نور على طرحه لهذا الموضوع والسلم عليكم ورحمه الله وبركاته
العريف قام بنشر نوفمبر 30, 2005 قام بنشر نوفمبر 30, 2005 جزى الله الجميع خير الجزاء الكود يعمل و لله الحمد
A_ALOMANI قام بنشر ديسمبر 16, 2005 قام بنشر ديسمبر 16, 2005 الاخوة الزملاء مشرفي واعضاء اوفيسنا الحبيب السلام عليكم ورحمه الله وبركاته تحية طيبة وبعد اختصاراً وسرعة للوقت وللمشاركة الاولى لي ويشرفني أن اكون أحد الاعضاء في هذا المنتدى الذي يضم القلوب الاخوية التي لم تبخل يوماً في تقديم يد العون والمساعدة لمن طلبها وهذا بلاشك ما احسستة ورأيتة بالفعل مما يتقدم للاعضاء من قبل مشرفي هذا المنتدى الرائع ففعلاً عند زيارتي الاولى لم اتردد في التسجيل في المنتدى وها أنا اشارك للمرة الاولى في منتدى بالنت ومشاركة معنوية فطاقم ورواد هذا المنتدى يحركون بك جميع السواكت الصامتة لديك ويزرعون فيك المحبة ولوكنت قاسي القلب ولاعجابي بهذا الكوكب وروادة ومشاهدية اتقدم لكم بطلب قبولي زميل ومشارك صغير . وبخصوص اضافة كلمة سر للورقة الثانية في برنامج الاكسل فأنني طبقتها واوضحت بالقائمة البرمجية الملاحظات التي تساعد المبرمج أو المراجع علماً بأن كلمة السر هي 1234 واريد أن ارفق لكم المثال معمول وجاهز في ملف اكسل كمشاركة صغيرة فأنني خجلت لكثر زيارتي للمنتدى ولم اشارك . كما ارجو مساعدتي بتوضيح لي الطريقة التي يمكن من خلالها ارفاق أو ارسال الملف ضمن مشاركتي هذه . وتقبلوا جميعاً مني كل التحيات . A_ALOMANI@HOTMAIL.COM اخوكم عبدالله العماني / ابومشاري
mewahid قام بنشر ديسمبر 17, 2005 قام بنشر ديسمبر 17, 2005 من فضلكم كيف أضيف هذه الأكواد فى الاكسل ، وجزاكم الله خيراً .
A_ALOMANI قام بنشر ديسمبر 18, 2005 قام بنشر ديسمبر 18, 2005 تحية طيبة وبعد تلقيت طلبك وتلبية لكم وللمنتدى من منتدانا الحبيب اوفسنا يطيب لنا تزويدكم بالطريقة التي يمكن من خلالها وضع كود للورقة الثانية أو أي ورقة تحب أن تضيف لها هذا الكود والطريقة كما يلي :- 1-افتح مصنف جديد أو محفوظ سابقاً لديك كما تريد . 2-اضغط على مفتاح ALT+F11 سيتم فتح VISUAL BASIC أو بالضغط على مفتاح الموس الأيمن على الورقة المطلوبة بالمصنف واختيار من القائمة ( عرض التعليمات البرمجية ) 3-من نافذة Project VBAProject الواقعة في جهة اليسار والتي تعرض المصنفات المفتوحة . 4-ستجد بهذه النافذة الورقة1 والورقة2...الخ للمصنف المفتوح بالإكسل اختر منها الورقة التي ترغب أن تضع لها كلمة السر واضغط عليها بالموس دبل كليك سيتم فتح لك نافذة محرر كتابة الكود البرمجي قم بكتابة الكود الذي لم أتمكن من أدراجة ضمن رسالتي هذه حيث يكون صيغة الكود بالمقلوب ولو سمح لنا الإخوة المشرفين لإرفاق المثال فهذا يكون جيد على العموم أخي الكريم وضح لي عنوانك الالكتروني في رسالتك وسوف أرسل لك برأس الخدمة الملف كامل لك ولماً يرغب من ضيوف وأعضاء ومشرفين هذا المنتدى الغالي علينا جميعاً . مع تحيات أخوكم / عبد الله العماني / أبومشاري a_alomani@hotmail.com السعودية / الشرقية
mewahid قام بنشر ديسمبر 19, 2005 قام بنشر ديسمبر 19, 2005 السلام عليكم ورحمه الله وبركاته يا أخى ارفق الملف عادى لا يوجد أى مشاكل فكلنا نرفق بدون أيه مشاكل ولا اعتراض الحمد لله فتحت وكتبت الكود ولكن دائماً يخبرنى أن يوجد خطأ فلا أرف لماذا علماً بأنه يوجد العديد من الخيارات أمامى ك General و worksheet وكذلك فى الworksheet يوجد selsction و activate والكثير أيهم أختار ؟ منتظر ردكم وجزاكم الله خيراً
A_ALOMANI قام بنشر ديسمبر 23, 2005 قام بنشر ديسمبر 23, 2005 اخي العزيز لقد تم ارفاق الملف المطلوب في قسم التحميل المؤقت في المنتدى على الرابط التالي :- http://www.officena.net/ib/index.php?showtopic=10677 توجد معلومات ممكن الاستفاده منها مع تحيات اخوكم عبدالله العماني ابومشاري a_alomani@hotmail.com
NAWAS قام بنشر ديسمبر 24, 2005 قام بنشر ديسمبر 24, 2005 جزى الله الأخوة الكرام خير الجزاء على هذه الفائدة ولكن هناك مشكلة :') عندما أقوم بفتح الملف تظهر الشاشة الخاصة بالأمان وبها خيارات تمكين أو تعطيل الماكرو وإذا قمت بتعطيل الماكرو فإنني أستطيع الدخول للورقة المحمية فهل هناك طريقة لإغلاق الملف إذا تم تعطيل الماكرو في الشاشة الإفتتاحية ولكم جزيل الشكر
mewahid قام بنشر ديسمبر 26, 2005 قام بنشر ديسمبر 26, 2005 تسمح لى أن أضع خيار ثانى لمن سيجيب تكمله لسؤال الأستاذ NAWAS أو أن يمكننى وضع كلمه سر على كود اليجوال - فلا تكون معرضه لأى أحد يرى كلمه السر أو يغير أى شيئ فى الكود ؟ وجزاكم الله خيراً
SPHINX قام بنشر يناير 3, 2007 قام بنشر يناير 3, 2007 الاحوة المشرفين هذه المشكلة تؤرقني عند تعطيل الماكرو يستطيع المستخدم الدخول علو ورقة العمل ويرى ما بها من بيانات هل هناك حل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.