أبومروان

السلام عليكم ورحمه الله

الشكر لله وحده. الحمد لله الذي بنعمته تتم الصالحات، وبفضله تتنزل الخيرات والبركات وبتوفيقه تتحقق المقاصد والغايات

يمكنك استخدام الكود التالي Application.Visible = False 'إخفاء الاكسل Application.Visible = True 'إظهار الاكسل

للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين. يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى. جزاكم الله خيرا علي كل هذه الأعمال الرائعة @ابوحبيبه @Mohamed Hicham 🌹🌹

مستخدم 3 لديه فتح جميع الملفات Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else ElseIf username = "user3" And password = "password3" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet3").Visible = True Worksheets("Sheet1").Visible = True Worksheets("Sheet2").Activate MsgBox "Invalid username or password" End If End Sub

ممكن اضافه سطر ل اظهار ورقه العمل Worksheets("Sheet1").Visible = True معني هذا أظهر شيت 1 كرر هذا السطر مع تغير اسم الشيت زي ما تحب

الشكر لله وحده ارفق الملف وان شاء الله نجدو اين الخطا او الخلل حول استخدم معادله countifs لو بشرط لوالقيمه اكبر من 1 يكون في تعارض او استخدم اعمده مساعده للسهوله ومن ثم عدل برحتك واختصر المعادله

بعد السلام عليكم ورحمه الله وبركاته اتفضل لعله المطلوب تظليل الاعمدة.xls

بعد اذن الاستاذ @ابوحبيبه كود اخر يكون ب اسم مستخدم وكلمه مرور ل إثراء الموضوع Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else MsgBox "Invalid username or password" End If End Sub 7777 (2).xlsm

جزاك الله خيرا عمل اكثر من رائع

اتفضل ارجو ان يكون المطلوب منظومة-الشؤون-الادارية-لمكتب-البصمى.xlsm

ارفق الملف وفيه شرح المطلوب وان شاء الله تجد ما تريده

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

وعليكم السلام ورحمه الله كود اخفاء قاعده البيانات واظهار فورم1 Private Sub Workbook_Open() Worksheets("Dbsheet").Visible = False UserForm1.Show End Sub كود للترحيل Dim lr As Long lr = WorksheetFunction.CountA("DbSheet").Range("A:a") Sheets("DbSheet").Cells(lr + 1, 1).Value = TextBox1 Sheets("DbSheet").Cells(lr + 1, 2).Value = TextBox2 Sheets("DbSheet").Cells(lr + 1, 3).Value = TextBox13 Sheets("DbSheet").Cells(lr + 1, 4).Value = TextBox4 Sheets("DbSheet").Cells(lr + 1, 5).Value = TextBox5 Sheets("DbSheet").Cells(lr + 1, 6).Value = TextBox6

اتفضل حل اخر بدون عمود مساعد =IF(COUNTIFS($A$2:$A$18,A2,$I$2:$I$18,I2,$J$2:$J$18,J2)>1,"تعارض","") conflict.xls

السلام عليكم ورحمه الله وبركاته ايه رائيك تشوف الموضوع ادناه قد يفيدك قائمة منسدلة مفلترة2.rar

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب تم عمل عمود مساعد =IF(COUNTIF($L$2:$L$18,L2)>1,"تعارض","") conflict.xls

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

تثبيت.xlsx

وممكن ايضا الاستفاده بالمرفق عدل عليه حسب ما تريد المصنف.xlsx

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب علي قدر المستطاع جدول الاجتماعات.xlsx

اتفضل لعله المطلوب تثبيت.xlsx تثبيت.xlsx

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذاه ان شاءالله يكون المطلوب وتفي الغرض اختر ما تشاء =IFS(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)>1000,1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)<1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)) او =IF((C3-A6+D3)*11/100>1000, 1000, IF((C3-A6<0), D3*11%, (C3-A6+D3)*11/100)) او =MIN(MAX(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100),0),1000) =MIN(MAX(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100),0),1000) =IFS(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)>1000,1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)<1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100))

وعليكم السلام ورحمه الله جرب المرفق لعله المطلوب التجربة 1.xlsx

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