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

[ام عبدالرحمن عوف]

السلام عليكم

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

لغرض اجراء بعض التغيرات ، هل يجوز ذلك أو هل مسموح ان اعمل تغييرات - الدخول الى البرنامج معلوم 123 - اريد الدخول الى محرر الاكواد

برنامج ادارة المبيعات النقدية وبالاقساط.rar

تم تعديل يوليو 10, 2017 بواسطه عبدالرحمن عوف

[بن علية حاجي]

السلام عليكم ورحمة الله

ما دام تقول البرنامج مجاني ففي العادة يوضع له 123 ككلمة سرية للدخول إلى البرنامج وحسب اعتقادي فإن محرر الأكواد غير محمي... والله أعلم

بن علية حاجي

[ام عبدالرحمن عوف]

اعتذر أستاذ

قصدت الغاء حماية الورقة

وليس محرر الاكواد - تمام محرر الاكواد غير محمي

 

تم تعديل يوليو 10, 2017 بواسطه عبدالرحمن عوف

[ابوعبدالواجد]

جرب هذا الكود
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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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