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

[عادل حنفي]

اخي العزيز نزار الفكره جميله

بـ navigate

و ماقصرت و فقك الله

[Ali Tawfeek]

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

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

2- بالنسبة الى سؤالى فى حماية الورقة من المشاهدة و التعديل بالفعل يا اخى نزار اناجربت كودك التالى

Private Sub Worksheet_Activate
xx:
Dim x
x = InputBox("Password required" & Chr(13) & "welcome to OPR", "Welcome to OPR")
If IsNull(x) Or x = "" Then GoTo xx
If x = 123 Then
MsgBox "welcome to N-Daily"
Else
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 1 and not 2, Bye !!", vbOKOnly
Sheets("sheet1").Activate
End If
End Sub

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

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

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

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

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

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

اخي الحبيب احمد السلام عليكم مشكور على مرورك

اخي الحبيب aah_aah2008 السلام عليكم مشكور على مرورك

اخي ali fathi لك ماتريد

بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل

بالنسبة للسؤال الثاني بالفعل اخي انا ارفقت ملف قبل التعديل على هذا الاستفسار فعذرا وانظر الى المرفق في هذه المشاركة وسترى المطلوب ويمكنك نسخ الكود وتغيير كلمة السر ( لاتنسى ان تنظر للمرفق بهذه المشاركة)

بالنسبة للطلب الاخير نعم اخي الكريم فلا علاقة بين كلمة السر على الصفحة وكلمة السر على VBA

واي استفسارات اخرى انا جاهز

مع الشكر للجميع

انظر للمرفق

________________2__________5_2_.rar

تم تعديل مايو 15, 2008 بواسطه نزار سليمان عيد

[Ali Tawfeek]

بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل

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

[Ali Tawfeek]

بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل

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

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

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

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

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

انظر للشرح في المرفق واي استفسار اعلمني من فضلك

navigate.rar

[Ali Tawfeek]

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

انظر للشرح في المرفق واي استفسار اعلمني من فضلك

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

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

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

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

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

انظر للمرفق

_________________________________________.rar

[Ali Tawfeek]

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

انظر للمرفق

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

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

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

شرح الكود

 Sheets("Sheet1").Select
Sheets("Sheet2").Visible = False

في الفقرة اعلاه يتم اختيار الصفحة 1 واخفاء الصفحة 2

Dim x
x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena")
If IsNull(x) Or x <> 5 Then
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly
Sheets("Sheet2").Visible = False
Sheets("Sheet1").Select

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

Else
If x = 5 Then

MsgBox "welcome to sheet2"

Sheets("Sheet2").Visible = True
Sheets("Sheet2").Select

في الكود اعلاه اذا كلمة السر = 5 فقم بعمل ظهور رسالة ترحيبية اظهار الصفحة 2 اختيار صفحة 2

End If
End If
End Sub

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

 Sheets("Sheet1").Select
    Sheets("Sheet2").Visible = False

في الكود اعلاه

يقوم بالذهاب الى صفحة واحد واخفاء صفحة 2

نهاية الماكرو الثاني

مع الشكر

[Ali Tawfeek]

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

شرح الكود

مشكور اخى الغالى على شرحك بس هل يمكنك ان تشرح لى كيفية تعديل الماكرو المذكور حيث اريد ان اعدل مكان وضع الماكرو الخاص بكلمة الذهاب الى الصفحة 2 فكيفية تعديل الكلمة و تعديل المكان

مشكور اخى الكريم مرة تانية على سرعة مبادرتك

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

[

مشكور اخى الغالى على شرحك بس هل يمكنك ان تشرح لى كيفية تعديل الماكرو المذكور حيث اريد ان اعدل مكان وضع الماكرو الخاص بكلمة الذهاب الى الصفحة 2 فكيفية تعديل الكلمة و تعديل المكان

مشكور اخى الكريم مرة تانية على سرعة مبادرتك