اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

للتوضيح أيها الأفاضل

عملت برنامج كونترول الدور الثانى يحتوى على

الصفحة الرئيسية ( بها زراير مربوطة بماكرو للصفحات الأخرى )

صفحة البيانات الخاصة بالمدرسة

صفحة الرصد على السرى

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

صفحة الشهادات

وقمت بإخفاء علامات تبويب الأوراق

المشكلة

أن الملف عندما يغلق يفتح على الشيت الذى كان مفتوحاً قبل اغلاق الملف آخر مرة

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

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

المطلوب

أحد الحلين التاليين كما أتصور

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

ثانيا كود يجعل الصفحة الرئيسية للملف دائماً ظاهرة دائماً

حتى فى حالة إستخدام خاصية إخفاء علامات تبويب الأوراق من قائمة أدوات ثم خيارات ثم عرض

هل هذا ممكن ؟؟

سواء الحل الأول أو الثانى أعتقد أن أحدهما يحل المشكلة

شاكر لكم الأفضال يا مبدعى المنتدى الأفاضل

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

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

السلام عليكم

Sub auto_open()
sheets(1).select
end sub

هذا الكود سوف يفتح الملف على اول ورقة موجودة في الملف ايا كان اسمها

قام بنشر

للأسف ولا أدرى ما السبب

قمت بنسخ الكود ولكنه لم يعمل معى

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

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

قام بنشر

الله ينور عليك أحمد بك يعقوب

أنا كونت بحط الكود فى الووركشيت علشان كدة مادانيش نتيجة

لكن لاحظت إن حضرتك حاطط الكود فى الموديول ولما عملت كدة تمت العملية بنجاح

عندى إستفسار لو تكرمت

هل يمكن وضع كود معين يقوم بعمل معين فى شيت معين ليقوم بنفس العمل فى شيت آخر داخل نفس المصنف ؟؟

وكيف يتم ذلك ؟؟

الف شكر مرة أخرى

قام بنشر

السلام عليكم

وهذه صيغة الكود الذي يعمل مع WORKBOOK

Private Sub Workbook_Open()
Sheets(1).Select
End Sub
اما الجزء الثاني لم افهمه ممكن توضح اكثر جزاك الله كل خير لماذا لأنه هنا يختلف صيغة الكود حسب ماتريد عملة بالضبض فـ يمكنك ان تشير الى مجال معين في ورقة اخرى باستخدام اسم الورقة و المجال
SHEETS(1).RANGE("A1:C11")

وغير ذلك طرق اخرى

يوجد شرح لذلك من طرف الأستاذ الفاضل القدير هادي سالم - راجع مشاركاته

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information