أرجوا المساعدة

[elsayed saad]

عندي شغلي القديم به شيتات كثيرة مقفولة ببس ورد ولا أتذكره الأن فأريد برنامج فك بس ورد إكسيل شغال وكويس وبرنامج شغال لتحويل ملف البي دي إف إلي إكسيل

فأرجوا المساعدة

[Ali Mohamed Ali]

أهلا بك اخ كريم فى المنتدى

بالنسبة لبرنامج فك الباسورد ابحث عن هذا البرنامج :Passware Kit Forensic 13.5

أما بالنسبة لتحويل ملفات PDF إلى إكسيل  وذلك بطريقة مباشرة عند الدخول على هذه المواقع وتتبع الخطوات:

https://convertio.co/ar/pdf-xlsx/
أو
https://smallpdf.com/ar/pdf-to-excel
أو
https://www.freepdfconvert.com/ar/pdf-excel
وهذا موقع بالعكس- بمعنى تحويل ملفات الإكسيل الى Pdf
https://www.ilovepdf.com/ar/excel_to_pdf
وهذا برنامج للتحويل من Pdf الى الإكسيل :
https://up.egyacc.com/do.php?id=463
ولكم جزيل الشكر

 

 

[elsayed saad]

ربنا يبارك في حضرتك جاري التنزيل والتجريب

[elsayed saad]

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

أمنت بالله وحده حدث خطا برنامج التحويل تعال الله

[Emad Sabry]

3 ساعات مضت, elsayed saad said:

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

أمنت بالله وحده حدث خطا برنامج التحويل تعال الله

  استخدم الكود التالى فى فيجوال بيسك بس تعمله لكل شيت لوحده . لو ظهرتلك رسالة فيها كذا رقم وحرف متكررين يبقى الباسورد اتفك وبعد ما تفك الباس روح file ثم save as واختار الحفظ فى شكل pdf 

واتمنى ان اى حد هيستخدمه لا يسئ استخدامه 

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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

 

تم تعديل سبتمبر 15, 2018 بواسطه Emad Sabry