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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





اخفاء جميع اوراق العمل

الساده الخبراء مرفق ملف به ماكرو من اعمال استاذى الكبير عبد الله باقشير لاخفاء جميع شيتات العمل ولكن عند استخدامه مع ..


موضوع مغلق


12-11-2020 08:04 مساء
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 

الساده الخبراء

مرفق ملف به ماكرو من اعمال استاذى الكبير عبد الله باقشير لاخفاء جميع شيتات العمل 

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

فهل يوجد حل لهذه المشكلة

شكرا لكم لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Visible.rar   تحميل rar مرات التحميل :(13)
الحجم :(15.814) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
الماكرو يقوم بتخزين اسم المصنف الحالي في متغير باسم nBook ثم يخفي المصنف دون إخفاء التطبيق
جرب الكود بهذا الشكل لتتأكد بنفسك
Sub Test()
    kh_wVisible False
End Sub

Sub kh_wVisible(ibol As Boolean)
    Dim nBook As String
    nBook = ThisWorkbook.Name
    With Windows(nBook)
        If .Visible = Not ibol Then .Visible = ibol
    End With
End Sub



لاحظ بعد تنفيذ الكود ستختفي نافذة المصنف الحالي دون إخفاء التطبيق ...

لإظهارها مرة أخرى استخدم السطر
kh_wVisible True
عرض الإجابة




13-11-2020 05:31 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
أخي العزيز خالد 
لا يوجد في الملف المرفق كود يقوم بإخفاء أوراق العمل بل يقوم الكود بإخفاء التطبيق عند دخول الملف والكود المسئول عن ذلك هو Auto_Open ...

13-11-2020 09:41 صباحا
مشاهدة مشاركة منفردة [2]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
استاذ ياسر
اشكرك على اهتمامك و لكن فى Module1
هذا الماكرو مسئول على اخفاء جميع اوراق العمل
Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

 

13-11-2020 11:14 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
الماكرو يقوم بتخزين اسم المصنف الحالي في متغير باسم nBook ثم يخفي المصنف دون إخفاء التطبيق
جرب الكود بهذا الشكل لتتأكد بنفسك
Sub Test()
    kh_wVisible False
End Sub

Sub kh_wVisible(ibol As Boolean)
    Dim nBook As String
    nBook = ThisWorkbook.Name
    With Windows(nBook)
        If .Visible = Not ibol Then .Visible = ibol
    End With
End Sub



لاحظ بعد تنفيذ الكود ستختفي نافذة المصنف الحالي دون إخفاء التطبيق ...

لإظهارها مرة أخرى استخدم السطر
kh_wVisible True

13-11-2020 11:23 صباحا
مشاهدة مشاركة منفردة [4]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
استاذ ياسر
المشكله عند تنفيذ هذا الكود مع فورم يفتح اكسل مرتين مع اوفس 2013
مثال الملف المرفق فى المشاركه الاولى
فهل يوجد حل لهذه المشكله

13-11-2020 04:04 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
لا أدري أنا جربت الملف ويعمل بشكل عادي بدون فتح الأوفيس مرتين كما يحدث عندك ..

15-11-2020 12:00 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif اخفاء جميع اوراق العمل
الملف يعمل بشكل عادي بدون فتح الأوفيس مرتين
(اوفيس 2019 - ويندوز 10)
       (اوفيس 2010 - ويندوز اكس بي)



الكلمات الدلالية
اخفاء ، جميع ، اوراق ، العمل ،


 










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

الساعة الآن 03:05 صباحا