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

بارك الله فيما تقدمونه. واتماما لهذا الكتاب مرفق ملفات اكسيل التى تم تجربتها فى الفصول المختلفة بالكتاب بعد اذن الاستاذ أبو سادن طبعا. وكل عام وانتم بخير ،وتقبل الله منا ومنكم ان شاء الله. 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

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