Ali Mohamed Ali

أهلا بك اخى الكريم فى المنتدى كان عليك استخدام خاصية البحث فى المنتدى فهذا الموضوع تم مناقشته من قبل تفضل https://www.officena.net/ib/topic/80528-الرجاء-المساعدة-في-برنامج-البيع-بالتقسيط/?tab=comments#comment-514578

أحسنت بارك الله فيك وجزاك الله كل خير

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

تفضل لك ما طلبت 2قائمة منسدلة مطاطية.xlsm

أحسنت استاذى الكريم بارك الله فيك عمل رائع جزاك الله كل خير

تفضل لك ما طلبت قائمة منسدلة مطاطية.xlsm

وعليكم السلام يمكنك عمل هذا حتى بدون اكواد عليك بمشاهدة هذا الفيديو https://www.youtube.com/watch?time_continue=1&v=1xHS1snXRKs

بارك الله فيك استاذ ابراهيم وزادك الله من فضله

وعليكم السلام احسنت بارك الله فيك

لأ اخى الكريم ليس هذا المطلوب يجب عليك وضع بين الأقواس اسم جهازك انت فعلى سبيل المثال جهازى كالأتى مع اسم جهازى Select Case Environ("AliMohamed")

جرب هذا الملف بمجرد كتابة الحرف الأول والثانى مثلا ثم اضغط على انتر يتم كتابة الإسم كاملا Search.xlsm

وضح بالتفصيل لو سمحت على الملف لما تريده

استاذى الكريم المفروض تغيير اللى بين الأقواس فى هذا السطر من الكود الى اسم جهازك Select Case Environ("COMPUTERNAME")

ملف ممتاز احسنت استاذ سليم بارك الله فيك

وعليكم السلام تم عمل اللازم عليك اختيار الإسم فقط من القائمة المنسدلة والباقى سيأتى تلقائيا بالمعادلات Search.xlsx

وعليكم السلام بالتأكيد كالعادة استاذنا الكبير ابراهيم كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

تفضل استاذى الكريم الملف غير محمى مراقبة الاقساط.xlsx

السلام عليكم اولا عليك بإنشاء صفحة جديدة فى ملفك تحت اسم Welcome ثم بعد ذلك عليك بفتح موديول جديد ووضع فيه هذان الكودين : Sub CommitSuicide() With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثم بعد ذلك ضع هذان الكودين فى حدث ThisWorkBook وعليك بوضع اسم كمبيوترك داخل الأقواس اللى فى هذا السطر من الكود Select Case Environ("COMPUTERNAME") Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub وأخيراً وضع الكود التالى فى حدث الصفحة الجديدة Welcome Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

بارك الله فيك وجزاك الله كل خير

وعليكم السلام تفضل لك ما طلبت سداد المصروفات.xlsm

تفضل التعديل الخامس (2) (2) (1).xlsm

تفضل برفعه على موقع خارجى كهذا : https://www.mediafire.com/

اهلا بك اخى الكريم فى المنتدى تفضل هذان برنامجان مهمان بارك الله فيك ArabicBudgetPlanner.xls برنامج المصروفات الاصدار الثالث 2015.xlsm

تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل الملف بدون حماية FindAll.xlsm