إبراهيم ابوليله

اخى صلاح يمكنك عمل ذلك بنفسك سواء اذا كنت تريد استخدام الكود الاول او الكود الثانى -------------------------------------- اذا اردت استخدام الكود الاول قم بتغير هذا السطر Private Sub Workbook_BeforeClose(Cancel As Boolean) الى Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- فى حالة استخدام الكود الثانى فقط قم بحزف هذا الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayFullScreen = False Application.DisplayFormulaBar = True Dim Msg Dim MyPath As String, pt As String MyName = ActiveWorkbook.Name MyRev = StrReverse(MyName) MyTep = StrReverse(Left(MyRev, InStr(MyRev, "."))) MyDate = Chr(32) & Format(Date, "dd-mm-yy") MyName = Trim(Replace(MyName, MyTep, "")) Text_ = MyName & MyDate '============================ MyPath = ActiveWorkbook.Path & "\" & Trim(Text_) & MyTep pt = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name '============================ ActiveWorkbook.SaveCopyAs MyPath '============================ End Application.Visible = True End Sub

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

الاخوه الافاضل دائما ما يكون الموضوع صاحب الحلول المتنوعه هو الموضوع الاكثر تميزا والاكثر اثاره وافاده لنا جميعا بارك الله فيكم جميكم ووفقكم لفعل الخير ولما يحبه ويرضاه ----------------------------------------- اسمحو لى ان اشاركم بكود اعتقد انه خفيف ايضا فى حالة كثرة البيانات -------------------------------------------------------------- On Error GoTo 100 Worksheets("SHEET3").Activate Columns(1).Find(TextBox1, MatchCase:=True).Activate TextBox2 = ActiveCell.Offset(0, 0).Value TextBox3 = ActiveCell.Offset(0, 1).Value TextBox4 = ActiveCell.Offset(0, 2).Value

اخى محمود اولا الف مبروك عليك الترقيه وهذا يدل على جهد المبذول فى توصيل المعلومات الينا بارك الله فيك

اخى صلاح بالنسبه لتعارض الاكواد مع اختلاف اصدارات الاوفيس فلا اعتقد ذلك ----------------------------------------------------- اذا كانت المشكله لديك فى كود يقوم بعمل نسخه احتياطيه فقد قمت بحزف الكود الذى قمت ان بكتابه وارفقت لك كود اخر يؤدى نفس المهمه الكود يقوم بعمل نسخه احتياطيه يوميه ---------------- اما بالنسبه لتغير مستوى الامان من ملف اخر فقد جربت ذلك ولم يحدث اى خطأ salah 20144.rar

اخى صلاح ارفق ملف به الكود

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

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

اخى ابوحنين اضف هذا الى الكود Columns("M:n") = Columns("M:n").Value

اخى محمود اعتقد انك لازم تعرف المتغير last row وان كان يفضل ارفاق ملف للعمل عليه

اخى طلعت وبعد اذن اخى و استاذنا الحبيب رجب. هذه محاوله منى ارجو ان تفى بالغرض معاينه-1.rar

اخى سليم معلومه جميله بارك الله فيك الى الامام

اخى محمود هديه مقبوله وعمل جميل بارك الله فيك وكل عام وانت بخير

اخى محمد جرب الكود الاتى Private Sub CommandButton1_Click() Dim Last As Long, i As Long With æÑÞÉ1 Last = .Cells(Rows.Count, "b").End(xlUp).Row For i = Last To 3 Step -1 If .Cells(i, 2) = Me.ComboBox1 Then .Cells(i, "b").Resize(1, 10).Clear End If Next End With End Sub

اخى صلاح كل ما اعرفه حول هذا الموضوع ان كلا الامتدادين يضمن ويسمح باستخدام vba ----------------------------------------- وان excel binary يقلل من حجم الملف ----------------------------------------------------- والله اعلم

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

اخى صلاح جرب واعلمنى بالنتيجه protect with drive.rar

اخى جمال بصراحه انت برنس ملك المعدلات بارك الله فيك

اخى صلاح بالفعل كان معك حق تم التعديل جرب المرفق protect with drive.rar

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

اخى محمد هل تقصد هكذا Book99.rar

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

اخى صلاح تم عمل المطلوب الاول اما بالنسبه ل ظهور نافذتين فلم افهم ما تقصد ارجو التوضيح اكثر لاننى لم استطع فتح الصوره الثانيه ارجو النظر الى المرفق protect with drive.rar

اخى صلاح جرب المرفق protect with drive.rar

اخى رجب انت برنس ربنا يخليك لينا بارك الله فيك