كسر حماية شيت ( ورقة العمل )فى اكسيل

انت عملت حماية للشيت بتاعك فى اكسيل ضد التعديل عشان محدش يعدل او يغير فى معادلاتك ... والملف دة من زمان وانت نسيت كلمة السر بتاعة حمايو ورقة العمل من التعديل ومحتاج تعدل فى الشيت ... ينفع تكسر حماية الورقة ضد التعديل ... طبعا ينفع ... بس الطريقة اللى هشرحها تصلح اكثر مع Excel 2010... اتفرج على الفيديو دة واعرف خطوات فك او كسر حماية الورقة فى اكسيل

[@khamarfouad7546]

السلام عليكم ورحمة الله وبركاته بارك الله فيك أستاذ طارق ممكن الكود جزاك الله خيرا

[@derkaouiabdelkader7366]

سلام عليكم استاذ جزاك الله كل خير
ممكن رابط تنزيل الكود
والله انا محتاجه
وشكرا

[@al-wadaqalazraq7763]

شكرا جزيلآ سيد طارق على شرحك المبسط والمفهوم للمتلقي. شكرا لك على مجهودك

[@mr.tareksaad2146]

اشكرك وبالتوفيق ان شاء الله

[@salemsalem3134]

@@mr.tareksaad2146
اخ طارق
بدل من جملة " تم فك الحماية" ماذا نضع

[@aslammano2679]

فين الكود ده انا مش لقى

[@RaachHBB]

مشكور على المعلومات
جعلها الله لك في ميزان حسناتك

[@mr.tareksaad2146]

ودة رابط مباشر للملف على google Drive
drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J

[@mustaphatainite7899]

اخي عملت كوبي و ران وطلع خطأ في

[@mr.tareksaad2146]

هذا الكود يعمل مع Excel 2010 وقد نبهت لهذا الامر ( راجع التعليق المنشور اسفل الفيديو) فاذا كان الاكسيل لديك نسخة احدث من 2010 فلن يعمل

[@sameh5184]

السلام عليكم استاذ طارق
مشكور على المجهود
ممكن الكود اذا سمحت مش موجود اسفل الفديو

[@حيدرعلي-ص7ز2غ]

بعد التحية والاحترام إستاد طارق ياريت تتفضل وتعمل درس كيفية عمل الاكواد بواسطة برنامج فيجول بيسك مع جزيل الشكر والتقدير

[@husseinmahran5043]

بعد إذنك الكود غير موجود أسفل الفيديو

[@انشراحعبداللهعمران]

اين الكود

[@مكتبالرفاعي1]

شكرا

[@قناهمنوعات-ذ7و9ي]

لو سمحت لو عندي شيت انا سحبته من برنامج الحسابات بس متلغبط علي الاكسل وعايز ارتبه اعمل ايه

[@mr.tareksaad2146]

استخدم الامر Sort من قائمة Data

[@قناهمنوعات-ذ7و9ي]

@@mr.tareksaad2146 بس كده وهو هيتفك معايا كله وهيكون مترتب بالأرقام وكله تمام

[@الغدالافضل-ر5ج]

بارك الله فيك كيف يمكن اضهار شيتات مخفية بكود

[@mahmoudgalal6780]

جزاك الله خيرا
ظبط معايا و مع اكسل 2016 كمان
جزاك الله خيرا

[@fatmashalaby575]

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

[@مدامسومهالغريانيالبروتين]

ممكن الكود لو سمحت

[@mr.tareksaad2146]

* ان شاء الله عن قريب ساقوم بعمل سلسلة محاضرات لشرح برمجة الاكسيل باستخدام الفيجوال بيسك

[@mr.tareksaad2146]

يمكن الحصول على الكود من رابط جروب الطلاب على الفيس بوك
facebook.com/groups/391251710930632/

[@languageswithamal622]

ح

[@geographytv9537]

​@@mr.tareksaad2146 الكود

[@محمدحسن-زقالى]

تمت المهمة بنجاح تحياتى

[@fatmashalaby575]

ممكن اللينك

[@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

[@ابراهيماحمدمحسن-ظ5ذ]

السلام عليكم جزيت خيراً اخي الكريم فقط اذا امكن ترسل رابط الكود عشان اجرب الطريقة .

[@ahmadabokamel9542]

+١

[@ahmadabokamel9542]

+١

[@bafouhocine4675]

بارك الله فيك روووووعة

[@mustaphatainite7899]

هذا عبت هل نجد حروف العربي في البرمجة كتبت تم فك الحماية
؟؟؟؟؟؟؟ظ

[@mr.tareksaad2146]

اخى الفاضل تم فك الحماية دى رساله توضع بين علامتى تنصيص ويمكن وضع اى رساله باى محتوى اما الكود الاصلى فهو المسئول عن فك الحماية وليس محتوى الرسالة .... شكرا على مرورك اخى الكريم

[@stepbystepcourses2290]

انا كنت داخله اكتب نفس الكلام

[@captenmohamed2394]

محتاج فك ملف الاكسل من الخارج بمعني
لو مضاف رقم سري من الملف الأصلي وليس ورقة الاكسل

[@Harraz1969]

الغي تفعيل الماكرو من الاكسيل من الخارج وتدخل على الملف عادي
جرب وشوف

[@mohamedsaid058]

النافذه اللي بتظهر بعد م تعمل alt+f11 مش ظاهره عندي

[@مدامسومهالغريانيالبروتين]

ممكن الكود لفك حماية ورقة عمل اكسل

[@dreams8687]

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

[@mohammedelsaadany3314]

سلام عليكم مستر طارق
من فضلك انا محتاج الكود لفك الملف لانه مش موجود في الفيديو فضلا وليس أمرا

[@dr.lailaahamed6392]

السلام عليكم ورحمه الله وبركاته
لو سمحت ممكن الكود لانى محتاجة ضرورى

[@mr.tareksaad2146]

دة رابط مباشر للملف على google Drive
drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J

[@ابومحمد-ع1س9ح]

شكرا ليك

[@kareemAAK]

من فظلك رابط لكود

[@walidss8343]

شكرا جزيلا

[@الحجهحسنا]

من فضلك ارسل ليا الكود و لك جزيل الشكر

[@fawazalhashemi9596]

طبقت نفس الطريقة ع اوفس 356 وافس 10 ماضبطت وتظهر رسالة خطأ

[@Mohamed_Raheel]

فين يا باشا الكود
جروب إيه إللي اشترك عليه علشان أخد كوود
Unlike

[@ahmedroma5681]

تمام

[@hossammostafa4064]

ممكن الكود لو سمحت

[@khdi2]

انا بحاول اعمل كدة ..بيطلب مني باسوورد في الفيجول بيسك

[@qualitysecret1960]

مشكور جد بس فين الكود

[@خديجةموزان]

شكرا جزيلا بس وين نسخ نص الكود ؟

[@shenoudaibrahim8545]

لو انا عامل حماية علي صفحة الاكواد ونسيتها اعمل ايه

[@queenforever8888]

فين الكود ؟ حضرتك لم تنزله اسفل الفديو

[@حسينعلاءخليل-ز6غ]

بلا زحمة الرابط لفك الحماية ان وجد

[@osamazaki6371]

ياريت لو ممكن الكود لو سمحت

[@khalidalmulla1481]

مافي كود بالوصف ؟؟!!

[@إبراهيمالقزاز-ك1ث]

شكراً جزيلاً لحضرتك أين الكود يافندم

[@jabbaraziz8147]

ممكن الكود أو كيفية الحصول عليها مع الشكر

[@adengad]

طيب الان كيف استطيع ان اقفل الملف

[@محمدعلي-ز9ط6ض]

السلام عايكم
ممكن الكود لو سمحت
وجزاكم الله خيرا

[@حبيبىيارسولالله-ت4ه]

فين الكود اللى هننسخة

[@mohamedyounies6476]

مش واضحه عندي المعاده الخاصه بحل الحمايه للاكسيل

[@maherhashem6]

فين الكود مش موجود

[@ضيالقناديل]

فين الكود

[@AhmedAdel-fu3qv]

فين الكود يامحترم

[@اسيرالشوق-ط3ن]

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

[@zizo7x839]

الكود ياعم فين

[@MimiMima-n6x]

😢

[@اسماعيلمحمدالضبيبي]

وين الكود ليس،في صندوق الوصف

[@بنأعمرأمين]

بارك الله فيك الشكر موصول الكود يعمل شكرا جزاك الله عني خير جزاء

[@hichemilyas2950]

اين كود فتح الورقة من فضلك

[@غروبغروب-ذ3ب]

لو سمحت كود لاكسل 2013

[@mr.tareksaad2146]

الكود بعمل مع 2010 وتم اغلاقه من 2013 كتحسين من مايكروسوفت لزيادة الامان

[@غروبغروب-ذ3ب]

@@mr.tareksaad2146 بارك الله فيك وجزاك الله خيراً وزادك الله من علمه

[@ahmedaboaseil5268]

ممكن الكود

[@medoabdo760]

جيد

[@stylefurniture6086]

فين الكود ياهندسة

[@deiaaali9902]

كود فك الحمايه في الاكسل

[@mahmoud20246]

فين تاكود

[@bilalsaadia5659]

انا من الجزائر مالقيتش الكود

[@adopaaman3818]

فين الكود يا كبير

[@نتاوى-ظ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

[@نتاوى-ظ6ز]

شكرا لحضرتك بس والله انا نسيت كنت بسال على ايه

[@naouri_abdelbaki]

مشكور أين الكود

[@ahmedgalal418]

بعمل الخطوات لكن بطلع رساله ان فى خطأ

[@ahmedmousa1983]

فين الكود لا اجده

[@user-ow7sz6ms2h]

هوا فين الكود

[@mr.tareksaad2146]

drive.google.com/file/d/1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J/view

[@elhoussineamkrane7311]

ou li maykhadamch lih pc arabe

[@محمدمنصور-ب5غ]

هو فين الرابط !!!!!؟

[@rafikfoodway5743]

هو فين

[@menasalib8529]

فين الكود حضرتك

[@حيدرعلي-ص7ز2غ]

السلام عليكم استاد طارق على هذا الموضوع وكيف يتم صنع الكود

[@mr.tareksaad2146]

وعليكم السلام اخى العزيز ...... لصناعة اى كود لابد من تعلم لغة برمجة ولغة البرمجة المستخدمة هنا هى لغة الفيجوال بيسك ... ويكفيك ان تقوم بنسخ الكود المصاحب للفيديو فى المكان المحدد لكى تعمل طريقة كسر الحماية

[@user-ti9ir1cp8z]

@@mr.tareksaad2146 وين الكود يا استاذ

[@عبداللهآلجارالله-و3خ]

حاولت بنفس الشرح ولكن ما ضبط معي فلطفاً احتاج دعمك استاذنا

[@gamalshahen3369]

فين الكود ده ما فيش حاجة مصاحبة للفيديو

[@mr.tareksaad2146]

ودة رابط مباشر للملف على google Drive
drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J

[@كاملالعقيلي-ك7س]

وين الكود

[@mohammed8881]

اين الكود

[@rafikfoodway5743]

مفيش اكواد

[@yazeedalsharif2277]

وين الكود ليش مايظهر لي.؟؟؟

[@muhamedabd-elfattah761]

الكود مش شغال بضغط عليه بيحولني لصفحه فيس بوك

[@mr.tareksaad2146]

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

[@muhamedabd-elfattah761]

لللاسف ده رابط هاكينج وليس جروب

[@mr.tareksaad2146]

حضرتك لا اضع روابط هاكينج على قناتى .... ويمكنك البحث على الفيس بوك على جروب باسم IBI Students (Mr.Tarek Saad ستجد انه نفس الرابط وستجد بداخلة الكود

[@mr.tareksaad2146]

ودة رابط مباشر للملف على google Drive
drive.google.com/open?id=1D8dxLi7eTu1cTl3azGrHT7wIqyJpwN4J

[@mrmovan.diezel8765]

@@mr.tareksaad2146 ده صورة

[@HANIDARWISH-p7p]

فين الكود ؟؟؟؟

[@MuhammedSalihh]

طيب اين الكود

[@ahmadabokamel9542]

الكود لو سمحت

[@faribahosseini8227]

شكرا وانا زبط معي

[@hocineamel5234]

وين كود

[@صالحمحمود-ك9غ]

اين الكود؟

[@atefibrahim7756]

فين الكود حضرتك ؟

[@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

[@wessamfaloum4348]

رابط الكود رجاء

[@tvmoh1076]

وين الكود ؟

[@mohamedkara9957]

أين هو الكود ؟؟؟؟

[@sabrinmhmed5509]

تعطى رسالة خطا

[@zeyadwaleed8470]

أين لكود

[@مدرسةدسوقالثانويةالزراعية]

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

[@nadilina]

اين ملف الكود

[@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]

اين الكود يا استاذ

[@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

[@ahmedelbaz4078]

مفيش حاجه اتفكت

[@mr.tareksaad2146]

يعمل الكود مع اكسيل 2010

[@hanyismail7713]

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]

ليس

[@AbdullahAmeenAlfedayli]

👍🏽

[@خالدخليفة-و9د]

ايبابايبالبا

[@muhammadhajyoussef413]

واحد كذاب وين لكود

[@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
ممكن تكون سبب؟؟

[@امينالادريسي-ك5ي]

ليش ما نقدر ننسخ الكود

[@Q_rt]

@@امينالادريسي-ك5ي كيف مافهمتك ؟

[@hanyadel6281]

لام عليكم استاذ جزاك الله كل خير
ممكن رابط تنزيل الكود
والله انا محتاجه
وشكرا

[@hishamyounis6071]

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]

@@hishamyounis6071 هو فين؟

[@ayagamal4985]

@@hishamyounis6071 ممكن تبعتهولي بعد اذنك

[@fethiammari]

من فظلك رابط لكود