الصـقر

اخى الكريم جرب المرفق هل هو المطلوب تقبل تحياتى مشكل3.zip

الاخ الكريم راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=57377&hl= تقبل تحياتى

الاستاذ محمد عبدالمجيد ايوة كدا ما شاء الله عليك عايزين كل يوم يكون فيه مبدع جديد واستاذ جديد يساعد الاعضاء الجدد تقبل تحياتى

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

اخى الكريم راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=57669&hl= يرجى استعمال خاصية البحث قبل الطلب

ملحوظه مهم جدا قبل ما تقفلى الملف هل الملف تم حفظه على امتداد XLSM ام لا

الخطوة الاخيرة هى تعيين الماكرو على الازرار الوقوف على الزر الاول ثم كليك يمين ستظهر قائمة احتارى تعيين ماكرو ثم تظهر قائمة اختارى منها unhide_toolbar كما هو بالصورة ثم الانتقال الى الزر الاخر وعمل كليك يمين ثم اختيار تعيين ماكرو ستظهر القائمة اختارى hide_toolbar كدا خلاص جربى وعلمينى بالنتيجة تقبلى تحياتى

الخطوة الثانية اضغطى ALT + F11 سيفتح معك محرر الاكواد قومى بادراج مودويل جديد من قائمة insert ثم اختيار مودويل سيظهر معك شاشة بيضه قومى بنسخ الكود اللى فوق ثم نسخه بالمودويل اللى عملتية اللى هو الشاشه البيضه ملحوظه الملف على امتداد XLSM ام لا خلى الملف مفتوح دائما الين الانتهاء من الخطوات

طيب حضرتك اول خطوة اعملى فى الصفحه الرئيسية زرين كما هو موضح بالصورة من شريط القوائم اختارى Developer ثم insert ثم الضغط على اول زر فوق على اليسار ثم رسم الزر على اى ورقة العمل اعملى الخطوة دى اعملى زرين مش زر واحد

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

طريقه العمل انسخ هذا الكود ثم قم بلصقه فى مودويل جديد ومتنساش تعمل زرين فى اى صفحة 1- للاظهار وتعيين الكود علية وهو unhide_toolbar 2- الاخفاء وتعيين الكود علية وهو hide_toolbar 'هذا الكود للعلامه عبدالله باقشير Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = 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 Sub unhide_toolbar() xx: Dim x x = InputBox("لأظهار شريط القوائم يرجى ادخال الرقم السرى" & Chr(13) & "كلمة مرور", "الرجاء ادخال كلمة المرور") If IsNull(x) Or x = "" Then GoTo xx If x = "111" Then ActiveWindow.DisplayWorkbookTabs = True Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Else MsgBox "كلمة المرور غير صحيحه" & Chr(13) & " الرجاء اعادة ادخال كلمة المرور ", vbOKOnly End If End Sub Sub hide_toolbar() ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub تقبلوا تحياتى

السلام عليكم الاخت الكريمة جربى الملف المرفق هل هو المطلوب الباسورد للاظهار 111 تقبلى تحياتى اخفاء شريط الصفحات.zip

استاذى لفتح اليوزر فرم 1 اعمل كود فى حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub

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

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

اخى الكريم حشروف مرحبا بك فى هذا الصرح العظيم بين اخوانك اليك الكود التالى للعلامه القدير عبدالله باقشير انسخ هذا الكود وقم بلصقه فى مودويل جديد جرب وعلمنى بالنتيجة تقبل تحياتى ÇáßæÏ ãä ÇÚãÇá ÇáÑÇÆÚ ÇáÚáÇãå ÚÈÏÇááå ÈÇÞÔíÑ 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

استاذى الفاضل جلال الجمال اشكرك على مرورك الكريم ولا تحرمنا من ملاحظاتك ونقدا او اضافاتك تقبل منى وافر الاحترام والتقدير

استاذ احمد الملف لا يمكن تحميله اضغط الملف ببرنامج وينرار وارفعه // لو حجمه كبير ارفعه على موقع رفع مثل قولف اب تقبل تحياتى

استاذى الحبيب ابو ايمان شكرا على مرورك العطر وتقبل منى وافر الاحترام والتقدير

اخى وحبيبى واستاذى محمد الريفى اولا كل الشكر على مرورك العطر ثانيا ملاحظاتك واستفساراتك اسعد بها واستفيد منها بالنسبة لنوع البرنامج هو برنامج شامل كل الامور المحاسبية خاصه ان شاء الله بعد الانتهاء من الجزء الثانى وهو المخازن والمبيعات والمشتريات فانت كما تعلم الثلاثة مرتبطين ببعض ثانيا بخصوص الدليل المحاسبى المسشكله عندى انى لم اقدم شرح لكيفية الاستفاده والعمل على البرنامج بص حضرتك فى الدليل المحاسبى كل الحسابات اللى باللون الاخضر دى حسابات رئيسية فقط ولا تظهر فى اى معامله او حركه داخل البرنامج ولا يعتد بها لكن فرضا حضرتك عايز تضيف خزينة جديده روح لشاشة انواع الحسابات وفى عمود انواع الصناديق وليكن اكتب القاهره ثم ارجع الى شاشة دليل الحسابات روح دليل الحسابات ثم انزل لاول سطر فاضى فى خانة اسم الحساب الرئيسى اضغط دبل كليك سيظهر لك فورم لو كتبت مثلا حرف ص سيظهر لك كل كلمه بها حرف ص اختر الصناديق مثلا ثم انتقل الى اسم الحساب الفرعى اضغط دبل كليك سيظهر لك فورم بحث المفروض انه يعرض انواع الصناديق لو كتبت حرف ق مثلا سيظهر لك القاهرة (ليه القاهرة لانك عرفت انواع الصنايق ومنها القاهرة ) ثم انتقل الى اسم الحساب اكتب الاسم الذى تريده وليكن صندوق معرض القاهرة عند الخروج من الشاشة والعوده للرئيسية او شاشة حساب جديد يقوم البرنامج عند الخروج بعمل ترتيب للدليل وحفظ لو حبيت ترجع هتلاقى صندوق القاهرة بقى رقمه 11001 وفى ترتيبة الطبيعى تحت الحساب الرئيسى وهو الصناديق وكمان لا يمكن حذفه او تعديله لو روحت تعمل سند قبض هتلاقى صندوق معرض القاهرة ظاهر معك وهكذا لو عايز تضيف اى حساب جديد لاى نوع عموما لحد ما انزل كيفية العمل على البرنامج فكرة البرنامج معظمها قائم على دبل كليك او ريت كليك كل ما يقف معك شئ والباسورد 123 او 1 دى فكرة بسيطه واتمنى حضرتك تجرب البرنامج وتقولى رائيك تقبل منى وافر الاحترام والتقدير

استاذى ابو سليمان اكيد حضرتك شغال على اوفيس 2010 راجع المشاركة رقم 6 و 7 وان شاء الله هيفتح معاك بخصوص الفائده فهو برنامج محاسبة يستخدم فى الادارة المالية تقبل تحياتى

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

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

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

حبيبى الغالى ابن مصر الاستاذ احمد يشرفنى يكون اول رد منك وهقولك على سر لك انت لوحدك لو عايز تفتح البرنامج قبل الساعه 12 قرب ودنك كدا غير تاريخ الجهاز الى 1-1-2015م هيفتح معاك واوعى تقول لحد ههههههههههههههههه تقبل منى وافر الاحترام والتقدير