كسر حماية شيت ( ورقة العمل )فى اكسيل
Рет қаралды 94,608
Күн бұрынانت عملت حماية للشيت بتاعك فى اكسيل ضد التعديل عشان محدش يعدل او يغير فى معادلاتك ... والملف دة من زمان وانت نسيت كلمة السر بتاعة حمايو ورقة العمل من التعديل ومحتاج تعدل فى الشيت ... ينفع تكسر حماية الورقة ضد التعديل ... طبعا ينفع ... بس الطريقة اللى هشرحها تصلح اكثر مع Excel 2010... اتفرج على الفيديو دة واعرف خطوات فك او كسر حماية الورقة فى اكسيل
@RaachHBB 5 жыл бұрын
مشكور على المعلومات جعلها الله لك في ميزان حسناتك
@al-wadaqalazraq7763 4 жыл бұрын
شكرا جزيلآ سيد طارق على شرحك المبسط والمفهوم للمتلقي. شكرا لك على مجهودك
@mr.tareksaad2146 3 жыл бұрын
اشكرك وبالتوفيق ان شاء الله
@salemsalem3134 3 жыл бұрын
@@mr.tareksaad2146 اخ طارق بدل من جملة " تم فك الحماية" ماذا نضع
@aslammano2679 2 жыл бұрын
فين الكود ده انا مش لقى
@حيدرعلي-ص7ز2غ 7 жыл бұрын
بعد التحية والاحترام إستاد طارق ياريت تتفضل وتعمل درس كيفية عمل الاكواد بواسطة برنامج فيجول بيسك مع جزيل الشكر والتقدير
@محمدحسن-زقالى 3 жыл бұрын
تمت المهمة بنجاح تحياتى
@fatmashalaby575 2 жыл бұрын
ممكن اللينك
@waseemaldawud4236 Жыл бұрын
@@fatmashalaby575 Sub passwordbreaker() 'breaks worksheet password protection. Dim t As Integer, a As Integer, r As Integer Dim e As Integer, k As Integer Dim t1 As Integer, a1 As Integer, r1 As Integer Dim e1 As Integer, k1 As Integer, s As Integer, d As Integer On Error Resume Next For t = 99 To 100: For a = 99 To 100: For r = 99 To 100 For e = 99 To 100: For k = 99 To 100: For t1 = 99 To 100 For a1 = 99 To 100: For r1 = 99 To 100: For e1 = 99 To 100 For k1 = 99 To 100: For s = 99 To 100: For d = 99 To 100 ActiveSheet.Unprotect Chr(t) & Chr(a) & Chr(r) & _ Chr(e) & Chr(k) & Chr(t1) & Chr(a1) & Chr(r1) & _ Chr(e1) & Chr(k1) & Chr(s) & Chr(d) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: End Sub
@mahmoudgalal6780 4 жыл бұрын
جزاك الله خيرا ظبط معايا و مع اكسل 2016 كمان جزاك الله خيرا
@fatmashalaby575 2 жыл бұрын
ممكن الرابط ال عملته بيه لو سمحت
@مدامسومهالغريانيالبروتين Ай бұрын
ممكن الكود لو سمحت
@bafouhocine4675 4 жыл бұрын
بارك الله فيك روووووعة
@husseinmahran5043 Жыл бұрын
بعد إذنك الكود غير موجود أسفل الفيديو
@user-kj2jk5ii6n 7 ай бұрын
اين الكود
@ابومحمد-ع1س9ح 2 жыл бұрын
شكرا ليك
@walidss8343 2 жыл бұрын
شكرا جزيلا
@derkaouiabdelkader7366 6 жыл бұрын
سلام عليكم استاذ جزاك الله كل خير ممكن رابط تنزيل الكود والله انا محتاجه وشكرا
@مكتبالرفاعي1 7 ай бұрын
شكرا
@khamarfouad7546 6 ай бұрын
السلام عليكم ورحمة الله وبركاته بارك الله فيك أستاذ طارق ممكن الكود جزاك الله خيرا
@sameh5184 2 жыл бұрын
السلام عليكم استاذ طارق مشكور على المجهود ممكن الكود اذا سمحت مش موجود اسفل الفديو
@ahmedroma5681 2 жыл бұрын
تمام
@ابراهيماحمدمحسن-ظ5ذ 5 жыл бұрын
السلام عليكم جزيت خيراً اخي الكريم فقط اذا امكن ترسل رابط الكود عشان اجرب الطريقة .
@ahmadabokamel9542 3 жыл бұрын
+١
@ahmadabokamel9542 3 жыл бұрын
+١
@user-wc7co1lc1v Жыл бұрын
بارك الله فيك كيف يمكن اضهار شيتات مخفية بكود
@mr.tareksaad2146 6 жыл бұрын
ودة رابط مباشر للملف على google Drive drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J
@mustaphatainite7899 6 жыл бұрын
اخي عملت كوبي و ران وطلع خطأ في
@mr.tareksaad2146 6 жыл бұрын
هذا الكود يعمل مع Excel 2010 وقد نبهت لهذا الامر ( راجع التعليق المنشور اسفل الفيديو) فاذا كان الاكسيل لديك نسخة احدث من 2010 فلن يعمل
@medoabdo760 3 жыл бұрын
جيد
@قناهمنوعات-ذ7و9ي 2 жыл бұрын
لو سمحت لو عندي شيت انا سحبته من برنامج الحسابات بس متلغبط علي الاكسل وعايز ارتبه اعمل ايه
@mr.tareksaad2146 2 жыл бұрын
استخدم الامر Sort من قائمة Data
@قناهمنوعات-ذ7و9ي 2 жыл бұрын
@@mr.tareksaad2146 بس كده وهو هيتفك معايا كله وهيكون مترتب بالأرقام وكله تمام
@kareemAAK 5 ай бұрын
من فظلك رابط لكود
@fawazalhashemi9596 4 ай бұрын
طبقت نفس الطريقة ع اوفس 356 وافس 10 ماضبطت وتظهر رسالة خطأ
@الحجهحسنا 5 күн бұрын
من فضلك ارسل ليا الكود و لك جزيل الشكر
@captenmohamed2394 3 жыл бұрын
محتاج فك ملف الاكسل من الخارج بمعني لو مضاف رقم سري من الملف الأصلي وليس ورقة الاكسل
@Harraz1969 2 жыл бұрын
الغي تفعيل الماكرو من الاكسيل من الخارج وتدخل على الملف عادي جرب وشوف
@faribahosseini8227 5 жыл бұрын
شكرا وانا زبط معي
@hocineamel5234 Жыл бұрын
وين كود
@qualitysecret1960 4 жыл бұрын
مشكور جد بس فين الكود
@dreams8687 8 ай бұрын
طيب اضف الكود هنا غير موجود على الانستقرام
@مدامسومهالغريانيالبروتين Ай бұрын
ممكن الكود لفك حماية ورقة عمل اكسل
@mohamedsaid058 6 ай бұрын
النافذه اللي بتظهر بعد م تعمل alt+f11 مش ظاهره عندي
@بنأعمرأمين 5 жыл бұрын
بارك الله فيك الشكر موصول الكود يعمل شكرا جزاك الله عني خير جزاء
@chohayraaribi9182 5 жыл бұрын
SVP LE CODE
@queenforever8888 2 жыл бұрын
فين الكود ؟ حضرتك لم تنزله اسفل الفديو
@mustaphatainite7899 6 жыл бұрын
هذا عبت هل نجد حروف العربي في البرمجة كتبت تم فك الحماية ؟؟؟؟؟؟؟ظ
@mr.tareksaad2146 6 жыл бұрын
اخى الفاضل تم فك الحماية دى رساله توضع بين علامتى تنصيص ويمكن وضع اى رساله باى محتوى اما الكود الاصلى فهو المسئول عن فك الحماية وليس محتوى الرسالة .... شكرا على مرورك اخى الكريم
@stepbystepcourses2290 6 жыл бұрын
انا كنت داخله اكتب نفس الكلام
@osamazaki6371 4 жыл бұрын
ياريت لو ممكن الكود لو سمحت
@hossammostafa4064 2 жыл бұрын
ممكن الكود لو سمحت
@Q_rt Жыл бұрын
هذا هو الكود: Sub PasswordBreaker() 'Breaks worksheet password protection. Dim T As Integer, A As Integer, R As Integer Dim E As Integer, K As Integer Dim T1 As Integer, Al As Integer, Ri As Integer Dim E1 As Integer, K1 As Integer, S As Integer, D As Integer On Error Resume Next For T = 99 To 100: For A = 99 To 100: For R = 99 To 100 For E = 99 To 100: For K = 99 To 100: For T1 = 99 To 100 For Al = 99 To 100: For R1 = 99 To 100: For E1 = 99 To 100 For K1 = 99 To 100: For S = 99 To 100: For D = 1 To 100 ActiveSheet.Unprotect Chr(T) & Chr(A) & Chr(R) & _ Chr(E) & Chr(K) & Chr(T1) & Chr(A1) & Chr(R1) & _ Chr(E1) & Chr(K1) & Chr(S) & Chr(D) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub
@assdfrgt Жыл бұрын
تحياتي وشكري الكبير لجهودك الطريقة لم تنجح معي!!! هل من طريقة اخرى؟؟
@Q_rt Жыл бұрын
@@assdfrgt ما اعرف انا جربت الطريقة اللي بالفيديو والحمدالله ضبطت معي
@assdfrgt Жыл бұрын
الويندز عندي10 محدث ل11 و الاكسل 2019 ممكن تكون سبب؟؟
@user-id7ck7mb1u Жыл бұрын
ليش ما نقدر ننسخ الكود
@Q_rt Жыл бұрын
@@user-id7ck7mb1u كيف مافهمتك ؟
@إبراهيمالقزاز-ك1ث 2 жыл бұрын
شكراً جزيلاً لحضرتك أين الكود يافندم
@user-yk7bo8tc2e 10 ай бұрын
😢
@adengad 7 ай бұрын
طيب الان كيف استطيع ان اقفل الملف
@zizo7x839 4 жыл бұрын
الكود ياعم فين
@shenoudaibrahim8545 6 жыл бұрын
لو انا عامل حماية علي صفحة الاكواد ونسيتها اعمل ايه
@mohammedelsaadany3314 2 жыл бұрын
سلام عليكم مستر طارق من فضلك انا محتاج الكود لفك الملف لانه مش موجود في الفيديو فضلا وليس أمرا
@خديجةموزان Жыл бұрын
شكرا جزيلا بس وين نسخ نص الكود ؟
@elhoussineamkrane7311 6 жыл бұрын
ou li maykhadamch lih pc arabe
@dr.lailaahamed6392 3 жыл бұрын
السلام عليكم ورحمه الله وبركاته لو سمحت ممكن الكود لانى محتاجة ضرورى
@mr.tareksaad2146 3 жыл бұрын
دة رابط مباشر للملف على google Drive drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J
@اسيرالشوق-ط3ن 6 жыл бұрын
ممكن ارسلك الملف تفتحه لي ايميل
@mohamedyounies6476 3 жыл бұрын
مش واضحه عندي المعاده الخاصه بحل الحمايه للاكسيل
@user-br5yp4bi7k 2 жыл бұрын
بلا زحمة الرابط لفك الحماية ان وجد
@khdi2 3 жыл бұрын
انا بحاول اعمل كدة ..بيطلب مني باسوورد في الفيجول بيسك
@ضيالقناديل Жыл бұрын
فين الكود
@deiaaali9902 2 жыл бұрын
كود فك الحمايه في الاكسل
@jabbaraziz8147 2 жыл бұрын
ممكن الكود أو كيفية الحصول عليها مع الشكر
@user-re5kp3sw7p Жыл бұрын
وين الكود ليس،في صندوق الوصف
@محمدعلي-ز9ط6ض 4 жыл бұрын
السلام عايكم ممكن الكود لو سمحت وجزاكم الله خيرا
@khalidalmulla1481 3 жыл бұрын
مافي كود بالوصف ؟؟!!
@Mohamed_Raheel Жыл бұрын
فين يا باشا الكود جروب إيه إللي اشترك عليه علشان أخد كوود Unlike
@hanyismail7713 4 жыл бұрын
Sub PasswordBreaker() 'Breaks worksheet password protection. Dim T As Integer, A As Integer, R As Integer Dim E As Integer, K As Integer Dim T1 As Integer, A1 As Integer, R1 As Integer Dim E1 As Integer, K1 As Integer, S As Integer, D As Integer On Error Resume Next For T = 99 To 100: For A = 99 To 100: For R = 99 To 100 For E = 99 To 100: For K = 99 To 100: For T1 = 99 To 100 For A1 = 99 To 100: For R1 = 99 To 100: For E1 = 99 To 100 For K1 = 99 To 100: For S= 99 To 100: For D = 1 To 100 ActiveSheet.Unprotect Chr(T) & Chr(A) & Chr(R) & _ Chr(E) & Chr(K) & Chr(T1) & Chr(A1) & Chr(R1) & _ Chr(E1) & Chr(K1) & Chr(S) & Chr(D) If ActiveSheet.ProtectContents = False Then " تم فك الحماية" MsgBox Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub
@hanizouaoui1730 2 жыл бұрын
ليس
@AbdullahAmeenAlfedayli 2 жыл бұрын
👍🏽
@user-ow7sz6ms2h 5 жыл бұрын
هوا فين الكود
@mr.tareksaad2146 5 жыл бұрын
drive.google.com/file/d/1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J/view
@m.mustafakhalil4576 2 жыл бұрын
ممكن الكود
@hichemilyas2950 2 жыл бұрын
اين كود فتح الورقة من فضلك
@naouri_abdelbaki 2 жыл бұрын
مشكور أين الكود
@mahmoud20246 Жыл бұрын
فين تاكود
@AhmedAdel-fu3qv Жыл бұрын
فين الكود يامحترم
@user-xn2dw3gj5l 5 жыл бұрын
حاولت بنفس الشرح ولكن ما ضبط معي فلطفاً احتاج دعمك استاذنا
@كاملالعقيلي-ك7س 2 жыл бұрын
وين الكود
@غروبغروب-ذ3ب 3 жыл бұрын
لو سمحت كود لاكسل 2013
@mr.tareksaad2146 3 жыл бұрын
الكود بعمل مع 2010 وتم اغلاقه من 2013 كتحسين من مايكروسوفت لزيادة الامان
@غروبغروب-ذ3ب 3 жыл бұрын
@@mr.tareksaad2146 بارك الله فيك وجزاك الله خيراً وزادك الله من علمه
@ahmedgalal418 2 жыл бұрын
بعمل الخطوات لكن بطلع رساله ان فى خطأ
@bilalsaadia5659 2 жыл бұрын
انا من الجزائر مالقيتش الكود
@حبيبىيارسولالله-ت4ه Жыл бұрын
فين الكود اللى هننسخة
@rafikfoodway5743 2 жыл бұрын
هو فين
@maherhashem6 3 жыл бұрын
فين الكود مش موجود
@mohammed8881 4 жыл бұрын
اين الكود
@MuhammedSalihh 5 жыл бұрын
طيب اين الكود
@rafikfoodway5743 2 жыл бұрын
مفيش اكواد
@yazeedalsharif2277 2 жыл бұрын
وين الكود ليش مايظهر لي.؟؟؟
@user-nj8ml4sh8h 10 ай бұрын
فين الكود ؟؟؟؟
@muhamedabd-elfattah761 6 жыл бұрын
الكود مش شغال بضغط عليه بيحولني لصفحه فيس بوك
@mr.tareksaad2146 6 жыл бұрын
الرابط الموجود هو لجروب الطلاب على الفيس بوك وداخل الجروب يمكن تنزيل صفحة الاكواد
@muhamedabd-elfattah761 6 жыл бұрын
لللاسف ده رابط هاكينج وليس جروب
@mr.tareksaad2146 6 жыл бұрын
حضرتك لا اضع روابط هاكينج على قناتى .... ويمكنك البحث على الفيس بوك على جروب باسم IBI Students (Mr.Tarek Saad ستجد انه نفس الرابط وستجد بداخلة الكود
@mr.tareksaad2146 6 жыл бұрын
ودة رابط مباشر للملف على google Drive drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J
@mrmovan.diezel8765 3 жыл бұрын
@@mr.tareksaad2146 ده صورة
@ahmedmousa1983 2 жыл бұрын
فين الكود لا اجده
@مدرسةدسوقالثانويةالزراعية 5 жыл бұрын
مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور
@gamalshahen3369 3 жыл бұрын
فين الكود ده ما فيش حاجة مصاحبة للفيديو
@mr.tareksaad2146 3 жыл бұрын
ودة رابط مباشر للملف على google Drive drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J
@صالحمحمود-ك9غ 2 жыл бұрын
اين الكود؟
@adopaaman3818 Жыл бұрын
فين الكود يا كبير
@stylefurniture6086 2 жыл бұрын
فين الكود ياهندسة
@ahmadabokamel9542 3 жыл бұрын
الكود لو سمحت
@zeyadwaleed8470 2 жыл бұрын
أين لكود
@menasalib8529 2 жыл бұрын
فين الكود حضرتك
@محمدمنصور-ب5غ 2 жыл бұрын
هو فين الرابط !!!!!؟
@sabrinmhmed5509 5 жыл бұрын
تعطى رسالة خطا
@tvmoh1076 5 жыл бұрын
وين الكود ؟
@wessamfaloum4348 3 жыл бұрын
رابط الكود رجاء
@mohamedkara9957 5 жыл бұрын
أين هو الكود ؟؟؟؟
@user-ul9bg1df3x 3 жыл бұрын
فين الكود حضرتك هو انا لازم اشترك فى مجموعة الفيس علشان احصل على الكود
@waseemaldawud4236 Жыл бұрын
Sub passwordbreaker() 'breaks worksheet password protection. Dim t As Integer, a As Integer, r As Integer Dim e As Integer, k As Integer Dim t1 As Integer, a1 As Integer, r1 As Integer Dim e1 As Integer, k1 As Integer, s As Integer, d As Integer On Error Resume Next For t = 99 To 100: For a = 99 To 100: For r = 99 To 100 For e = 99 To 100: For k = 99 To 100: For t1 = 99 To 100 For a1 = 99 To 100: For r1 = 99 To 100: For e1 = 99 To 100 For k1 = 99 To 100: For s = 99 To 100: For d = 99 To 100 ActiveSheet.Unprotect Chr(t) & Chr(a) & Chr(r) & _ Chr(e) & Chr(k) & Chr(t1) & Chr(a1) & Chr(r1) & _ Chr(e1) & Chr(k1) & Chr(s) & Chr(d) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: End Sub
@user-ul9bg1df3x Жыл бұрын
شكرا لحضرتك بس والله انا نسيت كنت بسال على ايه
@nadilina 2 жыл бұрын
اين ملف الكود
@waseemaldawud4236 Жыл бұрын
Sub passwordbreaker() 'breaks worksheet password protection. Dim t As Integer, a As Integer, r As Integer Dim e As Integer, k As Integer Dim t1 As Integer, a1 As Integer, r1 As Integer Dim e1 As Integer, k1 As Integer, s As Integer, d As Integer On Error Resume Next For t = 99 To 100: For a = 99 To 100: For r = 99 To 100 For e = 99 To 100: For k = 99 To 100: For t1 = 99 To 100 For a1 = 99 To 100: For r1 = 99 To 100: For e1 = 99 To 100 For k1 = 99 To 100: For s = 99 To 100: For d = 99 To 100 ActiveSheet.Unprotect Chr(t) & Chr(a) & Chr(r) & _ Chr(e) & Chr(k) & Chr(t1) & Chr(a1) & Chr(r1) & _ Chr(e1) & Chr(k1) & Chr(s) & Chr(d) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: End Sub
@atefibrahim7756 2 жыл бұрын
فين الكود حضرتك ؟
@waseemaldawud4236 Жыл бұрын
Sub passwordbreaker() 'breaks worksheet password protection. Dim t As Integer, a As Integer, r As Integer Dim e As Integer, k As Integer Dim t1 As Integer, a1 As Integer, r1 As Integer Dim e1 As Integer, k1 As Integer, s As Integer, d As Integer On Error Resume Next For t = 99 To 100: For a = 99 To 100: For r = 99 To 100 For e = 99 To 100: For k = 99 To 100: For t1 = 99 To 100 For a1 = 99 To 100: For r1 = 99 To 100: For e1 = 99 To 100 For k1 = 99 To 100: For s = 99 To 100: For d = 99 To 100 ActiveSheet.Unprotect Chr(t) & Chr(a) & Chr(r) & _ Chr(e) & Chr(k) & Chr(t1) & Chr(a1) & Chr(r1) & _ Chr(e1) & Chr(k1) & Chr(s) & Chr(d) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: End Sub
@dragontwa 6 жыл бұрын
اين الكود يا استاذ
@waseemaldawud4236 Жыл бұрын
Sub passwordbreaker() 'breaks worksheet password protection. Dim t As Integer, a As Integer, r As Integer Dim e As Integer, k As Integer Dim t1 As Integer, a1 As Integer, r1 As Integer Dim e1 As Integer, k1 As Integer, s As Integer, d As Integer On Error Resume Next For t = 99 To 100: For a = 99 To 100: For r = 99 To 100 For e = 99 To 100: For k = 99 To 100: For t1 = 99 To 100 For a1 = 99 To 100: For r1 = 99 To 100: For e1 = 99 To 100 For k1 = 99 To 100: For s = 99 To 100: For d = 99 To 100 ActiveSheet.Unprotect Chr(t) & Chr(a) & Chr(r) & _ Chr(e) & Chr(k) & Chr(t1) & Chr(a1) & Chr(r1) & _ Chr(e1) & Chr(k1) & Chr(s) & Chr(d) If ActiveSheet.ProtectContents = False Then MsgBox "Êã Ýß ÇáÍãÇíÉ" Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: End Sub
@خالدخليفة-و9د 3 жыл бұрын
ايبابايبالبا
@mr.tareksaad2146 7 жыл бұрын
* ان شاء الله عن قريب ساقوم بعمل سلسلة محاضرات لشرح برمجة الاكسيل باستخدام الفيجوال بيسك
@mr.tareksaad2146 6 жыл бұрын
يمكن الحصول على الكود من رابط جروب الطلاب على الفيس بوك facebook.com/groups/391251710930632/
@languageswithamal622 2 жыл бұрын
ح
@geographytv9537 Жыл бұрын
@@mr.tareksaad2146 الكود
@حيدرعلي-ص7ز2غ 7 жыл бұрын
السلام عليكم استاد طارق على هذا الموضوع وكيف يتم صنع الكود
@mr.tareksaad2146 7 жыл бұрын
وعليكم السلام اخى العزيز ...... لصناعة اى كود لابد من تعلم لغة برمجة ولغة البرمجة المستخدمة هنا هى لغة الفيجوال بيسك ... ويكفيك ان تقوم بنسخ الكود المصاحب للفيديو فى المكان المحدد لكى تعمل طريقة كسر الحماية
@user-ti9ir1cp8z Жыл бұрын
@@mr.tareksaad2146 وين الكود يا استاذ
@ahmedelbaz4078 3 жыл бұрын
مفيش حاجه اتفكت
@mr.tareksaad2146 3 жыл бұрын
يعمل الكود مع اكسيل 2010
@muhammadhajyoussef413 7 ай бұрын
واحد كذاب وين لكود
@hanyadel6281 4 жыл бұрын
لام عليكم استاذ جزاك الله كل خير ممكن رابط تنزيل الكود والله انا محتاجه وشكرا
@hishamyounis6071 3 жыл бұрын
Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub
@mrmovan.diezel8765 3 жыл бұрын
@@hishamyounis6071 هو فين؟
@ayagamal4985 2 жыл бұрын
@@hishamyounis6071 ممكن تبعتهولي بعد اذنك
@fethiammari Жыл бұрын
من فظلك رابط لكود
CTVBY
Рет қаралды 3,5 МЛН
نبذة ابداعية
Рет қаралды 8 М.
عماد غازى رحمه
Рет қаралды 287 М.
المجلة الثقافية
Рет қаралды 25 М.
Khaled Shaaban خالد شعبان
Рет қаралды 9 М.
Arabes1 | قناة علوم وتقنيات
Рет қаралды 45 М.