shabrawy قام بنشر يونيو 12, 2023 مشاركة قام بنشر يونيو 12, 2023 السلام عليكم ورحمة الله وبركاته تحياتي لاعضاء المنتدى الكرام عندي ملف اكسيل وبه اكثر من ورقة عمل وهناك اكثر من مستخدم لهذا الملف . اريد طريقة لجعل كل مستخدم يفتح ورقة عمل معينه وعدم امكانيته رؤية باقي ورق العمل ارجو الافاده وشكرا لكم رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 12, 2023 مشاركة قام بنشر يونيو 12, 2023 وعليكم السلام ورحمه الله وبركاته شوف الموضوع أدناه ⬇️ رابط هذا التعليق شارك More sharing options...
shabrawy قام بنشر يونيو 12, 2023 الكاتب مشاركة قام بنشر يونيو 12, 2023 الملف لا يفتح معي ويظهر خطا عند فتحه . كما انني لست محترفا ببرنامج الاكسيل لذلك طلبت طريقة لكي لا اسمح لاي مستخدم برؤية محتوى اي ورقة عمل الا المخصصه له. رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 12, 2023 مشاركة قام بنشر يونيو 12, 2023 ارفق الملف وفيه شرح المطلوب وان شاء الله تجد ما تريده رابط هذا التعليق شارك More sharing options...
shabrawy قام بنشر يونيو 12, 2023 الكاتب مشاركة قام بنشر يونيو 12, 2023 ده ملف به 3 ورقات عمل كل ورقه باسم موظف . اريد عند فتح الملف عدم ظهور اي محتوى داخل ورقات العمل الا عندما يدخل كل شخص كلمة سر خاصه بالورقه ولكم جزيل الشكر 7777.xlsx رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 12, 2023 مشاركة قام بنشر يونيو 12, 2023 السلام عليكم اليك هذا الملف بعد التعديل 7777.xlsm 2 رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 بعد اذن الاستاذ @ابوحبيبه كود اخر يكون ب اسم مستخدم وكلمه مرور ل إثراء الموضوع Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else MsgBox "Invalid username or password" End If End Sub 7777 (2).xlsm 1 رابط هذا التعليق شارك More sharing options...
shabrawy قام بنشر يونيو 13, 2023 الكاتب مشاركة قام بنشر يونيو 13, 2023 (معدل) @كريم نظيم بشكرك على مجهودك وتعبك وطلب اخير. الكود اللى حضرتك عملته لكل مستخدم يظهر ورقة عمل محدده. ممكن تزود فى الكود لمستخدم بكلمة سر يكون عنده صلاحيه تظهر له كل اوراق العمل فى ملف الاكسيل @ابوحبيبه شكرا لحضرتك ولتعبك لكن المربع اللى بجانب الاسم ده احط فيه ايه؟ وطريقة الاستخدام تم تعديل يونيو 13, 2023 بواسطه shabrawy رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 ممكن اضافه سطر ل اظهار ورقه العمل Worksheets("Sheet1").Visible = True معني هذا أظهر شيت 1 كرر هذا السطر مع تغير اسم الشيت زي ما تحب رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 مستخدم 3 لديه فتح جميع الملفات Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else ElseIf username = "user3" And password = "password3" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet3").Visible = True Worksheets("Sheet1").Visible = True Worksheets("Sheet2").Activate MsgBox "Invalid username or password" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 السلام عليكم الحمد لله ان المشاركات كلها تصب في صالح الاعضاء والكل في خدمة الكل . وده شعار المنتدي الجميل اللي انا استفدت منه كثيرا واحببت ان افيد غيري اعلم ان الملف غير كامل . لكني تعلمت من المنتدى . ان يكون للعضو مساحة من الاضافة والتحديث على الملف بما يناسبه اخي الفاضل ... الشرح بالصورة 7777.xlsm 1 رابط هذا التعليق شارك More sharing options...
shabrawy قام بنشر يونيو 13, 2023 الكاتب مشاركة قام بنشر يونيو 13, 2023 كريم نظيم بشكرك على تعبك لكن انا خدت الكود اللى كتبته وحطيته فى الملف عندي ومتاكد من كل الخطوات وعند حفظ الملف وفتحه لا يقوم بتنفيذ الكود المطلوب مع العلم لا تظهر اي رساله خطأ عند فتح الملف. فيا ريت تقولي هل في خطوه معينه عند كتابة الكود ممكن تكون السبب ابوحبيبه بشكرك مره تانيه على تعبك ولكن ممكن تقولي كيفية انشاء واجهه مثل التي وضعتها. ولو الموضوع طويل ومحتاج شرح مفصل ممكن ترسلي رابط لاي فيديو شرح للموضوع وشاكر ليك جدا فى كل الاحوال 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 (معدل) بعد إذن الإخوة الكرام واثراءا للموضوع اليك اخي طريقتين يمكنك اختيار ما يناسيك الطريقة الاولى اظهار ورقة المستخدم بكلمة مرور مع اخفاء جميع الشيتات الاخرى يمكنك نعديل كلمات المرور كما تشاء الطريقة الثانية تحديد صلاحيات الوصول للمستخدمين دون اخفاء اوراق العمل بمعنى كتابة كلمة مفعل امام اوراق العمل المسموح للمستخدم الوصول اليها كما في الصورة المرفقة test1.rar test2.rar تم تعديل يونيو 13, 2023 بواسطه Mohamed Hicham 4 رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 اخي الفاضل Mohamed Hicham الملف عبارة عن 3 ورقات عمل وكل ورقة باسم شخص مختلف عن الاخر ... ولا يوجد شيء اخر غير ذلك رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 (معدل) نعم اخي ده مثال للفائدة فقط يمكنك تطويعه بما يناسبك وللعلم يمكن حدف اي ورقة من اوراق العمل سيقوم الملف بتحديث البيانات تلقائيا دون اي مشكلة اخي على العموم اليك الملف ب 3 اوراق فقط وورقة خاصة ب (Admin) لتعديل كلمات المرور test3.xlsm تم تعديل يونيو 13, 2023 بواسطه Mohamed Hicham 3 1 رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 الاخ الفاضل : shabrawy ادخل على محرر اكواد ال VBA ...وحاول فهم خطوات الكود . وان لم تصل لشيء . فسوف اعد لك شرح مبسط للموضوع رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر يونيو 13, 2023 مشاركة قام بنشر يونيو 13, 2023 للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين. يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى. جزاكم الله خيرا علي كل هذه الأعمال الرائعة @ابوحبيبه @Mohamed Hicham 🌹🌹 2 رابط هذا التعليق شارك More sharing options...
shabrawy قام بنشر يونيو 14, 2023 الكاتب مشاركة قام بنشر يونيو 14, 2023 @ابو حبيبه ربنا يبارك فيك وشكرا لمجهودك وهحاول اعمل زي ما قولتلي ولو في اي مشكله هكتبها @كريم نظيم تسلم وشكرا لمجهودك @Mohamed Hicham تسلم وشكرا ليك 1 1 رابط هذا التعليق شارك 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.