يونس م قام بنشر فبراير 2, 2013 مشاركة قام بنشر فبراير 2, 2013 السلام عليكم في ملف اكسل اريد عند فتح الملف تظهر الورقة التي تطلب ادخال اسم المستخدم و كلمة المرور وبالضغط على دخول يتم الانتقال الى اوراق العمل وشكرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 2, 2013 مشاركة قام بنشر فبراير 2, 2013 السلام عليكم الاخ الكريم / يونس م برجاء الاطلاع علي الرابط التالي عله يفيد باذن الله http://www.officena.net/ib/index.php?showtopic=45232 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 2, 2013 الكاتب مشاركة قام بنشر فبراير 2, 2013 وهو كذلك جاري مشاهدة الموضوع بارك الله فيكم رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 2, 2013 الكاتب مشاركة قام بنشر فبراير 2, 2013 (معدل) لم استوعب الموضوع جيدا بالاضافة الى اني لا اريد الفورم الخاص بالفيجوال انا اريد الفورم من خلايا الاكسل فقط ويبقى الاكواد الرجاء كتابتها هنا او في ملف واجركم على الله يوجد ملف مرفق به ما اريد ملفي المرفق.rar تم تعديل فبراير 2, 2013 بواسطه يونس م رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 3, 2013 الكاتب مشاركة قام بنشر فبراير 3, 2013 هل من مساعدة ؟ رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 3, 2013 الكاتب مشاركة قام بنشر فبراير 3, 2013 هل من مساعدة ؟ رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر فبراير 3, 2013 مشاركة قام بنشر فبراير 3, 2013 يوجد برنامج سهل الاستخدام ويمكن ان يفيدك ويعالج ما ترغب به يرجى الاطلاع على هذا الرابط http://www.officena.net/ib/index.php?showtopic=45248 رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 3, 2013 الكاتب مشاركة قام بنشر فبراير 3, 2013 شكرا على المساعدة انا اريد عند فتح الاكسل تظهر الواجهة التي تطلب الرقم السري وكلمة المرور رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر فبراير 3, 2013 مشاركة قام بنشر فبراير 3, 2013 تفضل اخى المرفق عملت فيه على قدر معرفتى واننى لا زلت فى اول الطريق ملفي المرفق-1.rar رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 3, 2013 الكاتب مشاركة قام بنشر فبراير 3, 2013 احسنت اخي الفاضل يبقى ان انسق كلمة المرور واسم المستخدم يعني لون الخط والحجم اذا امكن رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر فبراير 4, 2013 مشاركة قام بنشر فبراير 4, 2013 ان شاء الله مساء اليوم ساعمل عليه عند عودتي من العمل باذن الله رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 4, 2013 الكاتب مشاركة قام بنشر فبراير 4, 2013 شكرا لك في انتظار ذلك وفي انتظار مساعدة الاصدقاء رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر فبراير 4, 2013 مشاركة قام بنشر فبراير 4, 2013 تفضل اخي هذا المرفق واى شىء نحن مع فى الخدمه ملفي المرفق-2.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 4, 2013 مشاركة قام بنشر فبراير 4, 2013 السلام عليكم الاخ الكريم / himass مجهود كبير ومشاركات فعالة وردودك جميلة جزاك الله خيرا ط رابط هذا التعليق شارك More sharing options...
يونس م قام بنشر فبراير 4, 2013 الكاتب مشاركة قام بنشر فبراير 4, 2013 himass واش يحكي الواحد هذا ابداع بمعنى الكلمة هذا ما كنت اريد بالتحديد جزاك الله خيرا وادامك للمنتدى فقط لو تفضلت بشرح بسيط عن كيفية عمل هذا التعديل حتى نستفيد ولعلمكم انا من احد مستخدمي الاكسل كثيرا واتمنى ان اكون واحد منكم رابط هذا التعليق شارك More sharing options...
إبراهيم محمد قام بنشر فبراير 4, 2013 مشاركة قام بنشر فبراير 4, 2013 الاخ العزيز / يونس م الحمد لله الذى وفقنى فى ان البى حاجتك وهذا فضل من الله ومن خلال متابعتى لهذا المنتدي العظيم وتعلمي من الاستاذة الافاضل وكما قلت لك اننى لا زلت فى اول الطريق واسال الله التوفيق الاخ الفاضل / حمادة عمر اشكر لك مرورك الكريم وكلامك المشجع وبالنسبه لشرح الكود هذا الكود يتم تنفيذة عند فتح الملف Sub opnen1() Dim us1 As Variant ' متغير لحفظ اسم المستخدم Dim pas1 As Integer ' متغير لحفظ كلمه السر Dim i As Integer متغير للتعبير عن رقم صفحات المستند us1 = "احمد" متغير لتخزين اسم المستخدم pas1 = "1234" متغير لتخزين كلمه السر Application.ScreenUpdating = False كود لمنع اهتزاز الشاشه اثناء تنفيذ المراحل القادمه هذا الكود للتحقق من ان كلمه السر واسم المستخدم مطابقه لما هو مخزن فى المتغيرات السابقه If ورقة1.TextBox1 = us1 And ورقة1.TextBox2 = pas1 Then هذا الكود لفك حمايه المستند ActiveWorkbook.Unprotect هذا الكود لفك حمايه الورقه ActiveSheet.Unprotect هذا الكود لاظهار الصفحات المخفيه For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVisible Next i تحديد صحه رقم 1 لتكون الفعاله Sheet1.Activate لمسح البيانات من التيكست بوكس ورقة1.TextBox1 = "" ورقة1.TextBox2 = "" لاخفاء الورقه الاولى ورقة1.Visible = xlSheetVeryHidden وفى حاله عدم تحقق الشرط من صحه بيانات اسم المستخدم وكلمه المرور Else تظهر هذة الرساله MsgBox "كلمه السر او اسم المستخدم غير صحيح حاول مرة اخرى " ورقة1.TextBox1 = "" ورقة1.TextBox2 = "" 'ورقة1.TextBox1.Select End If لاعادة تفعيل تحديث الشاشه Application.ScreenUpdating = True End Sub وهذا الكود يتم تنفيذة قبل اغلاق المستند Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.DisplayAlerts = False لايقاف الرسائل التحذيريه ورقة1.Visible = xlSheetVisible لاظهار الصفحه الاولى التى بها البيانات Sheets("ورقة1").Activate لجعلها صفحه مفعله لتكون هى صفحه البدايه Dim i As Integer كود تكرارى لاخفاء جميع الصفحات الاخرى فى المستند For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVeryHidden Next i ActiveWorkbook.Protect تفعيل الحمايه على المستند ActiveSheet.Protect تفعيل الحمايه على الصفحه الفعاله Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك 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.