ابو ياسر2

اخواني السلام عليكم ورحمة الله وبركاتة اتمنا مساعدتي في تعديل كود حتي يعمل بشكل تلقائي من اول ما افتح الاكسل كود نسخة ولصق من خلية الي خلية الي بعدة كلما تغيرت الخلية A اكبر من 1000 هذا الكود ويعمل بشكل سليم لكن مشكلتة يعمل فقط عندما اكتب في الخلية يدوي و انقر علي زر الانتر في لوحة المفاتيح و انا احتاج يعمل تلقائي او بمجرد ما افتح الاكسل Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Me.Columns(1)) Is Nothing Then If Target.Value > 1000 Then Me.Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Target.Value End If End If ws_exit: Application.EnableEvents = True End Sub حاولت اعدل حتي يعمل تلقائي بكتابة هذا الكود Private Sub Worksheet_Calculate() Dim c As Range Application.EnableEvents = False If Not Intersect(Target, Me.Columns(1)) Is Nothing Then If Target.Value > 1000 Then Me.Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Target.Value End If End If ws_exit: Application.EnableEvents = True End Sub لكن تظهر لي رسالة خطاء اتمنا مساعدتي

السلام عليكم ورحمة الله وبركاتة طلب مكرو يعمل تلقائي علي فرز الصفوف من الاكبر الي الاصغر حسب تنسيق شرطي هل ممكن ذلك ؟

عندي كود vba نسخ من خلية الي خلية اخري الكود يعمل مع اوراق وبعض الاوراق يعلق الاكسل ويعطي فلاش في الخلايا ممكن شرح معني هذا الكود .End(xlUp).Row) For Each c In Range("J7:J" & Cells(Rows.Count, "J").End(xlUp).Row)

عملت كل الطرق ما في فائدة برنامج Passware Kit Forensic 10.1 فك الاكسل بكل سهولة ماهي فائدة البسورد في الاكسل اذا بكل سهولة الواحد يفكة اخواني هل اجد حل للمشكلة حماية بمعني حماية حقيقية

الف الف شكر اخواني علي المساعدة و الرد يعني الحل الامثل انني اضع !@#$%^&*!@#$%^&*!@#$%^&*!@#$%^&*!@#$%^&*!@#$%^&*!@#$%^&* راح يكون صعب علي اقوي البرامج فك الحماية ؟

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

اخواني السلام عليكم ورحمة الله وبركاتة عندي مشكلة وهي انني عندمااعمل زر اضع الكود و عندما احاول احفظ الاكسل تظهر لي هذة الرسالة the following features cannot be save in macro-free workbooks vb prohect the save a file with these features click on and then choose a macro enabled file type in the file type list to continue saving as macro-free workbook click yes وعندما احفظة و فتح الاكسل و نقر علي زر التشغيل تظهر لي هذة الرسالة the macro may not be available in this workbook or all macors may be disabled اتمنا مساعدتي