محمد خليل السيد

بارك الله فيما تقدمونه. واتماما لهذا الكتاب مرفق ملفات اكسيل التى تم تجربتها فى الفصول المختلفة بالكتاب بعد اذن الاستاذ أبو سادن طبعا. وكل عام وانتم بخير ،وتقبل الله منا ومنكم ان شاء الله. Excel_Vba_Files

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

استاذى الفاضل كنت قد طرحت من فترة - اسبوعين تقريبا - موضوع عن انشاء ملف اكسيل بمواصفات محددة ولكن لم القى اى رد من المنتدى ربما لضيق الوقت خاصة فى رمضان وهذا هو الموضوع الاصلى الذى تم طرحه ( الموضوع الاصلى ) ،فقمت ببحث فى المنتدى على كل جزئية حتى وفقنى الله ثم اطروحات القائمين على المنتدى فى الحصول على ما اردته وسأرفق الملف الذى تم الانتهاء منه فى هذا البوست. الباسورد المستخدم فى الملف ( mkh ) لكن به مشكلة ارجو ان تكون بسيطة وهى: عند الكتابة فى الشيت يعطينى Run-time Error 1004 . المفترض ان الشيتات كلها محمية عند الدخول اليها ولكن عند فتح الملف يظهر الشيت الاول بدون حماية. هل يوجد لهذه المشكلة حل ؟ MCI_SALES_7.rar

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

ازاى اقدر ادمج الكودين دول فى كود واحد 1- Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range On Error Resume Next Application.EnableEvents = False For Each cell In Target cell = UCase(cell) Next Application.EnableEvents = True End Sub 2- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col C On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column > 0 Then n = Target.Row If Excel.Range("C" & n).Value <> "" Then Excel.Range("A" & n).Value = Now End If End If enditall: Application.EnableEvents = True End Sub

للرفع

للرفع

للرفع وتم رفع الملف على المنتدى بدل الميديا فير MCI_SALES_3.rar

السلام عليكم ورحمة الله وبركاته مرفق ملف اكسيل به يوزر فورم المفترض انه يظهر فى بداية التشغيل لاختيار المستخدم المصرح له بالدخول على الشيتات المخصصة له ،ولكن عند حماية الشيتات لم يعمل اليوزر فورم وتظهر رسالة تفيد بان بعض الشيتات محمية ،وجربت اضع كود لفك حماية الشيتات عند الفتح ولكن لم اصل لحل ،فوضعت الملف بين ايديكم لايجاد الحل واثقا تماما انها مشكلة بسيطة بالنسبة لكم فانا فى بدايات تعلمى للـ VBA .فأرجو ان تتحملونى فى اسئلتى الكثيرة. سؤال آخر : كيف ادمج هذا الكود Private Sub Workbook_Open() shoFrm1 End Sub بهذاالكود Dim ws As Worksheet Sub UnProtectAll() For Each ws In Worksheets ws.Unprotect Password:="mkh" Next End Sub اليوزر والباسورد فى حالة فتح اليوزر فورم : admin شكرا مقدما توجد مشكلة فى رفع الملف بشكل صحيح لذلك رفعت الملف على الميديا فير MCI_SALES_3.rar

شكرا استاذ عبدالسلام على ردك وساقوم بالتجربة

جزاك الله كل خير بالفعل لقد قمت بالغاء الدمج واستبدلتها بالـ Center Across Selection ونجحت الفكرة ،لكن لم احصل على المقصود من الكود ان يحمى الخلايا الممتلئة ويلغى حماية الخلايا الفارغة.

هذا هو الملف الذى أعمل عليه اليوزر والباسورد admin MCI_SALES_2.rar

للرفع

السلام عليكم هذا الكود به خطأ فى السطر المشار اليه فى المرفقات ،فما هو؟ Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) CacherWs End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call MCI_SALES End Sub Private Sub Workbook_Open() shoFrm1 End Sub Public Sub MCI_SALES() Dim Sh As Worksheet Dim Rng As Range Ch_P For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="mkh": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True For Each Rng In Sh.UsedRange If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True Next If Sh.Cells(1, "Z") = "True" Then Sh.Protect Password:="mkh", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingColumns:=True, AllowFormattingRows:=True Next End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="mkh": Sn.Cells(1, "Z") = "True": Sn.Protect Password:="mkh" Next End Sub

عودٌ أحمدٌ الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تقبل الله منا و منكم صالح الأعمال

للرفع

للرفع

للرفع

للرفع

للرفع

السلام عليكم ورحمة الله وبركاته بداية أود أن اشكر كل من هو قائم على المساعدة فى هذا العمل الرائع بالمنتدى وزادكم الله علما ونفعا للناس ،واحب ان انتهز الفرصة وابارك لكم جميعا على حلول الشهر الكريم وتقبل الله منا ومنكم صالح الأعمال. المطلوب : 1- بمجرد كتابة اى بيانات في الشيت وحفظها سواء عن طريق حفظ او اغلاق البرنامج او الضغط على (Ctrl+S) يتم حماية البيانات وعدم إمكانية التعديل عليها ،بمعنى آخر أي خلية فارغة (غير محمية) وأى خلية تحتوى على بيانات او معادلات (محمية). 2- بمجرد كتابة اى بيانات في العمود (C) كود العميل يتم كتابة تاريخ اليوم تلقائيا وحفظه وعدم تغييره فيما بعد. 3- إمكانية تحديد صلاحيات معينة للمستخدمين كما هو موضح بالسطر رقم (20) بحيث يتم تحديد مستخدم او اكثر محددين مسبقا على استخدام الشيت في الاعمدة المخصصة لهم فقط. 4- إمكانية معرفة توقيت ما تم كتابته باليوم والساعة في كل خليه ومرفق ملف اكسيل يوضح المطلوب بالضبط. مع جزيل الشكر والتقدير TEST FOR SALES.rar

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

وعليكم السلام ورحمة الله وبركاته لم افهم بالضبط ما الضرر فى تصفية البيانات الى هذا الشكل خصوصا ان البيانات التى تم حذفها وازالتها لم يكن لها اى استخدام جزاك الله خيرا وزادك من العلم الكثير حل حضرتك زى ما قولت قبل كده اكثر من رائع لكن عندى استفسار بخصوص الاقتباس السابق ، انا فاهمها بس حاسس انها متعبة لان انا بتعامل مع اكثلر من 600 منتج بالشركة لأكثر من 5000 عميل فى اكثر من 50000 صف فهل حضرتك بتثبت المعادلة فى هذه الحالة يدوى ام فى طريقة معينة بتعرفك ان العملاء مشتركة فى منتج واحد ؟

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

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