hussinabdo1111@hotmail.com قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 اريد اظهار شيت (سري) برقم سري ويتم اخفاءه عند الانتقال الي شيت اخر (عمل صلاحيات للمستخدم) مع شرح الكود ان امكن اظهار وةاخفاء الشيت.rar رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 http://www.officena.net/ib/topic/44906-برنامج-صلاحيات-المستخدمين-بشكل-جديد/#comment-387025 راجع هذا المنشور رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 29, 2015 الكاتب مشاركة قام بنشر أكتوبر 29, 2015 انت ادخلتنا في موضوع كبير انا اريد ابسط كم ذلك لقد قمت بالبحث ورايت الموضوع شكرا لك رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 أهلا وسهلا بك أستاذ حسين بين اخوانك تفضل المرفق عله يفى بالغرض كلمة السر 123 واحد سري 2.rar رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 أستاذ حسين يرجى تغيير اسم الظهور الى اللغة العربية لسهولة التواصل ثانيا هذا شرح للكود ببعض التعليقات عليه الكود الاول يوضع فى حدث المصنف Private Sub Workbook_Open() Application.ScreenUpdating = False ' منع تحديث الشاشة Sheets("سري").Visible = 2 ' اخفاء الورقة سرى عند فتح الملف وعدم القدرة على اظهاره يدويا Sheets("بيانات").Activate ' تنشيط ورقة العمل بيانات فى بداية فتح الملف Application.ScreenUpdating = True ' اعادة تشغيل تحديث الشاشة End Sub الكود الثانى يوضع فى حدث ورقة بيانات Private Sub Worksheet_Activate() ' فى حالة تنشيط ورقة بيانات فانه يتم Application.ScreenUpdating = False Sheets("سري").Visible = 2 ' اخفاء الورقة سرى Application.ScreenUpdating = True End Sub Sub showsheet() Dim pwd As String ' اعتبارالمتغير من نوع نص pwd = "123" ' كلمة السر يمكنك تعديلها Application.ScreenUpdating = False Application.DisplayAlerts = False If Application.InputBox("What is the password to view this sheet?", "Access Password", "***") <> pwd Then ' اذا كانت كلمة السر المدخلة غير 123 فان MsgBox "sorry Wrong password" ' ظهور رسالة للمستخدم بأنها كلمة السر خاطئة Sheets("بيانات").Activate ' تنشيط ورقة العمل بيانات Else ' اذا كانت كلمة السر صحيحة فان With Sheets("سري") .Visible = True ' اتاحة الشيت للمستخدم .Activate ' تنشيط الشيت End With End If Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تحياتى 1 رابط هذا التعليق شارك More sharing options...
ايهاب الغريب قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 حاجة عظيمة بارك الله فيكم رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير مختار حسين محمود على العمل الرّائع و الكود الجبّار .. و قلتها سابقًا أنا من هواة أعمالك و الله يعلم مدى حبّي لك و احترامي لك في الله .. بعد إذنك .. فقط أستاذي القدير لإثراء الموضوع و تنويع إجاباته .. طريقة أخرى عن طريق اليوزرفورم بثلاث محاولات مع تعطيل زر الإكس من الفورم و خروج كلي بعدها من الملف .. فائق إحتراماتي لك سيّدي الكريم عبد العزيز البسكري الشيت السري.rar 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 أخى ايهاب الغريب بارك الله فيك أنت مش غريب أنت بين اخوانك ان شاء الله أخى العزيز زيزو يعلم الله عز وجل كم أنت عزيز الى قلبى بدماثة خلقك وطيب نفسك ومشكور جدا جدا على المرفق الجميل بس لسه فيه جزئين ناقصين : فين زر الخروج فى الفورم ؟ - وفين اختفاء الشيت سرى عند الانتقال الي شيت آخر زى ما طلب الأستاذ حسين ؟ يلا كمل الملف تحياتى أخوك مختار 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 29, 2015 مشاركة قام بنشر أكتوبر 29, 2015 السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير مختار حسين محمود على الكلمات الطيّبة .. يا طيّب والله ألف شكر على الملاحظات الدّقيقة .. البنت التي أمامك بالصورة لم تتركني أركّز بصراحة ..و أخرجتني من طوعي هذا من جهة .. من جهة أخرى وجدت ملف الأخ السّائل به خلل .. قد يكون من عندي .. فقمت بتصميم ملف آخر ربما قد لاحظتَ ذلك مع نقل الورقتين إلى الملف الجديد .. فخرجت تقريبا عن الموضوع من جهة ثالثة فكرت بطريقة أخرى للدخول لكل الشيتات بكلمة مرور مع ترك شاشة افتتاحية .. تفضّل هذا الملف ريثما يُعدّل الأول حسب ملاحظاتك أستاذي الغالي فائق إحتراماتي عبد العزيز البسكري الدخول لكل أوراق الملف بكلمة مرور.rar 2 رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 29, 2015 الكاتب مشاركة قام بنشر أكتوبر 29, 2015 بارك الله فيك استاذنا الجليل مختار علي سعة وقتك لكن علي فرض انه هناك اكثر من ورقة واردت انك تذهب اليها في هذه الحالة لا يتم اخفاء الورقة لانك اشترطت لو ذهبت الي الورقة( بيانات) يتم الاخفاء وانا اريد لو انتقلت الي اى ورقة يتم اخفاء( ورقة سري) السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير مختار حسين محمود على الكلمات الطيّبة .. يا طيّب والله ألف شكر على الملاحظات الدّقيقة .. البنت التي أمامك بالصورة لم تتركني أركّز بصراحة ..و أخرجتني من طوعي هذا من جهة .. من جهة أخرى وجدت ملف الأخ السّائل به خلل .. قد يكون من عندي .. فقمت بتصميم ملف آخر ربما قد لاحظتَ ذلك مع نقل الورقتين إلى الملف الجديد .. فخرجت تقريبا عن الموضوع من جهة ثالثة فكرت بطريقة أخرى للدخول لكل الشيتات بكلمة مرور مع ترك شاشة افتتاحية .. تفضّل هذا الملف ريثما يُعدّل الأول حسب ملاحظاتك أستاذي الغالي فائق إحتراماتي عبد العزيز البسكري الدخول لكل أوراق الملف بكلمة مرور.rar عمل رائع شكرا رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 أخى الحبيب عبدالعزيز ربنا يخلى ويبارك يا زيزو وملفك جميل وأعتقد أنه يكفى للغرض أستاذ حسين نعم كلامك صحيح أنا اشتغلت على الملف المرفق على اعتبار أن به ورقتان فقط بيانات وسرى فاذا كان هناك أكثر من ورقة غير ورقة بيانات كرر الكود اللى فى حدث ورقة بيانات فى أى ورقة عمل ده هيخفى ورقة سرى بمجرد الانتقال الى تلك الورقة 1 رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 30, 2015 الكاتب مشاركة قام بنشر أكتوبر 30, 2015 هل يمكن اضافة سطر عند الانتقال الى اي ورقة نشطة يتم الاخفاء معذرة لانى ذاهب الي الصلاة رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 (معدل) مجهود رائع من الاخوه اخي وائل اخي مختار حسن اخي عبد العزيز البسكري ولك مني اضافة بسيطة لكود الاخ مختار حسن sheet3.Visible = xlSheetVeryHidden نضعه في حدث فتح اي شيت واحد سري 2 .rar وبدل ما نتعب نفسنا ونحط كود الاخفاء الشيت في اي شيت نفترض اننا عملنا شيتات جديدة ونسينا نحط فيها فدي عرضة لعرض الصفحة الافضل نحط كود الاخفاء في حدث غلق الشيت يعني لما الشيت يبقي مش اكتف غير نشط يختفى وكدا جبناها من الاخر Private Sub Worksheet_Deactivate() sheet3.Visible = xlSheetVeryHidden End Sub واحد سري 2 .rar تم تعديل أكتوبر 30, 2015 بواسطه ياسر العربى رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 مجهود رائع من الاخواة اخي وائل اخي مختار حسن اخي عبد العزيز البسكري ولك مني اضافة بسيطة لكود الاخ مختار حسن sheet3.Visible = xlSheetVeryHidden نضعه في حدث فتح اي شيت واحد سري 2 .rar بارك الله فيك و في أمثالك رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 السّلام عليكم و رحمة الله و بركاته جزاكم الله خيرًا أساتذتي و إخواني الأكارم فقط لإكمال الملف بزر الخروج مثلما ذكره الأستاذ القدير مختار حسين محمود ..مع تعديلات طفيفة فائق إحتراماتي الشيت السري 3.rar رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 السّلام عليكم و رحمة الله و بركاته جزاكم الله خيرًا أساتذتي و إخواني الأكارم فقط لإكمال الملف بزر الخروج مثلما ذكره الأستاذ القدير مختار حسين محمود ..مع تعديلات طفيفة فائق إحتراماتي الشيت السري 3.rar مجهود جميل تشكر عليه انت وجميع المشاركين لكن لي ملحوظة صغيرة اخي الغالي نفترض انا الماكرو معطل وهذا الطبيعي عند تنصيب الاوفيس وقام بفتح الملف وعمل كليك يمين علي اي شيت وعمل unhide سيظهر معه جميع الشيتات ارجو اخفاء الشيتات veryhide حتى لا يتمكن احد من الوصول له ولك كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 30, 2015 مشاركة قام بنشر أكتوبر 30, 2015 السّلام عليكم و رحمة الله و بركاته أخي الفاضل ياسر العربي ألف شكر على ملاحظاتك القيّمة و المفيدة .. جزاك الله خيرًا و زادها بميزان حسناتك رصيدي نفذ من الإعجابات .. تفضّل هذه مع فائق إحتراماتي رابط هذا التعليق شارك More sharing options...
hussinabdo1111@hotmail.com قام بنشر أكتوبر 30, 2015 الكاتب مشاركة قام بنشر أكتوبر 30, 2015 الاستاذ عبد العزيز الاستاذ ياسر العربي الاستاذ مختار كل الشكر والتقدير علي مشاركتم جميعا رابط هذا التعليق شارك 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.