يوسف عطا

الف شكر لكما إخوانى الأفاضل جارى التجربة

عزيزى الغالى إتبع الآتى من داخل ملف الإيكسيل أدوات ماكرو الأمان ثم أضبطه على متوسط أو منخفض وأى خدمة

الف شكر يا أخ بوش

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

أعزائى الكرام الأخ أيسم بك دام فضله الأخ خبور دام فضله هل يمكن تطبيق الكود على أكثر من ورقة داخل نفس المصنف ؟؟ أرجو الطريقة شاكر الأفضال

تمت المراجعة الملف مظبوط والمعادلات تمام التمام خانة المجموع لا يمكن أن يكون فيها فراغ إطلاقاً 0+0+0=0 0+0+غ=0 غ+غ+غ=غ أى رقم +فراغ +غ=الرقم أعتقد أنك تقصد معادلة الأخ يوسف زيان مشكور على كل حال

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

الف شكر أستاذ أحمد ربنا يبارك فيك

للتوضيح أيها الأفاضل عملت برنامج كونترول الدور الثانى يحتوى على الصفحة الرئيسية ( بها زراير مربوطة بماكرو للصفحات الأخرى ) صفحة البيانات الخاصة بالمدرسة صفحة الرصد على السرى صفحة النتيجة وبها كل بيانات الطلاب وأرقام الجلوس والسرى والدرجات التى يتم رصدها فى صفحة الرصد على السرى وقمت بوضع باسوورد لهذه الصفحة فلا تظهر بياناتها إلا بالباسوورد صفحة الشهادات وقمت بإخفاء علامات تبويب الأوراق المشكلة أن الملف عندما يغلق يفتح على الشيت الذى كان مفتوحاً قبل اغلاق الملف آخر مرة فإذا تم إغلاق الملف على الشيت المحمى فعندما يفتحه شخص ما من جديد لا يجد أمامه إلا رسالة الباسوورد ولو لم يكتبها صحيحة لا يستطيع فتح أى شيت بالملف رغم أن باقى الشيتات ليست محمية بباسوورد ويتم فتحها عادى ولكنها بالطبع مخفية عن طريق إخفاء علامات تبويب الأوراق المطلوب أحد الحلين التاليين كما أتصور أولاً وضع زر فى الصفحة المحمية بباسوورد بحيث من لا يعرف الباسوورد يضغط عليه فيفتح له الصفحة الرئيسية ومنها يستطيع الذهاب لأى شيت يريد ثانيا كود يجعل الصفحة الرئيسية للملف دائماً ظاهرة دائماً حتى فى حالة إستخدام خاصية إخفاء علامات تبويب الأوراق من قائمة أدوات ثم خيارات ثم عرض هل هذا ممكن ؟؟ سواء الحل الأول أو الثانى أعتقد أن أحدهما يحل المشكلة شاكر لكم الأفضال يا مبدعى المنتدى الأفاضل بالطبع سأقوم برفع البرنامج فى موضوع مستقل بمجرد حل المشكلة

أريد ظهور رسالة ترحيبية عندما يتم فتح الملف بحيث يضغط المستخدم على كلمة أوكى أو دخول أو إنتر فيفتح الملف له الف شكر

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

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

الف شكر عزيزى الغالى أيسم بك بفضلك تم المطلوب والحمدلله شاكر جداً

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

الكود ده أنا جيبته من خبير المنتدى الأستاذ خبور خير وعملت زى ماحضرتك قولتلى لكن برضه مالقتش الكود إتنفذ ممكن بالتفصيل يا استاذى الغالى ؟؟ Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer If Sh.CodeName <> "ورقة1" Then Sh_Name = Sh.Name Else ورقة1.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets(Sh_Name).Select Exit Sub ElseIf XX <> "kh" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets(Sh_Name).Select Exit Sub Else ورقة1.Columns.Hidden = False End If End If On Error GoTo 0 End Su

الف الف الف شكر

يا جماعة عشر مشاركات كردود على المشاركة الأصلية فى الموضوع وكلها عن الأخطاء الإملائية وأخذ ورد تحياتى لكم جميعاً عفا الله عما سلف ليس هناك من هو معصوم من الخطأ زلة كبسة زر على الكى بورد أهون من زلة اللسان على العموم أطلب الصفح منكم جميعاً لو كلامى ضايق حد وربنا يوفق الجميع ولكن أين الرد على سؤال زميلنا العزيز فى أول مشاركة بالموضوع ؟

لو تكرمتم لى عدة ايام ابحث عن طريقة وضع الأكواد فى الملف ولم أتوصل لها أرجو المساعدة

تنسيق ورقة إخفاء تنسيق ورقة تحديد الورقة إظهار وأى خدمة

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

الأخ الكريم صاحب الموضوع يمكنك إستخدام موقعى لحفظ الملفات وهذا رابطه واضمن لك عدم حذفه لعدة سنوات youssef.4shared.com أرجو رفع الملف عليه لعلنا نستفيد من علمك وياليت يكون بدون حماية أو تذكر لنا رمز فك الحماية مشكووووووووووور

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

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

صراحة أخى العزيز الطريقة غير عملية قليلاً كما أن المراكز لابد أن تكون بالحروف وليس بالأرقام أيضاً هذه المعادلات لن تحل مشكلة وجود طالبين حاصلين على نفس المجموع أى ليس بها الثانى مكرر أو الخامس مكرر وهكذا على كل إرجو لك التوفيق فى مسعاك وتطوير عملك والله يوفقك ونستفيد بعلمك وأرجو أن ترى ما توصلت إليه فى هذا الرابط المشاركة الثالثة http://www.officena.net/ib/index.php?showtopic=28871 وأرجو التجربة والرد ويد الله مع الجماعة

أريد غلق ورقة عمل برقم سرى فلا تظهر بياناتها إلا بعد وضع الرقم السرى هل ممكن تساعدنى فى هذا الموضوع وأرجو الرد بالتفصيل لو تكرمت