عدم اظهار قوائم و أوراق الاكسل

[حشروف]

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

[الصـقر]

اخى الكريم حشروف

مرحبا بك فى هذا الصرح العظيم بين اخوانك

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

انسخ هذا الكود وقم بلصقه فى مودويل جديد 

جرب وعلمنى بالنتيجة

تقبل تحياتى

ÇáßæÏ ãä ÇÚãÇá ÇáÑÇÆÚ ÇáÚáÇãå ÚÈÏÇááå ÈÇÞÔíÑ
Public xx As Integer
Public x As Integer
Sub Auto_Open()
Application.ScreenUpdating = False

kh_wVisible True
Application.ScreenUpdating = False

Application.DisplayFormulaBar = False

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic



End Sub

Sub Auto_Close()
Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
Application.DisplayFormulaBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

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

[عبد الله بولنوار]

 

اخى الكريم حشروف

مرحبا بك فى هذا الصرح العظيم بين اخوانك

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

انسخ هذا الكود وقم بلصقه فى مودويل جديد 

جرب وعلمنى بالنتيجة

تقبل تحياتى

ÇáßæÏ ãä ÇÚãÇá ÇáÑÇÆÚ ÇáÚáÇãå ÚÈÏÇááå ÈÇÞÔíÑ
Public xx As Integer
Public x As Integer
Sub Auto_Open()
Application.ScreenUpdating = False

kh_wVisible True
Application.ScreenUpdating = False

Application.DisplayFormulaBar = False

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
UserForm7.Show


End Sub

Sub Auto_Close()
Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
Application.DisplayFormulaBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

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

السطر الاول لا يعمل

[الصـقر]

استاذى عبدالله بولنوار السطر الاول 

كتابة بالعربى ودا سبب عدم ظهوره وهو لا يؤثر على عمل الكود

[عبد الله بولنوار]

عذرا لصاحب الموضوع

 

شكرا يا صقر بدون جروح ان شاء الله

 

 

 

يجب انشاؤه ايضا ؟

 

لان الكود يتوقف عنده

 

 

 

عند انشاء UserForm7

 

يظهر

 

تم تعديل يناير 3, 2015 بواسطه عبد الله بولنوار

[الصـقر]

اخى الكريم

تم التعديل على الكود راجع المشاركة 2

[عبد الله بولنوار]

فالفعل الكود بعد التعديل اخفى قوائم الاكسال لكن الصفحات مزالت موجودة 

 

 

اذا لم يكن هناك ازعاج

 

ممكن تعديله ليظهر بعد فتح المصنف

 

UserForm1

 

 

فقط دون اي شيئ مثل برنامجك الرائع

[الصـقر]

استاذى

لفتح اليوزر فرم 1 

اعمل كود فى حدث فتح الملف 

Private Sub Workbook_Open()
UserForm1.Show
End Sub

[عبد الله بولنوار]

تمام يا باشا يا معلم

 

 

 

جزيت خيرا و رضى الوالدين

[حشروف]

شكرا جزيلا للأستاذين المحترمين الصقر الجريح وعبد الله بولنوار.

وكل عام و أنتما وكل المشرفين على هذا المنتدى الممتاز بخير .

[عبدالباري البنا]

بعد اذن الاساتذه

دى طريقة اخرى لاخفاء الادوات واظهارها

وايضا اخفاء الصفحات ماعدا الصفحة النشطة فقط

اخفاء الصفحات.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب عبد الباري

اسمح لي أن أعرف ما هذا السطر

 MyTest = False

[عبدالباري البنا]

 

بارك الله فيك أخي الحبيب عبد الباري

اسمح لي أن أعرف ما هذا السطر

 MyTest = False

اخى واستاذى الحبيب ياسر

هذا السطرهو بقية كود كان مضاف فى بداية كود الاظهار وكان خاص بوظيفة اخرى 

لكن انا حذفت بداية الكود ونسيت هذا السطر سهوا...كنت اجهز الكود لينفذ وظيفة الاخفاء و الاظهار فقط 

لان الكود الاصلى الموجودعلى احد ملفاتى به عدة وظائف اخرى بجانب الاظهار والاخفاء

[ياسر خليل أبو البراء]

أخي عبد الباري أين مشاركاتك في مشروع المكتبة؟

أم أن المشروع لم يعجبك !!!

 

ننتظر إضافاتك الرائعة .. ولكن لا تنسى شرح أسطر الكود تسهيلا على إخواننا فيما بعد لاستخدام الكود والتعديل عليه بدون الرجوع لأي أحد

تقبل تحياتي

[عبدالباري البنا]

اخى واستاذى 

ياسر خليل

على العكس تماما الموضوع غاية فى الاهمية والروعه والجمال 

واعجبنى جدا جدا ..

وقريبا سوف تجد مشاركات كثيره جدا 

لانه لا يجوز الااستمتع بالمشاركه فى هذا العمل الكبير

تحياتى لشخصكم الكريم

[سيف الدين حسام]

خيركم من تعلم العلم وعلمه