غسان العبيدي قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 (معدل) السلام عليكم ورحمة الله وبركاته.. الحمد لله، والصلاة والسلام على رسول الله، وعلى آله وصحبه، وسلم تسليماً كثيرا. أما بعد.. فهذه أول مشاركة فعلية لي، أرجو أن تتقبلوها. وهي عبارة عن تعديلات قمت بها على كود لفتح مصنف الإكسيل بكلمة مرور، وأصل الكود – كما أشار بعض الاخوة (وفقهم الله لكل خير) - لمعلمنا العزيز (عبد الله باقشير) حفظه الله من كل مكروه، وزاده علماً، ونفع به. بانتظار نصائحكم وإرشاداتكم، أسأل الله – تعالى – أن يبارك لكم في أوقاتكم، ويمدكم بالصحة والعافية. وجزاكم الله خيراً، ونفع بكم. وحياكم الله. فتح الإكسيل بكلمة مرور.rar تم تعديل أبريل 10, 2015 بواسطه GhassanFd 1
أبو إيمان قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 قم بوضع كلمة المرور حتى يستفيد الأعضاء من الفكرة ..... وشكرا لك
أبو إيمان قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 توصلت إلى الأرقام المستخدمة في كلمة المرور وبداية موفقة إن شاء الله ونتمنى من الأخ الفاضل تزويدنا بها للاستفادة 1
ياسر خليل أبو البراء قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 (معدل) الأخ الحبيب غسان بارك الله فيك وجزاك الله خيراً تسلم على المشاركة المفيدة والرائعة كلمة المرور 123 (خمنت ومن أول مرة صح ..بدون كسر) تم تعديل أبريل 10, 2015 بواسطه YasserKhalil 1
Yasser Fathi Albanna قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 أخى GhassanFd بارك الله فيك وجزاك الله كل خير
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب قام بنشر أبريل 10, 2015 كلمة المرور: 123 كما قال أخي العزيز ياسر (أعزه الله)، ولقد غفلت عن وضعها. ..تقبلوا اعتذاري..
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب قام بنشر أبريل 10, 2015 الأخ الحبيب اللبيب: ياسر (أبو البراء).. من خلال موضوعك المميز (افتح الباب وادخل عالم البرمجة) تعلمت الكثير؛ فلك مني عظيم الشكر والامتنان، ولخفة ظلك وتعليقاتك الجميلة المرحة لك مني ألف تحية. 1
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب قام بنشر أبريل 10, 2015 الأخ: أبو إيمان بارك الله فيك على التنبيه. وشكر الله لك، وبورك فيك. ================ الأخ، المهندس: ياسر فتحي البنا وجزاك الله خيرا مثله، وبارك فيكم.
محمد حسن المحمد قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 السلام عليكم تحية طيبة وبعد: كيف أنقل هذه الكلمة إلى ملف أستخدمه, وكيف أغيرها.مع شكري وامتناني. أخوكم أبو يوسف. 1
غسان العبيدي قام بنشر أبريل 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
ياسر خليل أبو البراء قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 أخي الحبيب غسان هههههههه والله تعبت لك ..عديت لحد 18 سطر !! يا صبرك كان سهل تقوله في السطر ده ElseIf XX <> "123" Then ليه بنختار الطريق الصعب لما يكون فيه طريق سهل أنا مش بنتقدك أنا بس حبيت أمسي عليك تقبل مزحتي 1
غسان العبيدي قام بنشر أبريل 10, 2015 الكاتب قام بنشر أبريل 10, 2015 الأخ الحبيب اللبيب ياسر (أبو البراء) ومنكم نستفيد.. ومقبولة منك..ومساك الله بالخير وأدام الله ضحكاتك وابتساماتك الجميلة... يا معلمي. ما أحلى المعلومة التي تُقَدَّم مع المزحة الخفيفة الجميلة. 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.