Yasser Fathi Albanna

تسلم يا نجم النجوم وسلمت يمينك جزاك الله خيرا أخى الحبيب / محمد الريفى

جزاك الله خير بالفعل حاولت فك التشفير للملفات الثلاثة ولم أفلح موضوع فى غاية الأهمية أخى / على الشيخ يا ريت توضح كيفية عمل هذه الحماية الرائعة ليستفاد الجميع

بارك الله فيك وجزاك الله خير أخى / غسان العبيدي

جزاك الله خيرا أخى megonil

سلمت يمينك أخى الحبيب / محمد الريفى جزاك الله خيرا

رائـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع أخى الفاضل / محمد الريفى جزاك الله خيرا

سلمت يمينك وحفظك الله أخى الغالى محمد الريفى

رائع أخى الفاضل / على الشيخ موضوع هام ومفيد للغاية وفقك الله لما تحبه وترضاه

الله أكبر عليك أخى الحبيب محمد الريفى دائما تأتى بكل ما هو رائع إستمر وفقك الله

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

شرفني مرورك الكريم أخي مختار

أخى أ / خزانى شرفت بمرورك

يسعدنى ويشرفنى دائما مرورك العطر على موضوعاتى أخى الحبيب / ياسر خليل

شرفنى مرورك القدير أخى الفاضل أ / على الشيخ جزاك الله خيرا

شرفت بمرورك أخى الفاضل / أحمد الرشيدي81

شرح لبرنامج بوربوينت 2010

https://www.youtube.com/watch?v=1HN6HezCrL8

ما شاء الله عليك رائع يا أ / ياسر

أحبائى أعضاء وأساتذة المنتدى العظيم أتمنى من الله أن تكونوا جميعا بخير أقدم لكم اليوم كودين الكود الأول وهو لإخفاء أشرطة الأدوات والكود الثانى لإظهار أشرطة الأدوات ولا أدرى إذا كان الموضوع مكرر أم لا عموما للفائدة Sub RemoveToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Full Screen").Visible = False .CommandBars("MyToolbar").Enabled = True .CommandBars("MyToolbar").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = False End With On Error GoTo 0 End Sub Sub RestoreToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = False .CommandBars("MyToolbar").Enabled = False .CommandBars("Worksheet Menu Bar").Enabled = True End With On Error GoTo 0 End Sub Hide And Show The Menu Bar Yasser Albanna.rar

حمدا لله على عودتك بخير لا حرمنا الله من أعمالك أخى الفاضل / مختار جزاك الله خيرا

جزاك الله خيرا أخى الكريم الرجاء وضع الكود داخل أيقونة الأكواد لتظهر بالشكل الجيد للجميع كالتالى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 4 Then Exit Sub dl = Cells(Rows.Count, 4).End(xlUp).Row Set wsbs = Sheets("base salaire") Set wsbp = Sheets("base paie") dlws = wsbs.Cells(Rows.Count, "AA").End(xlUp).Row wsbs.Range("AA22:AA" & dlws).ClearContents dlws = wsbp.Cells(Rows.Count, "D").End(xlUp).Row wsbp.Range("D12:D" & dlws).ClearContents Range("D6:D" & dl).Copy wsbs.Range("AA22") Range("D6:D" & dl).Copy wsbp.Range("D12") End Sub وجزاك الله كل الخير