mokent77

الاخ الكريم ابحث عن هذا البرنامج Elcomsoft Password Recovery وقد جربت اكثر من برنامج لفك الباسورد من الاوفيس عامة ولكن هذا البرنامج الافضل وقد جربته فلو وجدته في كميوتري لرفعته على الموقع ليستفيد من الاخرين

تحياتي ... اخ هنداوي عندالانتقال للرئيسية تظهر الرسالة الاتية(compile error cantfind project library)علما انني اعمل ع الاوفيس 2003 Sub MIANSHEETS() Sheets("purchase").Cells(2, 8).ClearContents Sheets("purchase").Cells(2, 11).ClearContents Sheets("purchase").Cells(2, 9).ClearContents For u = 2 To 21 For t = 1 To 3 Sheets("purchase").Cells(u, t).ClearContents Next Next Sheets("MIAN").Select End Sub

السلام عليكم ورحمة الله وبركاته،، اخي هنداوي الخيارات التي اشرت لها عندي معدة سلفا رسالة الخطا عند فتح البرنامج في هذا السطر بالتحديد عند كلمة format GetNo = format(TheNo, "000000000000.00")

اخوي مشكور بس مازالت رسايل الخطا كثيرة0 GetNo = Format(TheNo, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then myno = Mid$(GetNo, I + 1, 3) Else myno = "0" + Mid$(GetNo, I + 2, 2)عند فتح النموذج Sub hide() Sheets("data").Cells(16, 1) = 0 Dim cb As CommandBar Dim comd() As String With Application .DisplayFormulaBar = False .DisplayStatusBar = False For Each cb In .CommandBars If cb.Visible = True Then Sheets("data").Cells(16, 1) = Sheets("data").Cells(16, 1) + 1 End If Next End With ''''''''''''''''''''''''''''''''''' tt = Sheets("data").Cells(16, 1) With Application gg = 16 For Each cb In .CommandBars If cb.Visible = True Then Sheets("data").Cells(gg, 4) = cb.Name gg = gg + 1 End If عند الخروج من البرنامج