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



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




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





الساعة الآن 01:33 صباحا

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