غسان العبيدي قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 (معدل) السلام عليكم ورحمة الله وبركاته.. الحمد لله، والصلاة والسلام على رسول الله، وعلى آله وصحبه، وسلم تسليماً كثيرا. أما بعد.. فهذه أول مشاركة فعلية لي، أرجو أن تتقبلوها. وهي عبارة عن تعديلات قمت بها على كود لفتح مصنف الإكسيل بكلمة مرور، وأصل الكود – كما أشار بعض الاخوة (وفقهم الله لكل خير) - لمعلمنا العزيز (عبد الله باقشير) حفظه الله من كل مكروه، وزاده علماً، ونفع به. بانتظار نصائحكم وإرشاداتكم، أسأل الله – تعالى – أن يبارك لكم في أوقاتكم، ويمدكم بالصحة والعافية. وجزاكم الله خيراً، ونفع بكم. وحياكم الله. فتح الإكسيل بكلمة مرور.rar تم تعديل أبريل 10, 2015 بواسطه GhassanFd 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 قم بوضع كلمة المرور حتى يستفيد الأعضاء من الفكرة ..... وشكرا لك رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 توصلت إلى الأرقام المستخدمة في كلمة المرور وبداية موفقة إن شاء الله ونتمنى من الأخ الفاضل تزويدنا بها للاستفادة 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 (معدل) الأخ الحبيب غسان بارك الله فيك وجزاك الله خيراً تسلم على المشاركة المفيدة والرائعة كلمة المرور 123 (خمنت ومن أول مرة صح ..بدون كسر) تم تعديل أبريل 10, 2015 بواسطه YasserKhalil 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 أخى GhassanFd بارك الله فيك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب مشاركة قام بنشر أبريل 10, 2015 كلمة المرور: 123 كما قال أخي العزيز ياسر (أعزه الله)، ولقد غفلت عن وضعها. ..تقبلوا اعتذاري.. رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب مشاركة قام بنشر أبريل 10, 2015 الأخ الحبيب اللبيب: ياسر (أبو البراء).. من خلال موضوعك المميز (افتح الباب وادخل عالم البرمجة) تعلمت الكثير؛ فلك مني عظيم الشكر والامتنان، ولخفة ظلك وتعليقاتك الجميلة المرحة لك مني ألف تحية. 1 رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب مشاركة قام بنشر أبريل 10, 2015 الأخ: أبو إيمان بارك الله فيك على التنبيه. وشكر الله لك، وبورك فيك. ================ الأخ، المهندس: ياسر فتحي البنا وجزاك الله خيرا مثله، وبارك فيكم. رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 السلام عليكم تحية طيبة وبعد: كيف أنقل هذه الكلمة إلى ملف أستخدمه, وكيف أغيرها.مع شكري وامتناني. أخوكم أبو يوسف. 1 رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب مشاركة قام بنشر أبريل 10, 2015 (معدل) الأخ محمد حسن.. وعليكم السلام ورحمة الله وبركاته.. أخي العزيز: ضع هذا الكود في الـــ ThisWorkbook في ملفك، ثم غير الباسوورد ( السطر 18 من الأعلى) حسب ما يناسبك، ثم غير اسم الصفحة التي تريد أن تظهر بعد تنفيذ الكود (السطر 6 من الأسفل). Option Explicit Private Sub Workbook_Open() On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer Application.ScreenUpdating = False ' إخفاء علامات تبويب الأوراق ActiveWindow.DisplayWorkbookTabs = False ' إخفاء الأعمدة والصفوف ActiveSheet.Columns.Hidden = True ActiveSheet.Rows.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then ActiveWorkbook.Save Application.Quit Exit Sub ElseIf XX <> "123" 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 ActiveWorkbook.Save Application.Quit Exit Sub Else ' إظهار الأعمدة والصفوف ActiveSheet.Columns.Hidden = False ActiveSheet.Rows.Hidden = False ' إظهار علامات تبويب الأوراق ActiveWindow.DisplayWorkbookTabs = True Sheets("Main").Select End If Range("A1").Select Application.ScreenUpdating = True On Error GoTo 0 End Sub تم تعديل أبريل 10, 2015 بواسطه GhassanFd رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 10, 2015 مشاركة قام بنشر أبريل 10, 2015 أخي الحبيب غسان هههههههه والله تعبت لك ..عديت لحد 18 سطر !! يا صبرك كان سهل تقوله في السطر ده ElseIf XX <> "123" Then ليه بنختار الطريق الصعب لما يكون فيه طريق سهل أنا مش بنتقدك أنا بس حبيت أمسي عليك تقبل مزحتي 1 رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب مشاركة قام بنشر أبريل 10, 2015 الأخ الحبيب اللبيب ياسر (أبو البراء) ومنكم نستفيد.. ومقبولة منك..ومساك الله بالخير وأدام الله ضحكاتك وابتساماتك الجميلة... يا معلمي. ما أحلى المعلومة التي تُقَدَّم مع المزحة الخفيفة الجميلة. 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.