هادى محمد المامون سالم

تم ارسال البرنامج باسم كسر الحمايه

الاخ ياسر : مشكور يا اخى على اجمل رد السلام عليكم

تم اعاده الارسال

السلام عليكم : الاخوه الكرام mkat100 نعدمات apt khaledss2 تم ارسال البرنامج بعنوان كسر الحمايه برجاء الرد و الافاده المتنور عندك مشكله فى الميل

الاخوه الكرام : انتظرت فتره حتى اجد رد مقنع يمنعنى من الاستمرار و طرحت عده اساله و تعددت الاجابات و اسمحوا لى ان ارد بايجاز : خاصه ان الاخ بترمس صاحب النقد لم يرد القرصنه : القرصنه من يقوم بفك حمايه البرامج او الدخول على اجهزه الغير و استغلالها 0 و بصراحه شديده البرنامج موجود فى المنتديات و لكن بدون سيريال و انا قمت بالحصول على السيريال بقرصنه او فك حمايه او 0000 و فعلا قمت بارسال البرامج بدون السيريال الا من تاكدت انه محتاجه , و سوف ارسل البرنامج بدون السيريال و من اراد الحصول عليه يستطيع الوصول اليه بمعرفته 0 راى المشرفين : قام الاستاذ محمد طاهر بالرد و لم يمنعنى من التوقف و اظهار ان هناك شقان للمشكله 0 الاثام : لقد اخبرت فى اول صفحه ان الغرض من هذا البرنامج هو افاده الاخرين و الله وحده هو الذى يعلم ذلك 0 و مع ملاحظتى ان اكثر الطالبين لهذا البرنامج جاديين او عندهم مشكله بنسيانهم كلمه السر ان شاء الله سوف استمر فى ارسال البرنامج لمن يطلبه 0

هذا التعديل يعتبر شرف لى

السلام عليكم اكمالا ل Ramez بعد الفرز تستتطيع كتابه الكود التالى فى العمود المجاور (if(A1=A2;1;2 = ثم تسحب الى اخر العمود ثم تعيد الفرز بالعمود الجديد ثم تلغى جميع الصفوف التى يوجد بها رقم 1 بالعمود والجديد و سلام

مشكور يا اخى ابو الريان

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

برجاء التوضيح اكثر ما الذى تريد اضافته فى عمود تاريخ ادخال عند عند ادخال عدد ؟

اقصد ادخل كلمه السر التى تريدها

اخى الكريم : لحمايه الماكرو Tools VBproject Properties Protection ادخل كلمه السؤ التى تريدها السلام عليكم

اخى الكريم ياريت نشوف موضوع الفتوة حتى يستريح قلبى ملحوظه : لم تكتب الايمال الخاص بك السلام عليكم

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

الاخوه الكرام rollahani walf10 تم ارسال البرنامج برجاء الرد و الافاده

الاخوه الكرام asd101960 tameromar تم ارسال البرنامج برجاء الرد و الافاده

m105 malik68 تم الارسال

تم ارسال الملف باسم كسر الحمايه

السلام عليكم الاخوه الكرام ذهب و فضه nicebird جرح العراق apt تم ارسال البرامج اسم الملف فك الحمايه

اخى الكريم : طبعا الطريقه العلميه هى الاهم و فى الحاله الاخرى تستطيع ان تنزل الملفات و تعرف الطريقه ماشيه ازاى ثم تحاول تعمل زيها طبعا الموضوع عاوز صبر السلام عليكم

اخى الكريم : هذا هو شرح الكود Sheets("list").Select Dim EndRow As Long If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox Prompt:="يجب اتمام كافه البيانات", Title:="ÎØÃ" يتم اختيار الشيت الذى سوف يتم التعامل معه "List" اذا لم يتم ادخال بيانات تظهر رساله "يجب اتمام كافه البيانات" EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = TextBox1.Value Sheets("List").Cells(EndRow + 1, 3).Value = TextBox2.Value Sheets("List").Cells(EndRow + 1, 4).Value = TextBox3.Value اذا تم ادخال البيانات يتم الذهاب الى اول سطر فارغ الخليه المختاره = قيمه TextBox1 وهكذا فى TextBox2 و TextBox3 TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" محو بيانات TextBox MsgBox Prompt:="تمت عمليه الترحيل ينجاح", Title:="رساله تاكيد" بعد اتمام العمليه اظهر رساله " تمت عمليه ترحيل البيانات بنجاح "

ماجدجلال NM6780738 malik68 تم ارسال البرنامجين اسم الملف برامج فك الحمايه

مش فاهم قصدك برجاء التوضيح

نسيت اقول لك ان الملف عباره عن فيلم يشرح الطريقه

اخى الكريم ارفقت لك فيلم سريع للشرح اتمنى ان تستفيد منه اما الربط سوف ارسله لاحقا لانى مستعجل الان برجاء ابلاغى بالنتيجه Ex.rar