ابو تميم

تحية طيبة في المرفق المطلوب في الفورم : عند الضغط على زر ( عرض الملفات المتوفرة ) يتم عرض جميع أسماء الملفات الموجودة داخل المجلد data الموجود مع الملف الرئيسي وعند الضغط على ChecBox لملف معين يظهر لدينا في المربع أعلاه ( إجمالي حجم الملفات المحددة ) حجم الملف المحدد وعند تحديد ChecBox لملف آخر يتم جمع حجم الملفين معا في مربع ( إجمالي حجم الملفات المحددة ) وهكذا مع باقي الملفات وعند وصول ( إجمالي حجم الملفات المحددة ) إلى 2MB يتم إيقاف التحديد أي أنه لا يمكننا تحديد ملف آخر وبعدها نضغط على زر ترحيل الملفات المحددة وهذا الزر يعمل على وضع ملاحظة بجانب اسم المف ( تم الترحيل ) وبعد ذلك يمكننا العودة وتحديد ملفات أخرى كما سبق وهكذا .. جزاكم الله خيرا عرض الملفات وأحجامها.rar

أستاذنا القدير أبو نصار جزاك الله خيرا وسلم يداك هذا هو المطلوب ... لا حرمنا الله منك جزاك الله خيرا

up

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

أخي زوهير أعلم أني أزعجتك ولكني جربت هذا التعديل سابقا ولم يفلح معي لأن الكود هنا يبدأ بإغلاق الملف الفرعي ثم الانتقال إلى الملف الرئيس ثم فتح الفورم وهنا يتم تنفيذ الكود كما يلي * إغلاق الملف الفرعي ثم الانتقال إلى الملف الرئيسي فقط ولكنه لا يقوم بفتح الفورم وذلك لأنه بمجرد تنفيذ السطر الأول من الكود وهو إغلاق الملف الفرعي ينتهي الكود ولا يتم تنفيذ باقي الكود لأن الملف تم إغلاقه والدليل على ذلك أنه إذا كان لدينا أكثر من ملف اكسل مفتوح فإنه عند اغلاق الملف الفرعي لا يتم الانتقال إلى الملف الرئيسي وإنما يتم الانتقال إلى آخر ملف اكسل تم فتحه بعد الملف الرئيسي وبالتالي يتم إنهاء الكود بمجرد إغلاق الملف الفرعي

up

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

up

أخي الكريم نصيحتي لك ان ترفق مثال أو ملف يوضح المشكلة حتى يتسنى للأساتذة مساعدتك

تحية طيبة وبعد في المرفقات ملفين اكسل أحدهما اسمه رئيسي والآخر اسمه فرعي عندما يتم فتح الملف الرئيسي يفتح لدينا فورم وهذا الفورم يحتوي على زر يتم من خلاله فتح الملف الفرعي المطلوب هو :- 1. عندما أضغط على زر فتح الملف الفرعي من الفورم // أريد أن يختفي الفورم أو يتم تصغيره لا يهم // المهم في الموضوع هو أن يظهر لدي الملف الفرعي بعد الضغط على الزر الخاص به من الفورم ويتم إخفاء الفورم بحيث يمكنني العمل على الملف الفرعي بشكل مباشر 2. والأهم من ذلك بعد الانتهاء من الملف الفرعي وعندما أقوم بإغلاقه سواء من زر X او من خلال زر إغلاق يتم وضعه في الملف الفرعي يجب هنا إغلاق الملف الفرعي وفتح الفورم مرة أخرى ( طبعا الفورم كما أوضحنا سابقا موجود في الملف الرئيسي ) وهنا لا يجب إظهار الملف الرئيسي وإنما إظهار الفورم مباشرة أي أنني هنا سأعمل على إخفاء الملف الرئيسي عندما يكون الفورم قيد التشغيل او فعال أرجو ان يكون السؤال واضح لكم جزيل الشكر والاحترام العمل على ملف الاكسل من خلال الفورم.rar

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

أخي أبو حنين جزاك الله خيرا الملف عندي أيضا يعطي خطأ بنفس الخطأ الوارد في المشاركة رقم 3 أنا أعمل على أوفيس 2007 وأوفيس 2010 وكل منها على جهاز مختلف والخطأ نفسه ربما ملفك يعمل على اوفيس 2003 فقط نرجو التكرم التأكد من الكود وجزاكم الله خيرا

أستاذنا القدير محمد طاهر جزاكم الله خيرا على هذا الموضوع وعلى هذه المواقع الاكثر من ممتازة

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

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

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

إنا لله وإنا إليه راجعون اللهم ارحمها واغفر لها اللهم نقها من خطاياها كما بنقى الثوب الأبيض من الدنس

تحية طيبة أرجو متابعة السؤال من المشاركة رقم 8 شكرا للجميع

up

up

الأخت الفاضلة سالي منتدى اوفيسنا من أروع وأرقى المنتديات في التعامل بين اعضاءه ومشرفيه إضافة إلى أن هذا المنتدى فيه من العباقرة والعلماء ما يكفي لإجابة أي سؤال وأنا من خلال تعاملي المباشر مع هذا المنتدى باستمرار فقد وجدت انه لا يوجد أي عالم أو صاحب خبرة يبخل على أي عضو بأية معلومة أو شرح معلومة او كود مهما صغر أو كبر، وأنا شخصيا وبشكل غير مباشر وضعت ملفا يحتوي على رقم هاتفي وهذا الملف يحتوي على برنامج يخصني واحتاج فيه إلى بعض الأمور البرمجية البسيطة فتفاجات برقم دولي على هاتفي يتصل بي وإذا هو أحد عباقرة هذا المنتدى العظيم يتصل بي من هاتفه الشخصي وعلى حسابه الشخصي فقد ليخبرني ما هو تصحيح الخطأ في الكود الخاص بي وله جزيل الشكر والتقدير والاحترام فإذا كان عباقرة هذا المنتدى يتصلون بنا هاتفيا من دولة غلى أخرى ليعلمونا العلم الذي يمتلكونه بفضل الله فما بالك بإجابة سؤال على المنتدى يحتاج إلى توضيح كتابي لا يكلف شيئا إلى جهد بسيط جدا ولكن أختي الكريمة دعيني أوضح لك أمرا بسيطا حتى تتم إجابة سؤالك على المنتدى يجب أن يكون هذا السؤال : 1. عنوانه واضح ويعبر عن مضمونه حتى يدخله المشرفون والعلماء 2. يجب أن يكون شرح السؤال واضحا ومدعما بمثال يوضح المقصود . 3. أن يتم شرح جميع المطلوب من السؤال وعدم إدراج سؤال معين وبعد اجابته يتم إدراج سؤال آخر متداخل ضمن السؤال الأول فهذا هنا يجعل من السؤال تشعبات كثيرة يصعب تحليلها وفي النهاية جميع العباقرة في هذا المنتدى لهم كل الشكر والتقدير والاحترام على جهودهم معنا ونحن بدورنا يجب ان نعذرهم في تأخر إجابات الاسئلة الخاصة بنا لأن أي شخص يدخل المنتدى يدخله على حساب وقته وجهده وإذا كان لديه أعمال أو أشغال خاصة فيجب علينا أن نعذرهم وندعوا لهم بالتوفيق وراحة البال إلى أن يتمكنوا من دخول المنتدى وإجابة أسئلتنا وفي الختام أرجو أن تعذري إطالتي في الكلام وتلتمسي عذرا لعباقرتنا في هذا المنتدى الحبيب والغالي على قلوبنا جميعا لك كل الاحترام والتقدير

up

شكرا أخي باسم على الملف ولكن لدي تعليق بسيط على ذلك أولا : أنت وضعت كلمة مرور على الملف لذلك لا يمكننا رؤية الكود وتعديله إلا بعد فك حماية الملف ومن لا يملك طريقة لفك الحماية فإنة لا يستفيد من الكود وهذا المنتدى يعمل تحت بيئة التعاون ونشر العلم ثانيا : الملف يقوم بتغيير دقة عرض الشاشة نفسها وهذا مغاير للمطلوب في السؤال فسؤالي هو تغيير دقة عرض الملف ليتناسب من دقة عرض الشاشة أي طلبي بالعكس وهو توافق الملف مع إعدادات الجهاز وليس توافق الجهاز مع ضبط الملف شكرا على تعاونك وجزاكم الله خيرا ولتعم الفائدة الكود الذي قدمه الأخ باسم هو Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Public Const CCDEVICENAME = 32 Public Const CCFORMNAME = 32 Public Const DM_BITSPERPEL = &H40000 Public Const DM_PELSWIDTH = &H80000 Public Const DM_PELSHEIGHT = &H100000 Public Const CDS_UPDATEREGISTRY = &H1 Public Const CDS_TEST = &H4 Public Const DISP_CHANGE_SUCCESSFUL = 0 Public Const DISP_CHANGE_RESTART = 1 Type typDevMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Sub aaa() Dim typDevM As typDevMODE Dim lngResult As Long Dim intAns As Integer lngResult = EnumDisplaySettings(0, 0, typDevM) With typDevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = 1366 'ÇÎÊÑ ÇáÚÑÖ (640,800,1024, etc) .dmPelsHeight = 768 'ÇÎÊÑ ÇáØæá (480,600,768, etc) End With lngResult = ChangeDisplaySettings(typDevM, CDS_TEST) Select Case lngResult Case DISP_CHANGE_RESTART intAns = MsgBox("You must restart your computer to apply these changes." & _ vbCrLf & vbCrLf & "Do you want to restart now?", _ vbYesNo + vbSystemModal, "Screen Resolution") If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0) Case DISP_CHANGE_SUCCESSFUL Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY) Case Else MsgBox "Mode not supported", vbSystemModal, "Error" End Select End Sub Sub bbb() Dim typDevM As typDevMODE Dim lngResult As Long Dim intAns As Integer lngResult = EnumDisplaySettings(0, 0, typDevM) With typDevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = 1024 'ÇÎÊÑ ÇáÚÑÖ (640,800,1024, etc) .dmPelsHeight = 768 'ÇÎÊÑ ÇáØæá (480,600,768, etc) End With lngResult = ChangeDisplaySettings(typDevM, CDS_TEST) Select Case lngResult Case DISP_CHANGE_RESTART intAns = MsgBox("You must restart your computer to apply these changes." & _ vbCrLf & vbCrLf & "Do you want to restart now?", _ vbYesNo + vbSystemModal, "Screen Resolution") If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0) Case DISP_CHANGE_SUCCESSFUL Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY) Case Else MsgBox "Mode not supported", vbSystemModal, "Error" End Select End Sub

up هل انتهى السؤال ؟؟؟؟ يجب أن يكون هناك حل لحالة عدم إمكانية حماية ملف الاكسل أنا أقترح أن يتم وضع أكثر من حماية على ملف الاكسل ( أي مثل Firewall ) بمعنى أنه إذا تم اختراق جدار الحماية الأول يكون هناك جدار حماية آخر بحيث أنه إذا حاول شخص اختراق ملفاتنا يكون لديه أكثر من جدار حماية على الملف وإذا اخترق جدار الحماية الأول يبقى الملف محمي بجدار حماية آخر وآخر شكرا

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