حسونة حسين

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

نورت المنتدى استاذ محمدى عبدالسميع

وعليكم السلام ورحمة الله وبركاته اخى الكود الذي وضعته لك يقوم ب ١- اخغاء جميع الصفحات من الشيت ٢-اظهار الصفحه التى تكون بأسم المستخدم يعني مستخدم knt يفتح صفحه knt 3-اذا كان اسم المستخدم ليس له صفحه يتم اظهار صفحه الرقم السري فقط انت عامل صفحه اسمها control فيها الباسوورد وفيها اعمده فيها yes و No عندما تضع yes أمام اسم مستخدم سوف يفتح صفحه اخري غير الصفحه التي تسمي باسمه عندما تضع no لا يتم فتح غير صفحته الخاصه فقط

لا ترفع ملف اخر قم بتنزيل الملف الذي تم ارفاقه في مشاركتى وشوف النتائج

الملف المرفق لي المشاركه يحل المشكله من الواضح انك لم تتطلع عليه

الصفحه المسماه Control مكتوب فيها اسماء الدخول والأرقام السريه ومكتوب فيها أيضا صلاحيات المستخدمين المشكله عندك ليست في الكود المشكله في الصلاحيات

شغل الملف الذي ارفقته لك وافني بالنتيجه هل يوجد خطأ

وعليكم السلام ورحمه الله وبركاته اخى @sief122 لابد من وجود فولدر بهذا الاسم \DAHY\ بجوار ملفك هذا ولابد ان يكون بهذا الفولدر ايضا صورة تسمى M.JPG وهذا ملف للتاكيد لم يتم تغيير اي كود في الملف KG V2B_Dahy.zip

وعليكم السلام ورحمه الله وبركاته تفضل اخي Prodaction2.xlsm

جرب هذا اخي متابعة7.xlsm

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل

وعليكم السلام ورحمة الله وبركاته اجعل المعادله كالتالي =IF(C5="";"";+DAYS360(C5;E5))

المشكله عندك في تنسيق الاعمده الخاصه بالتواريخ موجوده mm/dd/yyyy اجعلها التنسيق الذي تريد عن طريق Format cells dd/mm/yyyy

اخي @محمود الطحاوي وارد هيئه ١ أبريل ولا ٤ يناير بدايه النشاط تاريخ ٥ أبريل ولا ٤ مايو وارد متابعه ٦ مايو ولا ٥ يونيو

اخي @محمود الطحاوي ارفق صورة للفورم بعد أن تقوم بكتابه جميع بيانات الفورم

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل المصنف1.xlsm

الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمه الله وبركاته For Each w In ThisWorkbook.Worksheets If w.Name <> "ورقة7" And w.Name <> "ورقة8" Then co1.AddItem w.Name End If Next w

وعليكم السلام ورحمة الله وبركاته عليك بفك دمج الخلايا قم بارفاق ملف مبسط لكي يتم العمل عليه مع تغيير البيانات الخاصه باي بيانات غير حقيقيه

تفضل ملف متابعة.xlsm

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل ضع هذا الكود في حدث الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Row > 3 Then If X.Column = 2 Then If X.Value = "ok" Then X.Offset(0, -1).Value = Date ElseIf X.Column = 3 Then If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X End If End If Next X Application.EnableEvents = True End Sub

الشكر لله اخى

السلام عليكم ورحمه الله وبركاته تفضل أفريل.xlsx

وعليكم السلام ورحمه الله وبركاته تفضل 2017-Final.xlsb