كود اغلاق وفتح الاشرطة ومنع استخدم زر التصغير اوالتكبير (معدل)

[skyblue]

اخواني المشرفين والاعضاء الافاضل المحترمين

السلام عليكم ورحمة الله وبركاته وبعد

في الملف المرفق يوجد كود يقوم بالغاءجميع الاشرطة من الصفحة الرئيسية للاكسيل ويرجعهها عند الاغلاق وهذا تم في اكسل 2003 بكل كفاءة .

ولكن عندما طبقنا هذا الكود على اصدار اكسل 2010 ظهر عند الفتح شريط التوافق - X

فكيف يمككني من التعديل في الكود بحيث لايظهر هذا الشريط عند الفتح .

تحياتي

Book1.rar

[skyblue]

up

[skyblue]

UP

[الـعيدروس]

السلام عليكم

جرب هذا الكود

في حدث ThisworkbooK

Private Sub Workbook_Open()

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

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

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWindow.DisplayHeadings = True

Application.DisplayFormulaBar = True

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

End Sub

[mhrrd]

كود 2003 جميل هل يمكن اختزاله الى عدد اصغر من الاسطر

كيف يمكن الوصول الى الصفحات الداخلية ونحن في الصفحة الخارجية

[الشهابي]

الأستاذ / أبو نصار

كود رائع

جزاكم اله خير وبارك فيكم وزادكم رفعة وعلماً

[عبدالله المجرب]

احسنت اخي ابو نصار

[skyblue]

الاستاذ ابو نصار المحترم

الكود ينفع مع اصارا اكسل 2003

ولكن المطلوب هو كيفية تعطيل شريط التوافق في اصدار اكسل 2010 فعند استخدام هذا الكود في اطسل 2010 يظهر شريط التوافق الذي يحتوي على زر تصغير - وزر تكبير - وز اغلاق . انا اريد تعطيلها فكيف يكون ذلك ؟؟؟؟؟

فعلا محتاج ان اجد الحل ... الله يحفظكم

[محمد يحياوي]

الاخ الفاضل skyblue احفظ الملف بصسغة xlsm يزول الاشكال

[skyblue]

لازال الشكال موجود .

انا اريد تعطيل زر تصغير - وزر تكبير - وز الاغلاق من من شريط التوافق .

[عبدالله المجرب]

بداية اهنئك على الترقية التلقائية الى عضو شرف

لو تم اخفائهم كيف ستغلق الملف

[skyblue]

اشكرك مشرفنا الغالي عبدالله المجرب ابو احمد

شكرا على الترقية الله يحفظكم

بخصوص الاغلاق سوف اغلق الملف عن طريق زر اغلاق بهذا الكود

Sub ClosewithoutSave()

Application.Quit

ActiveWorkbook.Close SaveChanges:=False

End Sub

[الـعيدروس]

السلام عليكم

الاخ الاساذ الحبيب الشهابي اشكرك على المرور الكريم

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

الاخ الفاضل skyblue

حط هذا الكود في حدث Thisworkbook

Private Sub Workbook_Open()

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

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

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = True

End Sub

وهذا كودك وعليه بعض الاضافات

Sub ClosewithoutSave()

Application.EnableEvents = False

Application.Quit

ActiveWorkbook.Close SaveChanges:=False

ActiveWindow.DisplayHeadings = True

Application.DisplayFormulaBar = True

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

Application.EnableEvents = True

End Sub

جرب ان شاء الله اكون افدتك

[skyblue]

احسنت ياابو نصار بخصوص X الاغلاق في الشريط تم بالفعل تعطيله .

يتبقى تعطيل زر التكبير فقط .( restore down )

تحياتي

[الـعيدروس]

السلام عليكم

الاخ الفاضل skyblue

هذا الكود في حدث Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = True

End Sub

وهذه الأكواد انسخها الى مودويل

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Dim BigSize As Boolean

Dim SmallSize As Boolean

Sub ShowMinMax(ShowMin As Boolean, ShowMax As Boolean)

Dim WinInfo As Long

WinInfo = GetWindowLong(Application.HWnd, GWL_STYLE)

If ShowMin = True Then

WinInfo = WinInfo Or WS_MINIMIZEBOX

Else

WinInfo = WinInfo And (Not WS_MINIMIZEBOX)

End If

If ShowMax = True Then

WinInfo = WinInfo Or WS_MAXIMIZEBOX

Else

WinInfo = WinInfo And (Not WS_MAXIMIZEBOX)

End If

SetWindowLong Application.HWnd, GWL_STYLE, WinInfo

End Sub

Sub Auto_Open()

With Application

.ActiveWindow.DisplayHeadings = False

.DisplayFormulaBar = False

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

End With

BigSize = False

Call ShowMinMax(True, False)

End Sub

Sub ClosewithoutSave()

Application.EnableEvents = False

Application.Quit

ActiveWorkbook.Close SaveChanges:=False

ActiveWindow.DisplayHeadings = True

Application.DisplayFormulaBar = True

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

BigSize = True

Call ShowMinMax(SmallSize, BigSize)

Application.EnableEvents = True

End Sub

اللهم علمنا ماينفعنا

أكواد واجهة التطبيقات من أحد المواقع

تم تعديل مايو 5, 2012 بواسطه alidroos

[skyblue]

الاخ العيدروس ابو نصار الله يجزيك عنا كل خير

واشكرك على اجتهادك معي .

والله يحفظك

[محمدي عبد السميع]

جزاكم الله خيرا

[mhrrd]

كيف يمكن الوصول الى الصفحات الداخلية ونحن في الصفحة الخارجية

بارك الله لكم

[skyblue]

الاساتذة  المشرفين والاعضاء الافاضل                             المحترمين 

 

السلام عليكم ورحمة الله وبركاته     وبعد|

 

تلاحظ لي ان جميع برامج اكسل المصممة من قبل مبرمجين كبار في هذا المنتدى  رائعة وممتازة جدا . ولكن  بنية البرنامج فيها قصور ربما  لم  يلاحظ البعض  لسبب ما , لكن انا لاحظتها بحكم تجربتي لها في عملي واعتقد لو توصلنا لحل هذه المشكلة  سيكون ذلك رائعا.

 

والمشكلة هي  انه عند قيام المبرمجين الافاضل بتصميم برنامج  يضعون في    workbook   كود معين . مهمة هذا الكود  اغلاق جميع الاشرطة 

 

وفيرها عندالفتح - ورجاعها عند الاغلاق . لكن هذا الكود لايعمل ويتلاشى دوره عند استخدم زر التصغير  او زر التكبير  حيث ترجع الاشرطة وغيرها  الى الصفحة .

 

نحتاج الى تعديل او في الكود اللي في workbook  حتى لايتأثر عند استخدم  زر التصغير او التكبير 

 

تحياتي

 

 

Book19.rar

تم تعديل أكتوبر 4, 2013 بواسطه skyblue

[skyblue]

استاذ  عباد بعداضافة الكود النتائج ممتازة . ولكن هل من الممكن تعطيل زر التكبير والاغلاق

 

تحياتي

Book19.rar

[الـعيدروس]

يوجد لديك موضوع قديم مماثل لهذا الطلب

تم دمج الموضوعين