الـعيدروس

السلام عليكم بالاضافه الى حل الاستاذ عادل اضافة بسيطه تلويين المكرر بالاحمر لكي يكون واضح مع خط ابيض عن طريق التنسيق الشرطي تفضلي اختي الفاضله مليون يوسف عبداللطيف - جدة.rar

بارك الله فيك استاذ عبدالله

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

اخي الفاضل فليكن رقم السري اللي هو حماية الورقة 1 حط هذا في اول الكود ActiveSheet.Unprotect ("1") وهذا في اخر الكود ActiveSheet.Protect PASSWORD:="1" الاليه الاول يقوم باالغاء الحماية عند بداية عمل الكود والثاني بعد اتمام عملية الطباعه يقوم باارجاع الحماية كما هيا Classeur1.a.rar

ارفق مثال لكي تتضح الصورة وانشاء الله تتم

الاخ الفاضل يحياوي تسلم على الاضافه الاخ الفاضل KHMB حل جميل بارك الله فيكم تحياتي

تفضل اخي انشاء الله يفي بالغرض Book.a.rar

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

السلام عليكم شكرا لك استاذ هانكوك الاستاذ القدير احمد حمود ابو عبدالله الحمد الله على السلامه اين الغيبات من طول الغيبات جاب الغنايم ومشكور جدا على المرفق

بخصوص مطلوب حسب الفرق بالايام تلقائي هل تريد الفرق بين عمود التاريخ وعمود تاريخ الاستلام اما ماذا

السلام عليكم الاخ هابيباس اطلع على المرفق تم عمل جزء من الطلب رقم 1 و 2 متـــــــــــــــابعة 23-6-2011.rar

اخي الفاضل اجهم جزاك الله خير على المجهود ولاكن لم يفي بالغرض مااريده بالتوضيح اكثر يكون ادخال الحضور والانصراف عن طريق فورم ويكون لكل موظف صفحة كحساب مع احتساب الغياب على 30 يوم وعند اضافة موظف يفتح صفحة وفيها جدول الحضور الخاص به من ضمن شروط الجدول تحديد عدد ساعات دوام الموظف

جزاك الله الف خير استاذ عادل ابداع وفقك الله

الاستاذ الفاضل هانكوك اشكرك على التوضيح انا ارفقت كود مشاركه رقم (48) في ملفي ودخلت على اليوزر وحاولت اظهر الاوراق المخفيه فطلعت جميع الاوراق المخفيه في القائمة وياليت لو انا سهيت عن شيئ ارجو توضيحه لاني عندما غيرت الصغيه للاخفاء ظهر تضليل اصفر على سطر serialtext.SetFocus علما ان هذا السطر تكست الباسورد

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

السلام عليكم هذا كود تشغيل اله الحاسبة للويندوز في الاكسل Sub اله_حاسبه() Dim calc calc = Shell("C:\windows\system32\calc.exe", 1) End Sub تحياتي

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

استاذيي الفاضل هانكوك الله يحيمك لاتنسى اذكار بعد الصلاة والمعوذات وقاية من العين والبنسبه للكود عملت عليه تعديل بسيط على الكود وزبط معاي عمل اخفاء تام لاوراق مستخدم اليوز لاجل عدم القدرة على اظهار الاوراق المخفيه Private Sub CommandButton1_Click() If ComboBox1.Text = "admin" And serialtext = shtMain.Range("az1") Then TextBox2 = Now() ff = 4 Do Until Sheet4.Cells(ff, "a").Value = "" ff = ff + 1 Loop Sheet4.Cells(ff, 1).Value = ComboBox1.Text Sheet4.Cells(ff, 2).Value = TextBox2.Text Me.Hide serialtext = "" TextBox2 = "" ComboBox1.SetFocus Worksheets(1).Visible = True Worksheets(2).Visible = True Worksheets(3).Visible = True Worksheets(4).Visible = True Worksheets(5).Visible = True Worksheets(6).Visible = True shtMain.Activate Else If ComboBox1.Text = "user" And serialtext = shtMain.Range("aY1") Then TextBox2 = Now() ff = 4 Do Until Sheet4.Cells(ff, "a").Value = "" ff = ff + 1 Loop Sheet4.Cells(ff, 1).Value = ComboBox1.Text Sheet4.Cells(ff, 2).Value = serialtext.Text Me.Hide TextBox1 = "" TextBox2 = "" ComboBox1.SetFocus '====================================== Sheet4.Visible = xlVeryHidden Sheet6.Visible = xlVeryHidden shtShhada.Visible = xlVeryHidden ورقة1.Visible = xlVeryHidden ورقة2.Visible = xlVeryHidden ورقة3.Visible = xlVeryHidden '====================================== shtMain.Activate Else serialtext = "" TextBox2 = "" Unload Me ErrorForm.Show serialtext = "" serialtext.SetFocus If ComboBox1.Text = "admin" And serialtext = shtMain.Range("az1") Then TextBox2 = Now() ff = 4 Do Until Sheet6.Cells(ff, "a").Value = "" ff = ff + 1 Loop Sheet6.Cells(ff, 1).Value = ComboBox1.Text Sheet6.Cells(ff, 2).Value = TextBox2.Text TextBox1 = "" TextBox2 = "" ComboBox1.SetFocus Else If ComboBox1.Text = "user" And serialtext = shtMain.Range("aY1") Then TextBox2 = Now() ff = 4 Do Until Sheet6.Cells(ff, "a").Value = "" ff = ff + 1 Loop Sheet6.Cells(ff, 1).Value = ComboBox1.Text Sheet6.Cells(ff, 2).Value = TextBox2.Text serialtext = "" TextBox2 = "" ComboBox1.SetFocus End If End If End If End If ActiveWorkbook.Save shtMain.Activate Application.Visible = True End Sub

الاستاذ هانكوك بيعمل بكفائة جزاك الله عنا كل خير خيرك كثير الله يحسن الامور لكي نرد لك بعض الجميل تحياتي

اجربه واوافيك النتيجه بارك الله فيك

الله يزيدك من فضله يكفي الاخلاق الطيبه وفقك الله

اهلا وسهلا بك الاخت الفاضلة اسيرة الغربة تفيدي وتستفدي انشاء الله تحياتي تلميذ المنتدى أبو نصار

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

الاستاذ الفاضل هانكوك افكار ملفك اذهلتني حاولت اعدل في ملفي على اخر تسجيل دخول وزبطت معي واما فكرة المستخدمين وصلت الى نقطة توقف ارجو الاطلاع على المرفق واين بيت الداء علما ان الباسورد احببت ان يكون في الصفحة فهو موجود في ورقة data خليه az1 وليس في قائمة الفيجول لاجل تغيره بسهوله بدون الوصول الى VBA ارجو الافاده EXCEL(a)DATA.rar

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