ممكن طريقة لرؤية بيانات ورقة عمل معينه لمستخدم محدد دون غيره

[shabrawy]

السلام عليكم ورحمة الله وبركاته

تحياتي لاعضاء المنتدى الكرام 

عندي ملف اكسيل وبه اكثر من ورقة عمل وهناك اكثر من مستخدم لهذا الملف . اريد طريقة لجعل كل مستخدم يفتح ورقة عمل معينه وعدم امكانيته رؤية باقي ورق العمل 

ارجو الافاده وشكرا لكم

[أبومروان]

وعليكم السلام ورحمه الله وبركاته

شوف الموضوع أدناه ⬇️

 

 

 

 

[shabrawy]

الملف لا يفتح معي ويظهر خطا عند فتحه . كما انني لست محترفا ببرنامج الاكسيل لذلك طلبت طريقة لكي لا اسمح لاي مستخدم برؤية محتوى اي ورقة عمل الا المخصصه له. 

 

[أبومروان]

ارفق الملف وفيه شرح المطلوب وان شاء الله تجد ما تريده 

[shabrawy]

ده ملف به 3 ورقات عمل كل ورقه باسم موظف . اريد عند فتح الملف عدم ظهور اي محتوى داخل ورقات العمل الا عندما يدخل كل شخص كلمة سر خاصه بالورقه 

ولكم جزيل الشكر

7777.xlsx

[ابوحبيبه]

السلام عليكم

اليك هذا الملف بعد التعديل

 7777.xlsm

[أبومروان]

بعد اذن الاستاذ @ابوحبيبه  كود اخر يكون ب اسم مستخدم وكلمه مرور ل إثراء الموضوع

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

[shabrawy]

@كريم نظيم  بشكرك على مجهودك وتعبك وطلب اخير.  الكود اللى حضرتك عملته لكل مستخدم يظهر ورقة عمل محدده. ممكن تزود فى الكود لمستخدم بكلمة سر يكون عنده صلاحيه تظهر له كل اوراق العمل فى ملف الاكسيل

@ابوحبيبه شكرا لحضرتك ولتعبك لكن المربع اللى بجانب الاسم ده احط فيه ايه؟ وطريقة الاستخدام

تم تعديل يونيو 13, 2023 بواسطه shabrawy

[أبومروان]

ممكن اضافه سطر ل اظهار ورقه العمل 

Worksheets("Sheet1").Visible = True

معني هذا أظهر شيت 1 كرر هذا السطر مع تغير اسم الشيت زي ما تحب 

[أبومروان]

 

مستخدم 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

[ابوحبيبه]

السلام عليكم

الحمد لله ان المشاركات كلها تصب في صالح الاعضاء

والكل في خدمة الكل . وده شعار المنتدي الجميل اللي انا استفدت منه كثيرا واحببت ان افيد غيري 

اعلم ان الملف غير كامل . لكني تعلمت من المنتدى . ان يكون للعضو مساحة من الاضافة والتحديث على الملف بما يناسبه

اخي الفاضل ... الشرح بالصورة

 

7777.xlsm

[shabrawy]

كريم نظيم بشكرك على تعبك لكن انا خدت الكود اللى كتبته وحطيته فى الملف عندي ومتاكد من كل الخطوات وعند حفظ الملف وفتحه لا يقوم بتنفيذ الكود المطلوب مع العلم لا تظهر اي رساله خطأ عند فتح الملف. فيا ريت تقولي هل في خطوه معينه عند كتابة الكود ممكن تكون السبب 

ابوحبيبه بشكرك مره تانيه على تعبك ولكن ممكن تقولي كيفية انشاء واجهه مثل التي وضعتها. ولو الموضوع طويل ومحتاج شرح مفصل ممكن ترسلي رابط لاي فيديو شرح للموضوع وشاكر ليك جدا فى كل الاحوال

[محمد هشام.]

بعد إذن الإخوة الكرام واثراءا للموضوع اليك اخي طريقتين يمكنك اختيار ما يناسيك 

الطريقة الاولى 

 

اظهار ورقة المستخدم بكلمة مرور مع اخفاء جميع الشيتات الاخرى 

يمكنك نعديل كلمات المرور كما تشاء 

الطريقة الثانية تحديد صلاحيات الوصول للمستخدمين  دون اخفاء اوراق العمل  بمعنى كتابة كلمة مفعل امام اوراق العمل المسموح للمستخدم الوصول اليها كما في الصورة المرفقة 

 

 

test1.rar test2.rar

تم تعديل يونيو 13, 2023 بواسطه Mohamed Hicham

[ابوحبيبه]

اخي الفاضل Mohamed Hicham

الملف عبارة عن 3 ورقات عمل وكل ورقة باسم شخص مختلف عن الاخر ... ولا يوجد شيء اخر غير ذلك

 

 

[محمد هشام.]

نعم اخي ده مثال للفائدة  فقط  يمكنك تطويعه بما يناسبك وللعلم يمكن حدف اي ورقة من اوراق العمل سيقوم الملف بتحديث البيانات تلقائيا دون اي مشكلة اخي 

على العموم اليك الملف ب 3 اوراق فقط وورقة خاصة ب (Admin) لتعديل كلمات المرور 

test3.xlsm

تم تعديل يونيو 13, 2023 بواسطه Mohamed Hicham

[ابوحبيبه]

الاخ الفاضل : shabrawy

ادخل على محرر اكواد ال VBA ...وحاول فهم خطوات الكود . وان لم تصل لشيء .

فسوف اعد لك شرح مبسط للموضوع 

 

[أبومروان]

للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين.

يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى.

جزاكم الله خيرا علي كل هذه الأعمال الرائعة

@ابوحبيبه @Mohamed Hicham 🌹🌹

 

[shabrawy]

@ابو حبيبه ربنا يبارك فيك وشكرا لمجهودك وهحاول اعمل زي ما قولتلي ولو في اي مشكله هكتبها

@كريم نظيم تسلم وشكرا لمجهودك

@Mohamed Hicham تسلم وشكرا ليك