محمد عبد الناصر

ياااااااااااااااااا ساااااااااااااااااااااااتر اخيرااااااااا والله مش عارف اقول لحضرتك ايه غير ان ربنا يجعله فى ميزان حسناتك كان فى بعض المشاكل حضرتك غيرتهالى فى الكود بس الحمد لله بفهم شويه فموضوع الاكواد ده وعملتها بس اهم مشكله حضرتك حلتهالى شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

انا اسف بجد لتعب حضرتك معايا بس حضرتك حتيط فى الملف المرفق كود قفل طباعه مش بتاعى الى عايزه الكود الى انا عامله فوق بيسمح ليا انى اطبع عن طريق امر ماكرو وقافل اى امر طباعه تانى الى هو ده عايز بقى الكود ده مع ملف اخفاء الشيتات واظهارها عند تفعيل الماكره والملف المرفق الى انا عامله ده بتاعك بس شيلت كود قفل الطباعه بتاعك وحطيت بتاعى انا هاتلاقى مشكله فى الفتح والقفل Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub xD.rar

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

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

منا بعمل كده عايز احوط كود قفل الطباعه وكود اخفاء الشيتات واظهارها مع بعض بيجبلى ايرور بحوط الكود كده بالظبط Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub بيجبلى ايرورر عشان انا عامل حاجه غلط فى الكود مش عارف ايه هيا

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

حضرتك اخر حاجه بس عايز اضيف كود قفل الطباعه ده Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub على الكود ده مش عارف اعملها Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub

والله وصلت لكود كده جميل اوى اوى ونفعت معايا الحمد لله عن طريق ان بحوط كود فـــ Thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub وبعمل موديول جديد بحوط فيه الكود ده Public bIsClosing As Boolean Dim wsSheet As Worksheet Sub HideAll() Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Sub ShowAll() bIsClosing = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName <> "Sheet1" Then wsSheet.Visible = xlSheetVisible End If Next wsSheet Sheet1.Visible = xlSheetVeryHidden End Sub واقفل الملف وبسيف من غير ما افعل ماكرو ولا اى حاجه اهم حاجه انى اعمل سيف enable macro وهو كده بيخفى كل الشيتات ما عدا الشيت الى اسمو فى الاصل Sheet1 ولو حد اخد الملف كوبى الملفات بتختفى ولما يفعل الماكرو بتظهر جربه كده حضرتك لو نفع ممكن انا او حضرتك تعمل بيه موضوع عشان الكل يستفيد ان لازم الى قاعد شغال على الملف يفعل الماكرو

طيب مفيش طريقه اخلى الى شغال على البرنامج غصب عنه يفعل الماكرو لو اخده كوبى ؟؟؟؟؟؟؟؟

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

السلام عليكم ورحمة الله وبركاته ؛؛ كنت محتاج كود تفعيل الماكرو على الجهاز اوتوماتيك بحيث اى ملف افتحه بعد كده يكون الماكرو مفعل ميطلبش منى enable content

ايوه حضرتك فى اى عمود F فى ملف الاكسيل

؟ بجد مش عارف اقول لحضرتك ايه على الكود الرائع ده ربنا يجعله فى ميزان حسناتك اخر حاجه ممكن الكود ده لو فيه امر انقله فى اى شيت موجود لأن عندى حوالى 16 ملف اكسيل كل ملف اكسيل فيه تقريبا 60 شيت لو فى طريقه انقل بيها الكود ده فى اى شيت موجود وجزاك اله كل خير

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

استاذى الفاضل / ياسر خليل الى انا عايزه انو ميقدرش يمسح الى اتكتب فى اى خليه فى العمود F وفنفس الوقت يقدر يكتب الى هو عايزه فيها بس مينفعش يمسح الى اتكتب فى الخليه يقدر يكتب 0 يكتب 1 زى ما هو عايز بس مينفعش يمحس الى اتكتب فيها

2010 ^ 2016

استاذ ياسر ابو خليل بارك الله فيك كود رائع بس الى انا عايزو انى اقدر اغير بعد كده عادى فى الخليه الى فى العمود بس مقدرش اعمل مسح للخليه اقدر اكتب فيها عادى بس مقدرش امسح الى مكتوب فيها فى اى خليه فى العمود F

معلش انا اسف حضرتك يمكن انا مش عارف اوضح عايز الكود SUb () وعايز اقدر اغير فى الخليه زى م انا عايز بس مقدرش امسح بعد ما ادوس على الامر ده يعنى اغير زى م انا عايز فى الخليه بس مقدرش امسح الى مكتوب فيها

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

كوود تحفه بجد ربنا يعزك

السلام عليكم ورحمة الله وبركاته ؛؛ الكود ده عباره عن انو بيقفل العمود E و العمود D حتى لو كان فيهم خلايا مدمجه الى انا عايزه انى اقدر اتحكم في بقيت الاعمده عادى جدا اقدر اصغر واكبر الخلايا والاعمده اصغر واكبر الخط الى في الخلايا عادى تحكم كامل في بقيت الاعمده Sub Close() Dim ce As Range Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="123456" For Each ce In Range("D6:E1000") ce.MergeArea.Locked = "True" Next ce ActiveSheet.Protect Password:="123456" End Sub

شكراااااااااااااااااااااااااااااااااااااااا على مجهود حضرتك وتعبك أستاذ عبد السلام أبو العوافى

والله انا مش عارف أقول لحضرتك ايه لانى مكسوف من نفسى انا مش عارف أوصل لحضرتك انا عايز ايه ببساطه انا عايز لو الخليه فيها رقم يكتب الرقم لو مفهاش يكتب 1 ومش عايز يكتب الداله في الخليه يكتب الرقم عادى من غير مايكون في داله في الخليه

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

والله بص حضرتك بيجبلى ايه