اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كلمه مرور لفتح شيت

السلام عليكم انا عامل شاشه رئيسيه يفتح الاكسيل عليها وعامل اشكال shapes باسماء كل tab ف الشيت. عايز من الشاشه الرئيسيه ..



13-02-2018 08:52 صباحا
Osmanko
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2018
رقم العضوية : 4227
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 17-7-1988
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 23
 Online 

السلام عليكم 
انا عامل شاشه رئيسيه يفتح الاكسيل عليها وعامل
اشكال shapes باسماء كل tab ف الشيت.
عايز من الشاشه الرئيسيه دى اعمل باسورد لكل shapes 
عند الضغط عليها يطلب رقم سرى افتحها
وشكرا


تم تحرير الموضوع بواسطة :Osmanko
بتاريخ:13-02-2018 08:53 صباحا







13-02-2018 08:21 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 504
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 88
قوة السمعة : 1441
الاعجاب : 508
 offline 
look/images/icons/i1.gif كلمه مرور لفتح شيت
الافضل دوما ان ترففق ملف  حتى يتم العمل علية 
ولكن الى فهمته مرفق كود ضعة داخل الشكل وطوعة كما تحب 

ضع الكود التالى في حدث فتح مصنف العمل ThisWorkbook
Private Sub Workbook_Open()
sheet1.Visible = xlSheetVeryHidden
End Sub

ثم ضع هذا الكود في احد الايقونات المسؤله مثلا عن فتح شيت 1

Sub abo_dahab()
Dim p

    p = InputBox("هذا الإجراء يتطلب باس ورد حتى يتم التنفيذ.", "Password Required")
    If p = "123456" Then
    'الباسورد هو 123456 غيرة كما تحب
    GoTo 90
    Else
    MsgBox "كلمة المرور خاطئة حاول مرة اخرى"
    Exit Sub
    End If
90:
Unload Me
Application.Visible = True
sheet1.Visible = xlSheetVisible
'اختار اسم الشيت من السطر بالاعلى
End Sub


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


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:13-02-2018 08:27 مساء


أثارت هذه المشاركة إعجاب: Yasser Elaraby، عبدالجيد،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


14-02-2018 07:23 صباحا
مشاهدة مشاركة منفردة [2]
Osmanko
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2018
رقم العضوية : 4227
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 17-7-1988
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 23
 Online 
look/images/icons/i1.gif كلمه مرور لفتح شيت
اشكرك اخى العزيز وجزاك الله خيرا
هجربه واشوف النتيجه





14-02-2018 08:12 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
العضو غائب مشغول هذه الايام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 675
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 335
قوة السمعة : 4341
الاعجاب : 1088
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كلمه مرور لفتح شيت
جزاكم الله خيرا اخي الكريم محمود ابوالدهب ارجع لنشاطك كما في السابق
اليك اخي السائل هذا الموضوع قد يفيدك اكثر
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تحياتي

أثارت هذه المشاركة إعجاب: عبدالجيد، محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020



14-02-2018 08:49 صباحا
مشاهدة مشاركة منفردة [4]
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 175
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 67
يتابعونه : 9
قوة السمعة : 951
الاعجاب : 222
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif كلمه مرور لفتح شيت
استاذ محمود بارك الله فيك وكنت انتظر أن أرى موضعاتك الجديدة
اما استاذنا ياسر العربى هذا مانريده منك موضعاتك وارشاداتك وحلولك الرائعة وتواجدك الدائم معنا
تحياتى للجميع





14-02-2018 08:59 صباحا
مشاهدة مشاركة منفردة [5]
Osmanko
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-02-2018
رقم العضوية : 4227
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 17-7-1988
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 23
 Online 
look/images/icons/i1.gif كلمه مرور لفتح شيت
كل التقدير والاحترام 
ا ياسر وا محمود أبو الدهب 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،






الكلمات الدلالية
كلمه ، مرور ، لفتح ،


 








الساعة الآن 11:27 صباحا

أعلن هنا
أعلن هنا
أعلن هنا