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

[الموسى1423]

______.rarأنا عضو جديد وأعجبتي هذا المنتدى جدا وأعجبتي الموضوعات التي تطرح وجدية الأخوة الأعضاء وحبهم لعمل الخير

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

[الموسى1423]

شكرا لكم جميعا أعضاء المنتدى الرائع

وحبذا لو أجد تجاوب منكم يا إخوة يا كرام

فليس من المعقول يتحمل الملف ست مرات والدخول سبع عشرة مرة ولا من مجيب أو يساعدنا

مع أن هذه المشاركة أول مشاركة وأول طلب

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



جرب الملف المرفق



السلام عليكم

Chse_01.rar

[الموسى1423]

الأخ هادي سالم

أنا عاجز عن شكرك

نفع الله بك وجزاك خيرا

عمل الملف معي بشكل رائع وأشكرك على جهدك

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

ولو ثقلنا عليك ممكن تعمل فيه تحسينات بما تراه ولك جزيل الشكر أولا وأخرا

تم تعديل فبراير 26, 2007 بواسطه الموسى1423

[الموسى1423]

مع شكر وتقديري للأخ هادي سالم خاصة , وجميع أعضاء المنتدى

لازلت في الانتظار

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

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

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

تستطيع حمايه الاوراق من ادوات - حمايه - حمايه الورقه
فك حمايه الملف ثم أعد أرفاقه

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

السلام عليكم

تم تعديل مارس 1, 2007 بواسطه هادى سالم

[الموسى1423]

الأخ هادي سالم

رفع الله قدرك وأعلى منزلتك

أشكرك جزيل الشكر على اهتمامك وأسأل الله أن يجعل ذلك في ميزان حسناتك

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

ألغيت الحماية وأي ورقه تجدها محمية فهي بدون رقم سري

وفقك الله لكل خير ونفع بك

______.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

هذا الكود يقوم بأخفاء جميع الأوراق عند فتح الملف فيما عدا الورقه الرئيسيه و يجب أن تكون أول و رقه فى ترتيب الاوراق

و يخفى الوصول الى أوراق العمل باسفل الشاشه

Sub Auto_Open()
    Sheets(1).Select
    Application.ActiveWindow.DisplayWorkbookTabs = False
    Dim i  As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = False
    Next
End Sub

وهذا الكود لاظهار الوصول الى أوراق العمل باسفل الشاشه عند أغلاق الملف

Sub Auto_Colse()
    Application.ActiveWindow.DisplayWorkbookTabs = True
End Sub

و هذا كود الورقه الرئيسيه

 Sub Main()
    Sheets("الرئيسية").Select
    Dim i  As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = False
    Next
 End Sub

و هذا كود باقى الاوراق مع تغيير اسم الورقه

Sub File1()
    Sheets("2ط1").Visible = True
    Sheets("2ط1").Select
End Sub

السلام عليكم

[الموسى1423]

سلمت وبارك الله فيك

وجزاك عنا خيرا

ولا عدمنا وجودك