كيفية الجمع بين عدة اكواد فى ملف واحد

[omarabdo80]

السلام عليكم و رحمة الله و بركاتة.

 

اريد ان استخدم بعض الاكواد المقدمة من الاستاذة الافاضل فى المنتدى

فهل استطيع ان اجمع بين اكثر من كود عند فتح ملف الاكسيل؟ كما هو موضح فيما يلى.

 

Private Sub Workbook_Open()

Application.ScreenUpdating = False

Sheet1.Range("a1").Value = 1

 Worksheets(1).ScrollArea = "a1"

Sheet2.Visible = True

Sheet2.Select

Application.ScreenUpdating = False

Sheet1.Select

Range("a1").Value = 1

End Sub

 

Private Sub Workbook_Open()

Application.EnableCancelKey = xlDisabled

Application.Visible = False

UserForm1.Show

Workbooks.Application.Visible = True

Sheet2.Select

End Sub

 

و لسيادتكم جزيل الشكر

 

 

[ياسر خليل أبو البراء]

أخي الحبيب يرجى توضيح المطلوب وليس الأكواد بهذا الشكل ..

هناك تضارب بين أسطر الكود وعدم وضوح للهدف .. يرجى ذكر الهدف الهدف من الكود ..ماذا تريد من الكود أن ينفذ لك بالضبط ؟؟

[omarabdo80]

الاستاذ الفاضل / ياسر خليل

 

اشكرك اولا على الاهتمام بموضوعى كما تعودنا منك دائما انت سباق فى مساعدة الاعضاء.

 

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

ثم بعد ذلك يتم الدخول الى الملف رقم 1 و من خلاله يتم الدخول الى الملف رقم 2 حيث ان الملف رقم 2 يكون مخفيا و لا يتم الدخول اليه الا من خلال CommandButton

 

مرفق لسيادتكم الملف. مع العلم بان كلمة المرور 2015

 

لك خالص تحياتى و تقديرى.

Trialsheet.rar

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل ..

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
        Application.EnableCancelKey = xlDisabled
        Application.Visible = False
        Userform1.Show
        Workbooks.Application.Visible = True
        Sheet1.Select
        Range("A1").Value = ""
        Sheet1.Range("A1").Value = 1
         Worksheets(1).ScrollArea = "A1"
        Sheet2.Visible = True
        Sheet2.Select
    Application.ScreenUpdating = True
End Sub

[omarabdo80]

الله ينور يا افندم الكود كده شغال تمام.

المشكلة دلوقتى انى مش عارف ادخل على الملف اصلا. مش قابل اسم المستخدم او كلمة المرور. غالبا علشان موجودين فى الملف رقم 1 اللى متحدد مداه فى الخلية a1 و انا حاطط اسم المستخدم او كلمة المرور فى الخليتين b1 & b2.

 

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

 

شكرا جزيلا و معلش تعبت حضرتك معايا.

[ياسر خليل أبو البراء]

أنا جربت الملف ودخل عادي

admin

123456

 وبعدها دخل على Sheet2 مباشرة !!!

حاول تحدد مشكلتك بشكل أدق

[omarabdo80]

استاذنا الجليل / ياسر خليل

 

الف الف شكر على مساعدة حضرتك.

 

انا اصلى كنت مغير كلمة المرور و كنت بحاول افتح الملف بكلمة المرور القديمة. معلش اصلى بشتغل فى الملف ده من بدرى. حضرتك دلوقتى نبهتنى لكلمة المرور الصحيحة

 

الملف شغال تمام بفضل الله ثم حضرتك.

 

اتمنى لحضرتك و لكل الاعضاء الافاضل جمعة مباركة.

 

ارجوك تقبل فائق تحياتى و احترامى...

[zomy5050]

فائق الاحترامات وجزيل الشكر للمنتدى ولاستاذي العظيم على الجهود الرائعة جدا اتمنى لكم ولكل الاعضاء كل الموفقية

... مع فائق تحياتي وتقديري لكم