كل الانشطه

We are excited to help you save money on the world's most advanced health tracker with our exclusive Ultrahuman coupon code 20% off. Finding a reliable way to monitor your recovery and sleep is easier when you can access premium technology at a much lower price point. You can use the SAVEULTRA coupon code to unlock the maximum benefits currently available for customers in the USA and India. This verified code ensures you get the best possible value on your journey toward better metabolic health and fitness tracking. Our team has confirmed that this Ultrahuman discount code 2026 is the most effective way to secure an Ultrahuman coupon code 20% off. We want to ensure you never pay full price for elite wearable technology that improves your daily well-being and performance. What Is The Latest & Verified Ultrahuman Coupon Code For 20% Discount? The most reliable and verified code to get a 20% discount on your purchase is SAVEULTRA. We have tested this code, and it is trusted by shoppers to work seamlessly for both new and existing customers on the official Ultrahuman app and website. By using this Ultrahuman coupon 20% discount, you can save significantly on the latest wearable hardware and health subscriptions. It is a fantastic opportunity to get a 20% extra discount Ultrahuman coupon applied directly to your digital cart for immediate savings. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: flat 20% discount for first-time buyers SAVEULTRA: an extra 20% discount on Ultrahuman Ring Air and Ultrahuman Ring Pro SAVEULTRA: 20% additional discount for first-time buyers SAVEULTRA: an extra 20% discount on the UltrahumanX Coverage SAVEULTRA: 20% additional discount for fitness enthusiasts Ultrahuman Coupon Code 20% Off For New & Existing Customers In April 2026 Both new users and returning fans can access a flat 20% discount by applying the promo code SAVEULTRA during the checkout process. This ensures that everyone in the Ultrahuman ecosystem can upgrade their gear or join the community without financial barriers. Whether you are looking for an Ultrahuman Ring Air coupon code or an Ultrahuman Ring Pro discount code, this offer covers the entire flagship lineup. We have verified that the code works globally, providing a safe and legit way to reduce your total order cost today. New Ultrahuman buyers can redeem the coupon code “SAVEULTRA” to receive an instant 20% discount on Ultrahuman Ring Air, Ultrahuman Ring Pro, UltrahumanX, and Ultrahuman M1 subscriptions. SAVEULTRA: flat 20% discount for new customers SAVEULTRA: 20% additional discount for UltrahumanX subscribers SAVEULTRA: 20% extra off on smart rings, sleep trackers, and fitness trackers SAVEULTRA: an additional 20% off for fitness lovers SAVEULTRA: an extra 20% off for buyers in the USA and India How To Redeem The Ultrahuman 20% Off Discount Code For New & Existing Customers? Redeeming your savings is a simple process that requires entering the code SAVEULTRA at the final stage of your online shopping journey. We want to make sure you use these Ultrahuman discount codes correctly to get your Ultrahuman coupon code 2026 benefits immediately. Visit the official Ultrahuman website or open the app on your iOS or Android device. Select your preferred smart ring, such as the Ring Air, and add it to your shopping cart. Proceed to the checkout page where you will see a field labeled "Discount Code" or "Promo Code." Type the code SAVEULTRA into the box and click the apply button to update your price. Verify that the 20% discount has been deducted from your total before completing the payment. Ultrahuman Coupon Code 20% Off For Fitness Enthusiasts Fitness enthusiasts can achieve their health goals more affordably by using the SAVEULTRA code to purchase a high-end health ring. This offer is perfect for those who want to track their movement, heart rate, and recovery metrics with precision and style. Using an Ultrahuman discount coupon for gym lovers allows you to invest more into your nutrition and training while owning a top-tier tracker. If you are looking for an Ultrahuman promo for sleep tracking, this discount makes the Ring Air a very attractive and smart investment. Ultrahuman customers can apply the coupon “SAVEULTRA” at checkout to receive a verified 20% discount on smart rings (Ultrahuman Ring Air and Ultrahuman Ring PRO) and health-tracking subscriptions (UltrahumanX, Ultrahuman M1, and Ultrahuman Vision). SAVEULTRA: 20% extra discount for fitness freaks SAVEULTRA: flat 20% discount on the Ring Air and Ring Pro smart rings SAVEULTRA: 20% off on the UltrahumanX and M1 subscriptions SAVEULTRA: an extra 20% off for gym lovers SAVEULTRA: free shipping + free accessories for every fitness ring How To Use The Ultrahuman Coupon Code 20% Discount For Fitness Coaches? Fitness coaches can utilize the Ultrahuman discount code 20% off to equip themselves with the best tools for monitoring client-ready data. This Ultrahuman coupon code is a professional secret for staying ahead in the wellness industry while managing your business budget. Go to the Ultrahuman store and choose the professional tools or rings you need for your coaching practice. Navigate to the checkout area once you have finished selecting your items. Locate the promotional code input box on the right-hand side or bottom of the screen. Input SAVEULTRA and hit apply to see the 20% reduction in your professional gear cost. Ultrahuman Coupon 20% Off For Athletes Professional and amateur athletes can gain a competitive edge by using the SAVEULTRA code to monitor their physiological markers at a lower cost. These Ultrahuman coupon codes for athletes help you manage your strain and recovery cycles with data-driven insights that are trusted by pros. Getting an Ultrahuman discount code for sportsmen ensures that your hardware is always up to date without a massive financial burden. We have seen many athletes use this code to stay on top of their game while benefiting from consumer discounts. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 20% additional discount for athletes SAVEULTRA: flat 20% off for sports enthusiasts SAVEULTRA: free global shipping for sportsmen SAVEULTRA: extra 20% discount on Ring Air and Ring PRO SAVEULTRA: 20% discount on the UltrahumanX subscription How To Use The Ultrahuman Discount Code 20% Off For Athletes? Athletes can quickly apply the Ultrahuman discount code 20% off to get the world's lightest smart ring for their training sessions. This Ultrahuman college athletes discount equivalent is the fastest way to save on high-performance health tech today. Select your Ring Air or Ring Pro in your preferred size and color on the website. Add any necessary subscriptions like UltrahumanX for accidental damage protection. Move to the payment screen and look for the discount code section. Enter SAVEULTRA to trigger your 20% savings instantly on the spot. Ultrahuman Coupon Code 20% Off For Students Students looking to balance their academic stress and physical health can use the SAVEULTRA code for a significant price reduction. By using Ultrahuman coupon codes for physical trainers and students, you can access elite biohacking tools on a student-friendly budget. The Ultrahuman student discount experience is designed to be seamless, letting you focus on your studies while the ring tracks your sleep. We recommend this code for any student in the USA or India who wants to optimize their daily routine and energy levels. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 20% extra discount for students in the USA and India SAVEULTRA: flat 20% off on Ultrahuman Ring Air and Ultrahuman Ring PRO SAVEULTRA: free shipping for students SAVEULTRA: an extra 20% discount on smart rings SAVEULTRA: 20% additional off on UltrahumanX subscription How To Use The Ultrahuman Discount Code 20% Off For Students? You can redeem the Ultrahuman Ring Air discount code by following a few simple steps on your laptop or mobile phone. Using the Ultrahuman Ring PRO coupon code ensures that even with a limited budget, you are getting the best health tracker available. Browse the Ultrahuman shop and add your favorite smart ring to the cart. Ensure you have the correct sizing kit if you are a first-time buyer. Type SAVEULTRA into the promo code field during the checkout process. Confirm the discount and pay using your preferred student-friendly payment method. Ultrahuman Coupon Codes For Smartrings and Fitness-Tracking Subscriptions Choosing the right hardware is only half the battle, as the software ecosystem is where the real health insights live. We have found that applying a code during checkout is the most effective way to save on both the physical ring and the digital services. Ultrahuman Ring Air Coupons & Discount Codes The Ring Air is famous for being incredibly light and comfortable for 24/7 wear, especially during sleep. You should use an Ultrahuman Ring Air discount code to get this premium titanium device for a much lower price than the retail standard. Finding an Ultrahuman Ring Air coupon code is the smartest way to start your journey into wearable health technology without overspending. Ultrahuman Ring PRO Discounts & Deals For those who want the absolute latest features, the Ring PRO offers even more advanced sensors for health monitoring. Using an Ultrahuman Ring PRO discount code allows you to access these flagship features while keeping your finances in check. Our verified Ultrahuman Ring Pro coupon code is tested to work for the highest tier of hardware available on the site. UltrahumanX and Ultrahuman M1 Discount Code Protecting your investment with UltrahumanX coverage or tracking glucose with the M1 sensor is vital for a complete health picture. You can use an Ultrahuman discount code to lower the cost of these essential add-ons and subscriptions. The Ultrahuman Air coupon code often applies to these bundles, giving you a comprehensive health suite for a fraction of the cost. Is The Ultrahuman 20% Off Discount Code Legit? Yes, the code SAVEULTRA is a completely legitimate and verified way to save money on your health tracker purchase. We have confirmed that this Ultrahuman coupon code legit status is recognized globally, allowing users from different countries to shop with total confidence. Shoppers around the world use this Ultrahuman discount code legit to get the best deals on the market without worrying about expired offers. It is a trusted mechanism for digital coupons that works consistently on the official storefront for all available ring models and colors. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. How Does The Ultrahuman 20% Off Discount Code Work? The Ultrahuman Ring Air coupon code works by applying a digital percentage reduction to the subtotal of your shopping cart. When you enter the code discount Ultrahuman, the website server verifies the string "SAVEULTRA" and automatically recalculates your total price. This process happens in real-time, ensuring that you see your savings before you ever enter your credit card information. It is a safe and transparent way to handle online shopping discounts for high-end electronic health devices and their respective monthly or yearly subscriptions. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Is The Difference Between Ultrahuman And Other Smartrings? Ultrahuman stands out because it focuses heavily on metabolic health and real-time recovery data without requiring a mandatory monthly subscription for basic features. Using an Ultrahuman coupon code 20% discount makes this already competitive product even more affordable than many of its rivals in the market. Additionally, you can often find an Ultrahuman free shipping code or benefit from global logistics that make getting the ring much easier. The combination of advanced sensors and a sleek, notch-less design makes it a favorite for those who value both form and deep biological function. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Are The Advantages Of Using The Ultrahuman Smartrings - Ring Air and Ring PRO? The primary advantage of using an Ultrahuman code is getting a medical-grade health tracker that monitors your sleep, movement, and recovery with extreme precision. Having a discount code for Ultrahuman means you get all these benefits while keeping more money in your pocket for other wellness activities. Ultrahuman customers can apply the coupon “SAVEULTRA” at checkout to receive a verified 20% discount on smart rings (Ultrahuman Ring Air and Ultrahuman Ring PRO) and health-tracking subscriptions (UltrahumanX, Ultrahuman M1, and Ultrahuman Vision). Tracks Sleep Index, Movement Index, and Recovery Score daily. Features a comfortable, hypoallergenic inner shell for long-term wear. Provides real-time insights into your circadian rhythm and caffeine window. Offers a long battery life that lasts up to 6 days on a single charge. Integrates with a powerful app for deep data analysis and trends. Pros And Cons Of Using The Ultrahuman Discount Code 20% Off In April 2026 Using a code like SAVEULTRA is the most effective way to lower the entry price for world-class wearable technology. This Ultrahuman discount 20% off code provides a significant financial advantage, but there are a few logical factors to keep in mind when ordering. Use Ultrahuman discount code SAVEULTRA to claim an instant 20% discount on Ring Air and Ring Pro smart rings in the USA and India. Pro: Instant 20% savings on the total purchase price. Pro: Valid for both the Ring Air and the newest Ring Pro models. Pro: Works across major regions including the USA, India, and Canada. Pro: Often includes free global shipping on qualifying ring orders. Pro: Safe and verified code trusted by the global fitness community. Con: Import duties and local taxes may still apply for non-US customers. Con: Certain remote shipping locations might have rare delivery restrictions. Terms And Conditions Of Using The Ultrahuman Discount Code 20% Off In 2026 The Ultrahuman discount code 20% off free shipping offer is generally available to all customers regardless of their previous purchase history. It is the latest Ultrahuman coupon code 20% off designed to be user-friendly and transparent for everyone looking to improve their health tracking. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. No expiration date has been set for this verified promotional code. Open to students, athletes, fitness trainers, and general health enthusiasts. Fully valid for shoppers located in the USA, Canada, and India. Applicable to all current ring models and subscription service plans. SAVEULTRA is maintained as a valid and active code for 2026. Conclusion: Use The Latest Ultrahuman Discount Code [SAVEULTRA] For 20% Off We highly recommend using the Ultrahuman coupon code 20% off to secure the best possible deal on your new health tracker. You deserve to have access to the best technology for your fitness journey without paying the full retail price. Make sure to apply the Ultrahuman discount code during your next checkout to see the savings for yourself. Your path to better sleep and recovery is just one click away with this verified and trusted offer. FAQs Of Ultrahuman 20% Off Discount Code What is the best Ultrahuman coupon code available right now? The best code is SAVEULTRA, which provides a verified 20% discount on your entire order. We have tested this code across various regions like the USA and India, and it consistently offers the highest level of savings for both new and existing customers on the official store. Can I use the Ultrahuman discount code for the Ring Air? Yes, the code SAVEULTRA is fully applicable to the Ultrahuman Ring Air, which is known for its lightweight design. You simply enter the code at checkout to see the 20% price reduction applied to your total, making it much more affordable to own this premium fitness tracker. Is there an expiration date for the SAVEULTRA coupon code? Based on our verification, the code SAVEULTRA is an evergreen offer that does not have a set expiration date in 2026. You can use it confidently at any time to secure your 20% discount, as it is designed to be a long-term benefit for the health community. Does the 20% discount apply to UltrahumanX subscriptions? The SAVEULTRA code does indeed provide a 20% discount on UltrahumanX, which offers accidental damage protection and extended warranty for your ring. This ensures that not only is your hardware discounted, but your long-term protection plan is also much more affordable for your peace of mind. How many times can I use the Ultrahuman discount code? While the code is primarily intended for new purchases, many existing customers have successfully used SAVEULTRA to buy additional rings for family members or to upgrade their current hardware. It remains one of the most flexible and trusted codes for anyone in the USA, India, or Canada.

جزاك الله خير الثواب وأكرمك الله فى الدارين

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

الف شكر اخى الغالى على هذا المجهود جزاك الله كل خير هذا المطلوب وشكرا جزيلا

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

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

شكرا

شكرا لك

أخي بلانك .. لإجراءاتكم بنقل الإجابة إلى الحل الأخير . ما لم يكن هناك أي تعديل آخر .

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

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

مشكلة في الاكسيل :عندي مصحف وورد فيه كلمات لونت فيها بعض الحروف ونسيت تلوين التشكيل وعندما اضعه في الاكسيل اجد ان عدم تلوين التشكيل اثر على ترابط الحروف فتفترق الحروف الغير ملونة وجدت هذا الكود لكنه ثقيل جدا Sub FixUnicodeTashkeel() Dim i As Long Dim char As Range Dim charCode As Long Application.ScreenUpdating = False ' سيبدأ من الحرف الثاني ليفحص ما قبله For i = 2 To ActiveDocument.Characters.Count Set char = ActiveDocument.Characters(i) charCode = AscW(char.Text) ' نطاق اليونيكود للتشكيل العربي القياسي If charCode >= 1611 And charCode <= 1618 Then ' مطابقة لون التشكيل مع لون الحرف السابق له تماماً char.Font.Color = ActiveDocument.Characters(i - 1).Font.Color End If Next i Application.ScreenUpdating = True MsgBox "تمت معالجة كافة أكواد اليونيكود بنجاح!" End Sub هل من حل بارك الله فيكم

كده تمام الله يبارك فيك وهو المطلوب ..... ربنا يعطيك العمر المديد .... وأنفع الناس للناس وانت اهل لذلك . فلك الشكر

تمام يا @أحمد الشحات85 ، خلينا نرتب خطوات إعداد اللغة في Windows عشان أي جهاز يشغل قاعدة Access بالعربي يقرأ الحقول بشكل صحيح: * الخطوات العملية لتغيير إعدادات اللغة في Windows افتح الإعدادات (Settings): اضغط على زر Start → اختر Settings (الإعدادات). اذهب إلى الوقت واللغة (Time & Language): من القائمة الجانبية اختر Time & Language. ثم اختر Language & Region. أضف اللغة العربية: اضغط على Add a language. ابحث عن Arabic (Saudi Arabia) أو أي دولة عربية تناسبك. اضغط Install. اجعلها اللغة الافتراضية للعرض (Display Language): تحت Windows display language اختر Arabic. هذا يضمن أن النظام يعرض النصوص العربية بشكل صحيح. تغيير إعدادات المنطقة (Region): في نفس الصفحة، تحت Country or region اختر دولة عربية. هذا يساعد في عرض التواريخ والأرقام بصيغة عربية. تغيير اللغة للنظام (System Locale): افتح Control Panel → Region. اذهب إلى تبويب Administrative. اضغط على Change system locale. اختر Arabic (Saudi Arabia) أو أي دولة عربية. اضغط OK وأعد تشغيل الجهاز. * النتيجة: النصوص العربية تظهر بشكل صحيح في Access. الحقول اللي كانت تطلع برموز أو غير مفهومة، حتظهر بالعربي الطبيعي. التواريخ والأرقام كمان حتكون بصيغة عربية متوافقة. ****** كده تضمن إن أي جهاز يشغل القاعدة يقرأ الحقول بالعربي بدون مشاكل .

حرب التعديل التالي توزيع عدد الحصص (233) (1).xlsm

المعذرة ، كنت اعتقد ان الساعة ستؤدي الغرض !! اذن خليني اعمل قاعدة بيانات صغيرة ، وارفقها هنا

السادة الزملاء : مرفق دالة التفقيط بدون اكواد كل ما عليك ان تدرج الشيت المرفق فى اى ملف اكسيل تريد تفعيل دالة التفقيط بدون اكواد ولو نسخة الاكسيل 2021 فيما فوق يتم استخدام دالة مخصصة اسمها tafkeet Tafqeet_Dynamic_System (1).xlsx

أراك قد عدت الى استعمال الساعة في برامجك أخي جعفر .. رغم مقولتك :- وهنا أراك تبحث عن ثغرة برأس الإبرة .😉. علك قد تجد حلاً في يوم من الأيام .. لأن الفكرة التي نفذناها نفذت خصيصاً لكي تغنيك عن طريقة =Now() وفكرة التايمر الميتة التي طرحتها وتشتكي منها أصلاً ! بالتوفيق 😇

شكرا علر الرد : لكن المطلوب توزيع الحصص على مدار الاسبوع ( 5 ايام) اي لو عندي 5 حصص زيادة يتم توزيعهم الحصة الثامنة من كل يوم الاحد حصة والاثنين حصة وهكذا .... ولو 6 حصص زيادة يكون الاحد الحصة السابعة حصة والثامنة حصة وباقي الايام حصة وهكذا

مبارك عليك الحل .. وعذراً لعدم المتابعة معك في وقتها ، بس كنت خارج من الشغل للأسف .. في المرفق اللي رفعتهولك ، كان فعلاً يتم التنفيذ على الإمتدادين MDB و ACCDB من إصدارات 2007 وما فوق .. لكنك بحثت عن فكرة زرين لكل وظيفة ، وهذا كان يسيراً جداً من خلال الفكرة اللي طرحتها .. ولكن كل الطرق تؤدي إلى روما - ما دامت روما قريبة - .. وفعلاً نسختك اللي رفعتها ما اشتغلتش عندي أنا كمان وده اللي خلاني أطلع وقلت بجرب على كمبيوتر تاني .. 👍🏻

استبدل الكود التالي بالكود بالملف Sub DrawCircles1() Application.ScreenUpdating = False Call DelShap Call ProcessTable(10, 14, 3, 10, "N9") Call ProcessTable(18, 22, 3, 10, "N17") Application.ScreenUpdating = True End Sub Sub ProcessTable(SROW As Long, EROW As Long, SCOL As Long, ECOL As Long, RefCell As String) Dim ws As Worksheet Dim i As Long, j As Long Dim totalCells As Long, totalRequired As Long Dim dayCells As Long, n As Long Dim arrCells() As Long Dim temp() As Double Dim remainder As Long Set ws = ActiveSheet totalRequired = Val(ws.Range(RefCell).Value) totalCells = 0 ReDim arrCells(SROW To EROW) ReDim temp(SROW To EROW) For i = SROW To EROW dayCells = 0 For j = SCOL To ECOL If Trim(ws.Cells(i, j).Value) <> "" Then dayCells = dayCells + 1 End If Next j arrCells(i) = dayCells totalCells = totalCells + dayCells Next i If totalCells = 0 Then Exit Sub For i = SROW To EROW If arrCells(i) > 0 Then temp(i) = totalRequired * arrCells(i) / totalCells Else temp(i) = 0 End If Next i For i = SROW To EROW n = Int(temp(i)) If n > arrCells(i) Then n = arrCells(i) If n = 0 Then ws.Range("M" & i).Value = "" Else ws.Range("M" & i).Value = n End If Next i remainder = totalRequired - Application.WorksheetFunction.Sum(ws.Range("M" & SROW & ":M" & EROW)) Do While remainder > 0 Dim maxI As Long, maxVal As Double maxVal = -1 For i = SROW To EROW If arrCells(i) > Val(ws.Range("M" & i).Value) Then If temp(i) - Int(temp(i)) > maxVal Then maxVal = temp(i) - Int(temp(i)) maxI = i End If End If Next i If ws.Range("M" & maxI).Value = "" Then ws.Range("M" & maxI).Value = 1 Else ws.Range("M" & maxI).Value = ws.Range("M" & maxI).Value + 1 End If remainder = remainder - 1 Loop For i = SROW To EROW n = Val(ws.Range("M" & i).Value) If n > 0 Then Dim validCols() As Long Dim countCols As Long countCols = 0 For j = SCOL To ECOL If Trim(ws.Cells(i, j).Value) <> "" Then countCols = countCols + 1 ReDim Preserve validCols(1 To countCols) validCols(countCols) = j End If Next j Dim k As Long For k = countCols To 1 Step -1 If n = 0 Then Exit For j = validCols(k) With ws.Shapes.AddShape(msoShapeOval, _ ws.Cells(i, j).Left + 5, _ ws.Cells(i, j).Top + 5, _ ws.Cells(i, j).Width - 10, _ ws.Cells(i, j).Height - 10) .Line.Weight = 2 .Fill.Visible = msoFalse End With n = n - 1 Next k End If Next i End Sub

لديك الحق استبدل في الكود wsSource.Range("A4:I4").ClearContents الى wsSource.Range("A7:I7").ClearContents بمعنى الرقم 4 غيره الى 7 فقط

ده فعلاً اللى عملته بالتفصيل : تفعيل ، عدم تفعيل للملفات mdb ، accdb جربت الآن على ملف mde وكمان عملت له كلمة سر للقاعدة أثناء الفتح الخاص قبل تحويلها وتم اختبار ظهور وإخفاء كلمة سر القاعدة وتفعيلها وإلغاء تفعيلها وكله تمام وأكرر شكري مرة أخرى للعلم فقط أنا شغال على ويندوز 7 32 بت وعليه أوفيس 2003 أساسي ، وأوفيس 2007 بورتابل وهذه بيئة التجارب عندى قد يكون هناك مشكلة فى أوفيس 2003 البورتابل الذى رفعته هنا ، فالجميع يعلم أن التثبيت أفضل طبعاً من ملف بورتابل