اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Yasser Fathi Albanna

05 عضو ذهبي
  • Content Count

    1,257
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    2

Yasser Fathi Albanna last won the day on نوفمبر 12 2015

Yasser Fathi Albanna had the most liked content!

السمعه بالموقع

555 Excellent

عن العضو Yasser Fathi Albanna

  • الإسم الفعلي
    لا إله إلا أنت سبحانك إنى كنت من الظالمين
  • تاريخ الميلاد 25 أكت, 1981

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    General Sales Manager
  • بلد الإقامة
    Banha-Qaliubiya Governorate
  • الإهتمامات
    Excel - Excel VBA - PowerPoint - Word

اخر الزوار

2,955 زياره للملف الشخصي
  1. بارك الله فيك أخى الحبيب جعله الله فى ميزان حسناتك
  2. تفضل أخى نسخة شاملة ال 64 و 32 فرنسية https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/fr-fr/ProPlus2019Retail.img
  3. أ/ أحمد يوسف & أ / أحمد الطحان يرجى تجربة هذا الرابط عن تجربه https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/ar-sa/ProPlus2019Retail.img النسخة عربى
  4. أخي الفاضل أ / احمد يوسف قم بفك الضغط عن الملف عن طريق برنامج Winrar
  5. أ/ أحمد يوسف شكرا لزوق حضرتك جرب هذا الرابط https://ia802905.us.archive.org/24/items/MOfProPl201916.0.10325.20118FullX86/M_Of_Pro_Pl_2019_16.0.10325.20118_full_x86.zip
  6. تفضل أخى الفاضل أ / أحمد الطحان Microsoft Office Professional Plus 2019 Arabic 32bit http://f3.file-upload.com:182/d/rexnb3fhnlgpv7w7t22ikdqpy3k5axwapfqfjzyxpo6bdrejtahyuvox7xfdwm3mvf5cfhz6/ProPlus2019Retail_AR_sigma4pc.com.rar التفعيل C2R-R2V_5.7z
  7. شكرا جزيلا أ / على وكل سنة وحضرتك طيب بمناسبة المولد النبوى الشريف
  8. السلام عليكم ورحمة الله وبركاته السادة الأفاضل الأساتذه الأفاضل أحباء هذا الصرح العظيم أقدم لكم اليوم Microsoft Office Professional Plus 2019 أرجوا أن ينال إجابكم https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/en-us/ProPlus2019Retail.img
  9. السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد إخوانى وأخواتى وأساتذتى أعضاء المنتدى العظيم الذى تعلمت منه الكثير والكثير أقم لكم اليوم كود برمجى وهو عبارة عن كود يوضع داخل موديول لفك حماية بيانات محددة محمية داخل شيت إكسيل أرجوا أن ينال إعجابكم وشكرا 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
  10. السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد إخوانى وأخواتى وأساتذتى أعضاء المنتدى العظيم الذى تعلمت منه الكثير والكثير أقم لكم اليوم كود برمجى وهو عبارة عن كود يوضع داخل موديول لفك حماية بيانات محددة محمية داخل شيت إكسيل أرجوا أن ينال إعجابكم وشكرا 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
  11. سلمت يمينك وحفظك الله وزادك من علمه الكثير والكثير الأخ والأستاذ القدير / بن علية حاجي معادلة أكثر من رائعة تقبل تحياتى
×
×
  • اضف...