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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil شيت كنترول ابتدائى 2019 ـ برنامج كنوز اكسيل اسئله واجابات




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




13-02-2018 08:21 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 675
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 142
قوة السمعة : 2400
الاعجاب : 868
 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 مساء




اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 08:09 صباحا

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