Ali Mohamed Ali

تفضل استاذى الكريم الملف غير محمى مراقبة الاقساط.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

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

تفضل لك ما طلبت وهذه هى الواجهة اسم المستخدم : ريتاج كلمة المرور : 123 بارك الله فيك التعديل الخامس (2) (2).xlsm

وعليكم السلام اهلا بك اخى الكريم أحمد فى المنتدى-كان عليك استخدام خاصية البحث فى المنتدى فهناك موضوعات مشابهة لموضوعك ومنها : https://www.officena.net/ib/topic/51238-ادخال-بيانات-في-ورقة-اكسل-من-اكثر-من-شخص-في-نفس-الوقت/ https://www.officena.net/ib/topic/46928-هل-ممكن-رفع-ملف-اكسيل-على-الانترنت-والتعامل-معه/?page=2 كما ان هناك عدة فيديوهات لهذا ومنها : https://www.youtube.com/watch?v=73_YJEg3FtU https://www.youtube.com/watch?v=0ZnnPiW25GQ https://www.youtube.com/watch?v=rVse23rIS4A وهناك ايضا مواقع خارجية تناولت هذه الجزئية من الموضوعات ومنها : http://excel-egy.com/forum/t49 https://www.techonthenet.com/excel/questions/shared.php https://www.ablebits.com/office-addins-blog/2017/08/02/excel-shared-workbook-share-file-multiple-users/ اتمنى ان تكون مفيدة لك بارك الله فيك

بارك الله فيكم وفى مجهوداتكم وحلول ممتازة جزاكم الله كل خير

تفضل لك ما طلبت اسم المستخدم : gasio كلمة المرور :123 زيوت جدول السيارات .xlsm

وعليكم السلام -تفضل اخى الكريم ترحيل.xlsm

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

تفضل بعد اذن الأستاذ أحمد تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

وعليكم السلام تفضل Report.xlsm

الف ميروك استاذ ابو ياسين-دائما الى الأمام ومن تفوق الى رقى بالتأكيد ترقية مستحقة ومجهود رائع ونشاط ملحوظ فى المنتدى ودائما تسعى الى مساعدة الإخوة بارك الله فيك وجزاك الله كل خير وجعل الله جميع اعمالك فى ميزان حسناتك

ليه بتكرر هذه الجملة في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون استاذى العزيز اذا كنت تريد الحل بجد فموضوعك سهل جدا ولكن انت غامض فى التوضيح اريد عندما تقوم بالتوضيح لا تقوم بتغيير كلامك فى كل مشاركة اريدك عند الشرح مفترض ان تقول هكذا عشان نقفل الموضوع ده وننهيه لأنه كده زاد عن الحد المبلغ التوزيع الرسوم الإستقطاع اكتب فقط فى هذا العمود الأرقام المطلوب تغيير لون الصف عند ادخالها اكتب فقط فى هذا العمود الأرقام المطلوب تغيير لون الصف عند ادخالها اكتب فقط فى هذا العمود الأرقام المطلوب تغيير لون الصف عند ادخالها اكتب فقط فى هذا العمود الأرقام المطلوب تغيير لون الصف عند ادخالها

انت ليه كل شويه بتغيير الشروط اللى انت عايزها قبل كده طلبت هذا وتم عملها ومش عارف انت عايز ايه تانى انا عايز اذا دخلت الرقم 1316 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون انا عايز اذا دخلت الرقم 1215 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون انا عايز اذا دخلت الرقم 1216 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون وهكذا في جميع الصفوف هنا ادخل 265 يغير اللون غير كدا لا يغير نفس الشي هنا 250 يغير لون المصروف يغير لون عند كتابة 8 أو 16 ودلوقتى بتغيير ممكن تشتغل على اخر ملف ارسلته اليك وتتبع الخطوات وتقم بالتغيير كما تشاء جزاك الله كل خير

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

ما هو الخطأ الذى يواجهك ماذا تقصد ؟ حدد الخطأ فى الملف لو سمحت

اهلا بك اخى الكريم فى المنتدى عليك برفع ملف وشرح عليه بالتفصيل ما تريده

تفضل نفس الشكل على الإكسيل Book1.xlsx