ناصرالمصرى

للرفع رفع الله قدركم

بسم الله الرحمن الرحيم وبه نستعين أخى وأستاذى الفاضل / حماده عمر " ابوسما " السلام عليكم ورحمته الله وبركاته شاكر لكم اخى اهتمامكم بالموضوع فجزاكم الله تعالى خير الجزاء معلشى الموضوع محير بعض الشيىء المشكلة اننى اريد اخفاء كامل المصنف باستثناء ورقتين فقط الظاهرين أمام حضرتك بالمرفق التالى منهم عدة أوراق دون طباعة مع الاخفاء ومنهم عدة اوراق طباعة مع الاخفاء وهى الاوراق من STOR 1 حتى STOR 10 لديك بالمرفق التالى أربعة أكواد الاول لمنع طباعة اوراق محددة سواء مرئية أو مخفية وهو ويعمل بطريقة ممتازة Sub printsheets() ' لمنع صفحات محددة من الطباعة سواء مرئية أو مخفية Dim dontPrint As Object Dim ws As Worksheet Set dontPrint = CreateObject("Scripting.Dictionary") dontPrint.Add "List", 1 dontPrint.Add "Add", 2 dontPrint.Add "Main store", 3 dontPrint.Add "Search", 4 dontPrint.Add "Archives", 16 dontPrint.Add "Collection items", 17 dontPrint.Add "Suppliers", 18 dontPrint.Add "Customers", 19 For Each ws In ActiveWorkbook.Worksheets If dontPrint.Exists(ws.Name) Then Else ws.PrintOut End If Next ws End Sub الثانى لطباعة الاوراق المخفية فقط وهو يعمل أيضا بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintOnlyHiddenWorksheets() ' لطباعة الاوارق المخفية فقط Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut .Visible = CurVis End If End With Next sh End Sub الثالث لطباعة الاوراق المرئية والمخفيه معا وهو ايضا يعمل بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintHiddenAndVisibleWorksheets() ' لطباعة الاوراق المخفية والمرئية معا Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible .Visible = xlSheetVisible .PrintOut .Visible = CurVis End With Next sh End Sub نأتى للكود الرابع والمعنى بالاضافة أو التعديل الذى تفضلت سيادتكم بتعديله Sub Test() 'تعديل الاستاذ الفاضل / حمادة عمر ابو سما Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("Stor10", "Stor9", "Stor8", "Stor7", "Stor6", "Stor5", "Stor4", "Stor3", "Stor2", "Stor1")) sh.Visible = xlSheetVisible If Application.WorksheetFunction.CountBlank(sh.Range("A10:V5000")) <> sh.Range("A10:V5000").Count Then sh.PrintOut sh.Range("A10:V5000").ClearContents ' اضفت هذا السطر لمسح محتوى الجدوال بعد الطباعة sh.Visible = xlSheetHidden End If Next sh Application.ScreenUpdating = True End Sub والسؤال كيف يمكن عمل توافق بين الكود الاول والكود الرابع كمصفوفه بين منع الطباعة مع الاخفاء وبين طباعة المصفوفة مع الاخفاء ملحوظة هذا الموضوع مرتبط بموضوع خاص بكم تم رفعه ولكن لم يرد الرد من سيادتكم حتى الان نرجو الاطلاع والافادة بإذن الله من فضلك إضغط هنا شاكر فضلك وشاكر فضل كل من يساهم فى هذا الموضوع وجزاكم الله جميعا خير الجزاء طباعة اوراق محددة مع الاخفاء + منع طباعة اوراق مع الاخفاء.xlsb.rar

للرفع رفع الله قدركم

للرفع

للرفع

الاستاذ الفاضل / ابو عصام السلام عليكم اعتقد ان طلب سيادتكم بعيدا عن انواع الحماية " مجرد إعتقاد" ولكن فى العموم جرب المرفق التالى وهو أحد إبداعات الاستاذ الكبير والاخ الفاضل / ياسر خليل " ابو البراء" وستجد الكثير من الموضوعات التى تتحدث عن انواع الحماية http://yasserkhalilexcellover.blogspot.com.eg/2016/09/kill-workbook-from-hd.html شاكر فضلك *** وجزاكم الله خيرا

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

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

بارك الله فيكم

والله ياحاج مجدى انا اللى خدامك ويكفينى فخرا وشرفا اهتمامك بالموضوع وزى ماحضرتك عارف أن كل موضوع له ظروفه الخاصة عموما جارى التجربة وسأخبركم بإذن الله*** جزاكم الله خيرا

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

جعل الله هذا العمل المبارك فى ميزان حسناتكم

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

بارك الله فيكم وجزاكم الله خيرا

أخى وأستاذنا الفاضل الحاج / مجدى السلام عليكم ورحمته الله وبركاته والله مش عارف اقول لحضرتك ايه والله كتر خيرك على مشاركتك الطيبة المباركة وربنا يبارك فيك وفى عمرك ورزقكم وايانا من حيث لانحتسب الموضوع الاصلى طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة وتم التعديل على نفس الموضوع بمعرفة السيد الاستاذ / محمد طلعت حسين على الرابط فورم ادخال وترحيل بيانات مع الاستعلام ولكن الملف ينقصه بعض الامور الفنية ستجدها من داخل المرفق التالى وهل يمكن التعديل على كود اضافة البيانات الجديدة من شأنه إدراك صف لاسفل بنفس التنسيقات والمعادلات من أجل الحفاظ على الترقيم التلقائى حال حذف اى بيان أرجو الاطلاع والافادة هذا بعد طلب الاذن من حضرتك **** شاكر فضل حضرتك وفضل الجميع وجزاكم الله خيرا اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل وحذف.rar

أعان الله الجميع على مسئولياته نأمل فى إيجاد حل لهذا الموضوع شاكر فضل الجميع وجزاكم الله خيرا

للرفع رفع الله قدركم

للرفع رفع الله قدركم

للرفع رفع الله قدركم

للرفع رفع الله قدركم

للرفع رفع الله قدركم

للرفع رفع الله قدركم

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

للرفع رفع الله قدركم

للرفع رفع الله قدركم