اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Salem2020

عضو جديد 01
  • Content Count

    8
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

عن العضو Salem2020

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Teacher

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. جزاك الله خير ... تم العثور على المطلوب في موقع أجنبي ولكي يستفيد الغير فكل ما عليك هو اضافة ورقة عمل جديدة داخل المصنف الذي ترغب بحمايته وكتابة رسالة تطلب من المستخدم تمكين وحدات الماكروا وبعد ذلك الذهاب الى محرر الاكواد بالضغط على ctrl + f11 والضغط مرتين على thisworkbook ثم لصق الكود التالي في المحرر Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet, wsSplash As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False Set wsSplash = Worksheets("Splash screen") wsSplash.Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then ws.Visible = xlSheetVeryHidden Next ws Cancel = True ThisWorkbook.Save For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then ws.Visible = xlSheetVisible Next ws wsSplash.Visible = xlSheetVeryHidden Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub Workbook_Open() Dim ws As Worksheet, wsSplash As Worksheet Dim Pswd As String Pswd="myPassword" Application.ScreenUpdating = False Set wsSplash = Worksheets("Splash screen") wsSplash.Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then If ws.Name="Sheet1" Then If InputBox("Please enter your password")=Pswd Then ws.Visible=xlSheetVisible Else ws.Visible = xlSheetVisible End If End If Next ws wsSplash.Visible = xlSheetVeryHidden Application.ScreenUpdating = True End Sub وكل ما عليك هو استبدال كلمة (splash screen) بأسم الصفحة التي أعددتها للتنبيه ومن ثم الحفظ بعد ذلك قم بإلغاء تفعيل وحدات الماكروا وافتح الملف ستظهر لك فقط الصفحة رقم 1 التي انشأتها وبها رسالة تطلب منك تمكين وحدات الماكروا وعند عمل ذلك وإعادة تشغيل الملف ستختفي الصفحة رقم 1 التي انشأتها وسيتم عرض بقية المصنف
  2. السلام عليكم لدي ملف إكسل متكامل لإدارة مدرسة يحتوي على وحدات ماكرو ويوزرفورم رئيسي وفرعي وكلمات مرور المشكلة الوحيدة التي تواجهني هي أنه إذا قام شخص آخر بنسخ الملف وفتحه على جهاز كمبيوتر آخر غير مفعله فيه وحدات الماكرو سيتم فتح الملف مباشرة متجاوزا كلمات المرور وواجهة اليوزرفورم غيره هل هناك طريقة تمكنني من تقييد الملف ومنع فتحه في حال لم تكن وحدات الماكرو مفعلة على الجهاز الآخر ؟ ... وشكرا
  3. حفظك الله ورعاك استاذ سليم ... يشهد الله أنك حليت مشكلة كبيرة .. أتمنى لك كل التوفيق والنجاح تحياتي لشخصك الكريم 👍
  4. السلام عليكم كيف يمكنني تحويل الترتيب في دالة rank من ترتيب رقمي ( 1 ، 2 ، ..... ) إلى ترتيب كلمات ( الأول ، الثاني ، الثالث ) حيث ارغب بأن يظهر ترتيب الطلاب كتابيا وليس رقميا كما أرغب بأن يظهر الترتيب في نفس الخلية التي بها المعادلة ولكم جزيل الشكر والتقدير عنوان مخالف... تم تعديل عنوان المشاركة
  5. السلام عليكم عندي الملف المرفق أدناه يحتوي على قوائم منسدلة بأسماء الطلاب في تبويب (شهادات الفصل الأول) هل توجد طريقة أو كود معين يمكنني من خلاله طباعة جميع محتويات القائمة دفعة واحدة بدلا من اختيار كل اسم على حده وطباعته بشكل منفرد كون هذه العملية تستهلك وقت وجهد ... وجزى الله خيرا كل ساهم في إفادتنا ومساعدتنا برنامج إدارة المدرسة.xlsm
  6. لدي الملف المرفق أدناه وهو عبارة عن (يوزرفورم) أول ما تفتح الملف يظهر اليوزرفورم ويختفي الاكسل وبعد الضغط على أحد الازرار في اليوزرفورم يفتح الاكسل ويختفي اليوزرفورم المشكلة .. عند اغلاق شيت الاكسل أرغب بأن يظهر اليوزرفورم من جديد (حتى أتمكن من مواصلة العمل عليه) ولا أرغب بأن يغلق البرنامج وأضطر لفتحه من جديد .. كيف استطيع أن أفعل ذلك ارجوا المساعدة .. ولكم جزيل الشكر رصد.xlsm
×
×
  • اضف...