almhb قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 أعزائي عودنا هذا المنتدى الرائع تعاون أعضائه فجزاكم الله خيرا ،لي طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور. والشرح في الملف المرفق منتظر ردكم طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 تفضل يا أخى هذا الكود من أعمال أحد أعمدة المنتدى الأخ الغالى خبور خير غير كلمة السر الموجودة فى السطر 11 من (جو) إلى أى كلمة أو رقم تريده Private Sub Worksheet_Activate() On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer Me.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets("Main").Select Exit Sub ElseIf XX <> "جو" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets("Main").Select Exit Sub Else Me.Columns.Hidden = False Columns("u:IU").EntireColumn.Hidden = True End If On Error GoTo 0 End Sub رابط هذا التعليق شارك More sharing options...
basem said قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 (معدل) استاذن استاذ / يوسف باضافة اقتراح اخر وذلك للافادة ليس اكثر من ذلك وهذة الاكود منقولة للافادة كلمة السر 123 طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar تم تعديل نوفمبر 15, 2011 بواسطه باسم سعيد رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 إثراء الموضوع بمزيد من الوسائل شئ جميل يا استاذ باسم دمت بكل ود رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 شكر وتقدير وشديدواحترام اخوانى رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 15, 2011 مشاركة قام بنشر نوفمبر 15, 2011 الاخ العزيز البرنامج + الشرح معلش الشرح مستعجل لان الوقت متأخر كلمة السر 123 مجدى يونس صندوق لجدول الضرب.rar طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar 1 رابط هذا التعليق شارك More sharing options...
prosseseur قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 أشكركم اخواني جميعا على هذا الجهد الطيب جعله الله في ميزان حسناتكم لدي سؤال فقط كيف يمكننا تغيير كلمة السر ؟ مودتي وتقديري لكم. رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 جرب هذا http://www.officena.net/ib/index.php?showtopic=34213 رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 الاخ الفاضل انظر الفيديو مجدى يونس تغيير كلمة السر.rar رابط هذا التعليق شارك More sharing options...
almhb قام بنشر نوفمبر 16, 2011 الكاتب مشاركة قام بنشر نوفمبر 16, 2011 شكراً أعزائي الكرام جهد طيب لكن كما قلت لكم أنني باديء فحاولت أن أستخدم الكود في برنامج أخر ما ضبط معي أبدا لذا ممكن ولو فيه تكليف عليكم البداية لعمل فورم ولصق الكود في برنامج أخرى لأن معلوماتي ضعيفة في هذا الجانب بارك الله فيكم منتظر ردكم رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 الاخ العزيز طريقة سحب الفورم من اكسل 1 على سبيل المثال الى اكسل 2 بعد السحب احفظ اكسل 2 واقفل اكسل 1 الموجود به الفورم الاصلى وجرب الشرح بالفديو مجدى يونس نقل الفورم.rar رابط هذا التعليق شارك More sharing options...
جوده قام بنشر نوفمبر 16, 2011 مشاركة قام بنشر نوفمبر 16, 2011 الاخوه الافاضل مشرفى القسم تحيه طيبه برجاء التكرم بافادتى عن عدم وصول اى رسائل الكترونيه من القسم الى البريد الخاص بى كما كان سابقا وذلك من مايو 2011 تقريبا لكم منى كل احترام وتقدير رابط هذا التعليق شارك More sharing options...
almhb قام بنشر نوفمبر 18, 2011 الكاتب مشاركة قام بنشر نوفمبر 18, 2011 شكرا ً أعزائي الكرام ( يوسف عطا و وباسم سعيد و مجدي يونس ,وجميع الأخوة ) لردودكم فقد استفدت منها كثيرا في موضوع طلب بسيط من أهل الخبرة ، وحاولت أن أمشي على شرح الأستاذ مجدي للفديو ما ضبط معي ، الرجاء توضيح لي الطريقة ، المطلوب والملفين في الملف المرفق مع جزيل شكري وتقديري وجمعة مباركة منتظر ردكم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 18, 2011 مشاركة قام بنشر نوفمبر 18, 2011 تم إضافة الحل في الملف المرفق === تم دمج الموضوعين (ونرجو عدم فتح موضوع جديد ما دام السابق نشط) رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 18, 2011 مشاركة قام بنشر نوفمبر 18, 2011 يتم تغيير الباس وورد بعد الدخول على الموديول او الكود وتغيير الباس من داخله وتوجد طرق اخرى مثلاً وضع الباسوورد فى خلية معينة من الملف ويمكن اخفائها وربط الكود بهذه الخلية فيتم تغيير الباس وورد دون الدخول فى الكود والله اعلم رابط هذا التعليق شارك More sharing options...
almhb قام بنشر نوفمبر 18, 2011 الكاتب مشاركة قام بنشر نوفمبر 18, 2011 شكرا أستاذي الغالي عبدالله المجرب ، وأعتذر عن فتح موضوع جديد لهذا الموضوع النشط ، لكنني قصدت لفت النظر لسرعة الحل شاكرا لك توجيهك ، وأمرك على الرأس والعين يا غالي ، بس قصدي أعرف إزاي اعمله أنا بنفسي كي أتعلم خطواته ، منتظر ردكم . رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 18, 2011 مشاركة قام بنشر نوفمبر 18, 2011 السلام عليكم تفضل الشرح المرفق الشرح.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر يناير 1, 2012 مشاركة قام بنشر يناير 1, 2012 السلام عليكم ورحمة الله وبركاته. انتهز فرصة وجود استااذي الفاضل ابا احمد (المجرب) على الشبكة اعتقد ان هنالك خظا بسيط في الكود وهو عند الضغط على زر الغاء ويكون مربع النص فارغ يذهب إلى محرر الفيجول لوجود خظا بالنسبة لي اصلحت المشكلة بطريقة تودي الغرض ولكن ليست المثالية ارجو التعديل من طرفكم أبو أنس رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر يناير 1, 2012 مشاركة قام بنشر يناير 1, 2012 السلام عليكم .. عفوا اقصد زر دخول أبوأنس رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 1, 2012 مشاركة قام بنشر يناير 1, 2012 السلام عليكم اخي ابو انس جرب استبدل الكود في اليوزر فورم (الخاص بزر الدخول) بهذا Private Sub CommandButton1_Click() If TextBox1.Text = "" Then MsgBox "لم تدخل الرقم السري", vbOKOnly, "تنبيه": Exit Sub If TextBox1.Text = 123 Then Application.Visible = True ورقة1.Activate Me.Hide UserForm1.Hide MsgBox "مرحبا بيك فى برنامج جدول الضرب تصميم منتدى اوفسينا " Else MsgBox "ليس لديك صلاحيات لاستخدام هذا الامر" TextBox1.Text = "" Me.TextBox1.SetFocus End If End Sub رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر يناير 1, 2012 مشاركة قام بنشر يناير 1, 2012 السلام عليكم ورحمة الله وبركاته, ابا احمد (عبد الله المجرب) عافاك الله وحفظك ونسلك ومن تحب الى يوم الدين وفي الآخرة من الفائزين, أبو أنس رابط هذا التعليق شارك More sharing options...
edkawy قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 جزاك الله خير استاذ عبد الله و بارك الله فيكم جميعا رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 شكر وتقدير وفائق الاحترام استاذنا عبدالله المجرب (ابو احمد) احترامى رابط هذا التعليق شارك More sharing options...
hussein chechen قام بنشر أبريل 7, 2012 مشاركة قام بنشر أبريل 7, 2012 اريد كود يفتح الفورم دون ان يفتح برنامج الاكسل في مجال حدا يساعد رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر أبريل 7, 2012 مشاركة قام بنشر أبريل 7, 2012 جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.