نجوم المشاركات

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

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

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

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

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

اكتب هذه المعادلة =YEAR(TODAY())

السلام عليكم اذا كانت كل القيم بنفس الصيغة يمكن استعمال الطريقة التالية TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 2, 6) & "," & Mid(TextBox1, 6, 2) & "." & Right(TextBox1, 6)

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الباب يا سمسم بس ياريت ياأبوالبراء لو فتحت الباب وكان فى حد بالحمام تقفل الباب تانى تستنا لحد ما يرجع طنطا أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات فتح الفورم على طريقة فتح الباب.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم و لكم إخواني الأعزّاء و أساتذتي الأفاضل : ياسر خليل أبو البراء أبو محمّد الأمين حسام عيسى جزاكم الله خيرًا وزادها بموازين حسناتكم فائق إحتراماتي و محبّتي

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

تفضل اخى الكريم تم ادراج الكود فى الاستعلام المخصص باى مقطع من الاسم الهمزات واتاء المربوطة والتشكيل تجاهل الهمزات.rar

أخي الكريم وائل جرب الملف المرفق Sub Search_Using_Arrays() Dim Arr, Temp, I As Long, Counter As Long Dim strWord As String strWord = InputBox("أدخل كلمة البحث") If strWord = "" Then Exit Sub Application.ScreenUpdating = False With Sheet1 Arr = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord Counter = Counter + 1 End If Next I .Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp If Counter >= 1 Then .Range("A1:B1").AutoFilter With .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row) .AutoFilter Field:=1, Criteria1:="<>" .Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("A" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1) .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With .Range("A1:B1").AutoFilter End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil V2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اليوم فيديو مميز هيفيد كتير جدا من اعضاء المنتدى وخصوصا كل من يعمل فى مجال المرتبات والماليات وهو كيفية عمل مفردات مرتب لموظف باستخدام الدالة vlookup اتمنى من الله عزو جل ان ينال اعجابكم https://youtu.be/TXTWaMOKtTI

شكرا لك اخي عبدالسلام ولكل الاخوة اللذين شاركو معنا ... نعم بعد تغير التنسيق الى عام انحلت المشكلة

غير تنسيق الخلايا الي عام او رقم

النتيجة كانت 07/08/1905 والمطلوب ان تكون السنة الحالية فقط 2016

المتاخرين عن الدفع.rar

هذه الدالة تستخدم في الاكسس وفي VBA .. اما في الاكسل فهي

و عليكم السلام و رحمة الله و بركاته ... اخي صالح ... ربي يبارك بك و يرزقك من حيث لا تحتسب ...

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

هل يكفي التنسيق الشرطي ؟ =AND(SUMPRODUCT(--(D3:L3="");--((O3:W3)<TODAY()))<>0;C3<>"")

بسم الله الرحمن الرحيم اقدم لكم اليوم برنامج مصمم بلغة الفيجوال دوت نت البرنامج عبارة عن تركيب برواز وصورة شخصية مثلا تقوم باختيار البرواز المناسب او خلفية شفافة كما تحب المهم انت تكون بامتداد png اما الصورة الشخصية فصورة jpg تفى بالغرض ويتم تركيبهم وحفظهم بالامتداد المناسب كما موضح بالصور البرنامج مرفق معه الامثلة وبعض البوردرات للتجربة كما يمكن البحث عن بوردارت واضافتها عادي هذه الصورة الاصلية قبل تركيب البوردرات لها وهذه صور بعد تركيب البوردر لها وهذه صورة مع خلفية شفافةpng لتحميل البرنامج اضغط هنا اما الكود Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد جي بي جاي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".jpg", Imaging.ImageFormat.Jpeg) MsgBox("تم الحفظ بصغة JPG") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة الباك جروند ليتم وضعها خلف البوردر او الخلفية الشفافة Dim ofd As New OpenFileDialog ofd.Filter = "JPEG|*.jpg|Bitmap|*.bmp" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.BackgroundImage) Then PictureBox1.BackgroundImage.Dispose() PictureBox1.BackgroundImage = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد بي ان جي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".png", Imaging.ImageFormat.Png) MsgBox("تم الحفظ بصيغة PNG") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة البوردر او صورة شفافة Dim ofd As New OpenFileDialog ofd.Filter = "png|*.png|gif|*.gif" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.Image) Then PictureBox1.Image.Dispose() PictureBox1.Image = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub اخترالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالصورةالاصليةToolStripMenuItem.Click 'هذه عناصر القائمة الموجودة بالبرنامج وكلها اختصار لعمل الاكواد يعني هنا نقول له عند اختيار هذا العنصر يتم تنفيذ ما بالزر بوتن2 Button2.PerformClick() End Sub Private Sub اخترالبروازToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالبروازToolStripMenuItem.Click Button4.PerformClick() End Sub Private Sub حفظبامتدادJPGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادJPGToolStripMenuItem.Click Button1.PerformClick() End Sub Private Sub حفظبامتدادPNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادPNGToolStripMenuItem.Click Button3.PerformClick() End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click End End Sub Private Sub حذفالبراوزToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالبراوزToolStripMenuItem.Click PictureBox1.Image = Nothing End Sub Private Sub حذفالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالصورةالاصليةToolStripMenuItem.Click PictureBox1.BackgroundImage = Nothing End Sub Private Sub عنالمبرمجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالمبرمجToolStripMenuItem.Click MsgBox("تصميم واعداد / ياسر العربي" & vbCrLf & vbCrLf & " تليفون محمول رقم / 01097192367" & vbCrLf & vbCrLf & "Email: Yasserelaraby86@gmail.com", MsgBoxStyle.Information) End Sub Private Sub عنالبرنامجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالبرنامجToolStripMenuItem.Click MsgBox("برنامج تركيب الصور يقوم بتركيب صورة شخصية مثلا على برواز او على خلفية اخرى شفافة بامتدادPNG") End Sub End Class السورس كود مرفق تحميل االسورس كود رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت يتبع تحياتي ياسر العربي

السلام عليكم ورحمة الله وبركاته ما أستطيع قوله ...غاية في الروعة والإتقان...جزاكم الله خيراً..

If Text4.Value > 20 Then item.ForeColor = 656565 Me.Refresh ممكن تغير forecolor ألى backcolor

السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز أعزكم الله ..بارك الله بك وبأعمالك المتميزة ...جزاكم الله خيراً وإلى المزيد من الأفكار النيرة ...تقبل تحياتي والسلام عليكم

بارك الله فيك أخي الغالي ياسر العربي تسلم الأيادي يا كبير .. جزاك الله كل خير

منور يا صقر المنتدى أين الملف الذي قمت بتسجيله ؟؟! هل رأيت الملف المرفق في آخر مشاركة لي .. هل هذا يحدث مع الجميع أم يحدث معي فقط .. أرجو من الأخوة ممن جربوا الملف أن يفيدوني في الأمر ...

السلام عليكم زيادة في التوضيح الشبكة السعودية لها عدة فروع 1 , 2 , 4 , 8 فإذا كانت العملية صادرة من الفرع ( 1 أو 8) فإن البنك يقوم بخصم نسبة 0.7% أما إذا كانت العملية صادرة من الفرع ( 2 أو 4) فإن البنك يقوم بخصم نسبة 0.8% ولذلك اصبح لابد من التحقق من (رقم الفرع و النوع ) قبل الخصم أخي إيهاب هذا بالنسبة للشبكة السعودية , ماذا عن البقية ؟

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

الله أكبر ما شاء الله تمام كده يا أخى الحبيب بارك الله فيك وجزاك خيرا بالله عليك مكنش زعلان منى لطلبى لتعديل لم أنتبه له أنا عارف أن أنا تعبتك معايا (نفسي افهم اللغورتيمات اللى بتكتبوها دى علشان متعبكش بس مش عارف مش عايزه تتعدل في دماغى) نحبكم في الله زادكم الله علما وحلما

في اي نموذج بحث تقصد ...

http://www.ahlalhdeeth.com/vb/showthread.php?t=156661 http://www.ajurry.com/vb/showthread.php?t=816 http://www.mktaba.org/vb/showthread.php?t=12277 http://www.mazameer.com/vb/showthread.php?t=158731 انظر ستجد الحل لمشكلتك باذن الله في الروابط السابقة والسلام عليكم

أنا أتفق مع رأي الإستاذ ياسر خليل أنه من الأفضل مواكبة التطور والتحديثات لأنه كل تحديث له ميزات يمكن الإستفادة منها . وأنا أفضل الأوفيس 2016 وطبعا شغال عليه .

السلام عليكم استعمل اخي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 And Target.Row > 2 Then If IsDate(Target.Value) = True Then For i = 1 To 9 Target.Offset(, i) = DateAdd("m", i, Target.Value) Next End If End If End Sub عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

السّلام عليكم و رحمة الله و بركاته ليس أروع من كلامك الطيّب أخي و أستاذي الغالي " أبو محمد الأمين " شرّفني بمرورك العطر .. و نوّرت الموضوع جزاك الله خير الجزاء و زادها بموازين حسناتك فائق إحتراماتي 13687352251.gif

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

#,##0.00;-#,##0.00;""

ما شاء الله جزيت خيرا

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

شكرا لاخونا صالح حمادي وبعد اذنه استبدل الرقم الظاهر في آخر الكود : الرقم 2 للذهاب الى أخر الحقل الرقم 1 للذهاب الى اول الحقل الرقم صفر لتحديد الحقل بالكامل ولزيادة المعلومات وربط المتجانسات : هنــــا وهنـــــا

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

الخطأ يوجد مسافة فارغة في اول الجملة بين علامتي التنصيص " behavior entering field"

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

عاشت ايده هذا الاستاذ ...

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

في المديول الذي اسمه Defs اضفت هذا السطر Public ShowUser As String وفي نموذج كلمة المرور frm-UserLogon اضفت هذه السطر في آخر حدث زر دخول ShowUser = MyUser.UserName ثم في النموذج وايضا في التقرير وضعت هذا السطر txtx = ShowUser وافعل ذلك في جميع نماذجك وتقاريرك المرفق هو المرفق السابق نفسه مختصرا اسم الدخول admin وكلمة المرور 2439 up2.rar

ب إذن الأستاذ يوسف عطا الكود يوضع فى أصل ورقة thisworbook والدخول من خلال فيجول بيسك Book1.rar