حماية ورق عمل من ملف من المشاهدة

[Ali Tawfeek]

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

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

فهل من مساعدة و شكرا

[احمدزمان]

السلام عليكم

الأخ-علي

الطريقة البدائية

هي اخفاء الأعمدة التي بها المجاميع و من ثم حماية الورقة بكلمة مرور

وقد يوجد طريقة اخرى لدى اساتذة اكوادVB انا لا اعرفها

[نزار سليمان عيد]

اخي الكريم السلام عليكم

انظر للمرفق وكلمة السر رقم 5 هل هو ماتقصده

________________2__________5.rar

[رفيق محمد]

استاذنا وحبيبنا الاخ/ نزار

الف الف الف مليون شكر

كل يوم تتحفنا بالجديد والروائع

بصراحة

اتعبتنا من كتر ما نقول

جزاك الله كل الخير

-------------------------------------------------------------

كيف فعلتها؟؟؟؟؟؟؟؟؟

------------------------------------------------------------

[نزار سليمان عيد]

اخي الحبيب BU3MMAR السلام عليكم

يتم ذلك بوضع الكود ادناه في الصفحة المراد كلمة السر لها وهي في المرفق صفحة 2 واي استفسار او تعديل اعلمني من فضلك

فيوجد لي مشاركة ايضا مشابهة ولكن قبل ان تذهب للصفحة المطلوبة يتم سؤالك عن الرقم السري واذا اردت ارفقته لك

Private Sub Worksheet_Activate()

xx:

Dim x
x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena")
If IsNull(x) Or x = "" Then GoTo xx


If x = 5 Then
MsgBox "welcome to sheet2"
Else
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly
Sheets("sheet3").Activate
End If


End Sub

[msa_2006]

اخي الحبيب BU3MMAR السلام عليكم

يتم ذلك بوضع الكود ادناه في الصفحة المراد كلمة السر لها وهي في المرفق صفحة 2 واي استفسار او تعديل اعلمني من فضلك

فيوجد لي مشاركة ايضا مشابهة ولكن قبل ان تذهب للصفحة المطلوبة يتم سؤالك عن الرقم السري واذا اردت ارفقته لك

Private Sub Worksheet_Activate()

xx:

Dim x
x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena")
If IsNull(x) Or x = "" Then GoTo xx


If x = 5 Then
MsgBox "welcome to sheet2"
Else
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly
Sheets("sheet3").Activate
End If


End Sub

جميع الأخوة مشكرين على هذ المجهود وشكر للأستاذ نزار وعندي سؤلين له

1- من السهل الدخول على vba معرفة الباسورد فكيف أغلق الوصول إلى vba؟

2- عند طلب الباسورد هناك أختياران لغلق شاشة الباسورد أولهم كتابة الباسور صحيح وثانيهم كتابته خطا ولكن لا أستطيع أستعمال زر cancel للخروج من الشاشة؟

[msa_2006]

جميع الأخوة مشكرين على هذ المجهود وشكر للأستاذ نزار وعندي سؤلين له

1- من السهل الدخول على vba معرفة الباسورد فكيف أغلق الوصول إلى vba؟

2- عند طلب الباسورد هناك أختياران لغلق شاشة الباسورد أولهم كتابة الباسور صحيح وثانيهم كتابته خطا ولكن لا أستطيع أستعمال زر cancel للخروج من الشاشة؟

[احمدزمان]

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

استاذنا نذار

دائما مبدع

وتفاجئنا بابداعاتك

جزاك الله الف خير - وجعلها في ميزان حسناتك

[Ali Tawfeek]

بالفعل يا اخى ما ذكرته هو جزء مما اريد رغم اانى لا استخدم VBS و لكن ممكن اتعلم استخدامه لو ده هيحقق الغرض

و لكن يا اخى المتعاون نزار انى اريد حماية من تعديل و مشاهدة و كل شئ الا لمن يمتلك كلمة سر بيا اخى الكريم اذا لاحظت انك سجلت اى شئ بالورقة 2 و بعد ذلك اغلقت الملف و رجعت مرة اخرى ستكون المدخلات ظاهرة لك و الذى يحتاج الى كلمة سر هو التعديل لذا هذا الجزء لا يتحقق معى و لهذا مازلت فى احتياج شديد الى الحماية من مشاهدة و تعديل

بالنسبة الى ما ذكره اخى الكريم msa_2006 الذى يخص اظاهر كلمة السر فهل هذا صحيح ام ماذا ؟؟؟

[عادل حنفي]

اخواني الاعزاء

الملف المرفق ال VB مغلقة بباسورد 222

و قمت بعمل عدة تعديلات بسيطة لا تقلل ابدا من الجهد

المبذول بل نكمل بعضنا للخروج بالعمل بافضل نتيحه

و هذا بعد اذن الاخوه الاعزاء

اخي العزيز نزار سليمان

و اخي العزيز احمد يعقوب

تحياتي للجميع

goto_the_page_with_pass.rar

[نزار سليمان عيد]

اخي الحبيب BU3MMAR السلام عليكم

يتم ذلك بوضع الكود ادناه في الصفحة المراد كلمة السر لها وهي في المرفق صفحة 2 واي استفسار او تعديل اعلمني من فضلك

فيوجد لي مشاركة ايضا مشابهة ولكن قبل ان تذهب للصفحة المطلوبة يتم سؤالك عن الرقم السري واذا اردت ارفقته لك

Private Sub Worksheet_Activate()

xx:

Dim x
x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena")
If IsNull(x) Or x = "" Then GoTo xx


If x = 5 Then
MsgBox "welcome to sheet2"
Else
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly
Sheets("sheet3").Activate
End If


End Sub

جميع الأخوة مشكرين على هذ المجهود وشكر للأستاذ نزار وعندي سؤلين له

1- من السهل الدخول على vba معرفة الباسورد فكيف أغلق الوصول إلى vba؟

2- عند طلب الباسورد هناك أختياران لغلق شاشة الباسورد أولهم كتابة الباسور صحيح وثانيهم كتابته خطا ولكن لا أستطيع أستعمال زر cancel للخروج من الشاشة؟

اخي الكريم السلام عليكم

1- يمكنك وضع كلمة سر لشاشة VBA

2- نعم يااخي الكريم فلو عملت Cancell وقبل الامر يعني هذا ان اي شخص يلغي الباسوورد بواسطة Cancell وبالتالي يقوم بتعديل هذه الصفحة المحمية لذلك يتوجب عليك ادخال الرقم فاذا كان صحيح ذهبت الرسالة واذا خطأ اعطاك رسالة خطا وارجعك لصفحة 3 في المثال

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

[msa_2006]

اخي الكريم السلام عليكم

1- يمكنك وضع كلمة سر لشاشة VBA

2- نعم يااخي الكريم فلو عملت Cancell وقبل الامر يعني هذا ان اي شخص يلغي الباسوورد بواسطة Cancell وبالتالي يقوم بتعديل هذه الصفحة المحمية لذلك يتوجب عليك ادخال الرقم فاذا كان صحيح ذهبت الرسالة واذا خطأ اعطاك رسالة خطا وارجعك لصفحة 3 في المثال

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

[msa_2006]

اخي الكريم السلام عليكم

1- يمكنك وضع كلمة سر لشاشة VBA

2- نعم يااخي الكريم فلو عملت Cancell وقبل الامر يعني هذا ان اي شخص يلغي الباسوورد بواسطة Cancell وبالتالي يقوم بتعديل هذه الصفحة المحمية لذلك يتوجب عليك ادخال الرقم فاذا كان صحيح ذهبت الرسالة واذا خطأ اعطاك رسالة خطا وارجعك لصفحة 3 في المثال

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

[msa_2006]

اخي الكريم السلام عليكم

1- يمكنك وضع كلمة سر لشاشة VBA

2- نعم يااخي الكريم فلو عملت Cancell وقبل الامر يعني هذا ان اي شخص يلغي الباسوورد بواسطة Cancell وبالتالي يقوم بتعديل هذه الصفحة المحمية لذلك يتوجب عليك ادخال الرقم فاذا كان صحيح ذهبت الرسالة واذا خطأ اعطاك رسالة خطا وارجعك لصفحة 3 في المثال

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

[عادل حنفي]

اخواني الاعزاء

الملف المرفق ال VB مغلقة بباسورد 222

و قمت بعمل عدة تعديلات بسيطة لا تقلل ابدا من الجهد

المبذول بل نكمل بعضنا للخروج بالعمل بافضل نتيحه

و هذا بعد اذن الاخوه الاعزاء

اخي العزيز نزار سليمان

و اخي العزيز احمد يعقوب

تحياتي للجميع

goto_the_page_with_pass.rar

[نزار سليمان عيد]

اخي الكريم aah_aah2008 جزاك الله خيرا وما قصرت

وحسب مافهمت من الاخ msa_2006 يبدو انه جديد على لغة VBA

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

[نزار سليمان عيد]

اخي الكريم aah_aah2008 جزاك الله خيرا وما قصرت

وحسب مافهمت من الاخ msa_2006 يبدو انه جديد على لغة VBA

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

_____________________2_______________5.rar

[نزار سليمان عيد]

اخي msa_2006 السلام عليكم

بالنسبة للطلب الثاني انظر للمرفق

navigate________________2__________5.rar

[msa_2006]

شكراً أخي نزار وشكر خاص للأخي aah_aah2008 .

فعلاً ما قام به الأخ aah_aah2008 أصاب الهدف وفعلاً حل مشكلة التراجع عن طلب الصفحة 2.

وعلى فكرة يا أخي يا أستاذ / نزار أن أستطعت الوصول لباسورد vba قبل ردك الكريم علي---- وشكراً على الأهتمام وأرسال شرح طريقة الوصول إلى باسورد vba.

وطريقة الشرك هذه سهلة وبسيطة للكل.

_ لكن أستفساري الأساسي حالياً كيفية الرجوع إلى أخر نقطة كنت أتعامل معها قبل طلب الصفحة 2 وذلك عن طريق زر cancel.

[msa_2006]

اخي msa_2006 السلام عليكم

بالنسبة للطلب الثاني انظر للمرفق

يا أخي نزار أنت والله العظيم رجل محترم جداً وشكراً قووووووووووووي على كل هذا المجود وأنا مشعارف قولك أيه.

ويا ريت يكون أخر أستفسار مني يكون وضحلك الصورة وطلبي. جزاك الله خيراً .......

[احمدزمان]

استاذ نذار

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

شرح رائع و وافي وكافي و معلومة جدا مفيدة جعلها الله في ميزان حسناتك

شكرا جزيلا

[Ali Tawfeek]

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

وضع كلمة سر للكود مختلفة عن كلمة سر فتح الورقة

كيفية اخفاء بيانات الصفحة حتى يتم ادخال كلمة سر

بالنبسة الى اخى الكريم الذى ارفق ملف باسم navigateالذهاب الى صفحة 2 بكلمة سر 5.xls عذرا اننى لا افهم الملف خالص علما انه عجبتنى فكرة القائمة المندسلة باسماء الورق لذا ارجو منه الشرح التفصيلي لهذا و ارجو الايضاح التفصيلي

تم تعديل مايو 13, 2008 بواسطه ali fathi

[msa_2006]

السلام عليكم ياخي (علي فتحي)

الملف المرفق من الأخ aah_aah2008 بيخفي بيانات الصفحة 2 عن طريق أظهار خلية في أسفل الصفحة لا تظهر بيانات الصفحة من أعلى وممكن تعدل مكان الخلية الظاهرة بأنك تخليها من Z1000 إلى AE60000 ,f بذلك تكون بيناتك بعيدة عن الظهور.

وعند الحفظ وغلق الملف وعند أعادة الفتح لا يفتح على الصفحة 2 بل يفتح صفحة3 تلقائياً.

حمل الملف المرفق الخاص بالمشركة الأخ الكريم aah_aah2008 بتاريخ May 13 2008, 01:54 AM وهتكون العملية واضحة

[Ali Tawfeek]

السلام عليكم ياخي (علي فتحي)

الملف المرفق من الأخ aah_aah2008 بيخفي بيانات الصفحة 2 عن طريق أظهار خلية في أسفل الصفحة لا تظهر بيانات الصفحة من أعلى وممكن تعدل مكان الخلية الظاهرة بأنك تخليها من Z1000 إلى AE60000 ,f بذلك تكون بيناتك بعيدة عن الظهور.

وعند الحفظ وغلق الملف وعند أعادة الفتح لا يفتح على الصفحة 2 بل يفتح صفحة3 تلقائياً.

حمل الملف المرفق الخاص بالمشركة الأخ الكريم aah_aah2008 بتاريخ May 13 2008, 01:54 AM وهتكون العملية واضحة

للاسف حملت الملف و لكن للاسف لم افهم شئ مما ذكرت فهل من الممكن الشرح التفصيلي

بالنسبة الى سؤالى الاول الخاص بعدم اظهار البيانات حتى يتم ادخال كلمة لسر

[نزار سليمان عيد]

اخواني جميعا السلام عليكم

لقد قمت بعمل تعديل على آخر مشاركة لي وهي الغاء Cancell كما طلب الاخ msa_2006

اخي ali fathi بالنسبة للملف الذي تسأل عنه هو عبارة عن قائمة منسدلة بجميع الصفحات التي بالملف حيث يقوم المستخدم باختيار الصفحة الخاصة به وفي حالة اختيار الصفحة 2 في مثالنا ولايعرف كلمة السر سوف لن يصل للصفحة واذا اردت المزيد من الشرح اعلمني من فضلك

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

انظر للمرفق

________________2__________5_1_.rar