اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كسر حماية ملف او شيت او جزء من الشيت

السلام عليكم ورحمة الله وبركاته الاخوة المحترمين لو سمحتم ممكن ملف او طريقة لكسر حماية الملفات او الشيتات او جزء من الش ..



13-02-2018 10:56 صباحا
ashraf.hassane9
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2018
رقم العضوية : 3594
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 19-2-1970
الدعوات : 45
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 50
الاعجاب : 9
 offline 

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






13-02-2018 08:11 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 664
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 134
قوة السمعة : 2273
الاعجاب : 827
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت
فيه برامج كتير ولكن حفظا لحقوق الملكية الفكرية اعتقد صعب حد يساعد في هذا الامر ولكن 

اول مرة بدأ ابحث عن هذا الامر وجد احد واضع هذا الكود جربه كدا لو ظبط اوك مظبطش عليك وعلى الصول جوجول وابحث عليه ستجد الكثير 
Public Sub ExcelPasswordRemover()
Dim Mess As String, Header As String
Dim Credit As String
Dim RepBack As String, AllClear As String
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Application.ScreenUpdating = False
Header = "Excel Password Remover Alert"
Credit = vbNewLine & vbNewLine & "Learn Excel with:- EXCELBEE.COM"
RepBack = vbNewLine & vbNewLine & "Thank you for using Excel Bee Free Stuffs"
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
Mess = vbNewLine & "There were no passwords on sheets, or workbook structure or windows." & vbNewLine & Credit
MsgBox Mess, vbInformation, Header
Exit Sub
End If
Mess = "After pressing OK button this will take some time." & _
vbNewLine & "Hit OK and hold back while password(s) are removed from your sheet!" & vbNewLine & vbNewLine & _
Credit
MsgBox Mess, vbInformation, Header
If Not WinTag Then
Mess = "There was no protection to workbook structure " & _
"or windows." & vbNewLine & _
"Proceeding to unprotect sheets." & _
Credit
MsgBox Mess, vbInformation, Header
Else
On Error Resume Next
Do
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = "You had a Worksheet Structure or " & vbNewLine & _
Credit
MsgBox Mess, vbInformation, Header
Exit Do
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
Mess = "Only structure / windows protected with " & vbNewLine & _
"the password that was just found." & vbNewLine & _
AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag Then
Mess = AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = "You had a Worksheet password set now removed." & _
Credit
MsgBox Mess, vbInformation, Header
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
Mess = AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
End Sub


ضع الكود بمديول وشغله 

أثارت هذه المشاركة إعجاب: mohammed gurtuby،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


13-02-2018 09:41 مساء
مشاهدة مشاركة منفردة [2]
خالد الشاعر
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 47
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 78
الاعجاب : 26
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت
سؤال لو الملف لا يفتح من غير كلمة سر

هل ممكن كسر هذه الكلمه

جزاكم الله كل خيراً





14-02-2018 08:10 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 811
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5665
الاعجاب : 1490
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت
اذا كان الملف يخصك تستطيع ارساله لنا ونحاول لك في فكه بعد التأكد من انه خاص بك
غير ذلك لا نقدم موضوعات عن الاختراق او فك الحماية لانها تخالف سياسة وقوانين المنتدى

تحياتي

أثارت هذه المشاركة إعجاب: abdulwahed catran، ashraf.hassane9، mohammed gurtuby، الصقر، محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020



14-02-2018 09:58 صباحا
مشاهدة مشاركة منفردة [4]
ashraf.hassane9
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2018
رقم العضوية : 3594
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 19-2-1970
الدعوات : 45
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 50
الاعجاب : 9
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت
شكرا للسادة المحترمين على الرد 





14-02-2018 02:44 مساء
مشاهدة مشاركة منفردة [5]
mohammed gurtuby
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-01-2018
رقم العضوية : 3536
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
الدعوات : 3
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 68
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت
اخى الكريم
ممكن ترسل الملف الذى يخصك للاخوة الاساتذة المحترفين





14-02-2018 02:49 مساء
مشاهدة مشاركة منفردة [6]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1371
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 344
قوة السمعة : 10361
الاعجاب : 2600
 offline 
look/images/icons/i1.gif كسر حماية ملف او شيت او جزء من الشيت

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



أثارت هذه المشاركة إعجاب: محمود ابو الدهب،






الكلمات الدلالية
حماية ، الشيت ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 03:39 صباحا

أعلن هنا
أعلن هنا
أعلن هنا