فتح الإكسيل بكلمة مرور

[غسان العبيدي]

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

الحمد لله، والصلاة والسلام على رسول الله، وعلى آله وصحبه، وسلم تسليماً كثيرا.

أما بعد.. فهذه أول مشاركة فعلية لي، أرجو أن تتقبلوها.

وهي عبارة عن تعديلات قمت بها على كود لفتح مصنف الإكسيل بكلمة مرور، وأصل الكود – كما أشار بعض الاخوة (وفقهم الله لكل خير) - لمعلمنا العزيز (عبد الله باقشير) حفظه الله من كل مكروه، وزاده علماً، ونفع به.

بانتظار نصائحكم وإرشاداتكم، أسأل الله – تعالى – أن يبارك لكم في أوقاتكم،

ويمدكم بالصحة والعافية. وجزاكم الله خيراً، ونفع بكم. وحياكم الله.

فتح الإكسيل بكلمة مرور.rar

تم تعديل أبريل 10, 2015 بواسطه GhassanFd

[أبو إيمان]

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

[أبو إيمان]

توصلت إلى الأرقام المستخدمة في كلمة المرور وبداية موفقة إن شاء الله  ونتمنى من الأخ الفاضل تزويدنا بها للاستفادة 

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

الأخ الحبيب غسان بارك الله فيك وجزاك الله خيراً

تسلم على المشاركة المفيدة والرائعة

 

كلمة المرور 123 (خمنت ومن أول مرة صح ..بدون كسر)

تم تعديل أبريل 10, 2015 بواسطه YasserKhalil

[Yasser Fathi Albanna]

أخى GhassanFd

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

[غسان العبيدي]

 

كلمة المرور: 123

كما قال أخي العزيز ياسر (أعزه الله)،

ولقد غفلت عن وضعها.

..تقبلوا اعتذاري..

[غسان العبيدي]

الأخ الحبيب اللبيب: ياسر (أبو البراء)..

من خلال موضوعك المميز (افتح الباب وادخل عالم البرمجة) تعلمت الكثير؛ فلك مني عظيم الشكر والامتنان، ولخفة ظلك وتعليقاتك الجميلة المرحة لك مني ألف تحية.

[غسان العبيدي]

الأخ: أبو إيمان

بارك الله فيك على التنبيه. وشكر الله لك، وبورك فيك.

================

الأخ، المهندس: ياسر فتحي البنا

وجزاك الله خيرا مثله، وبارك فيكم.

 

[محمد حسن المحمد]

السلام عليكم 

تحية طيبة وبعد:

كيف أنقل هذه الكلمة إلى ملف أستخدمه, وكيف أغيرها.مع شكري وامتناني.

أخوكم أبو يوسف.

[غسان العبيدي]

الأخ محمد حسن..

وعليكم السلام ورحمة الله وبركاته.. أخي العزيز:

ضع هذا الكود في الـــ

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

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

أخي الحبيب غسان

هههههههه

والله تعبت لك ..عديت لحد 18 سطر !! يا صبرك

كان سهل تقوله في السطر ده

 ElseIf XX <> "123" Then

ليه بنختار الطريق الصعب لما يكون فيه طريق سهل

أنا مش بنتقدك أنا بس حبيت أمسي عليك

تقبل مزحتي

[غسان العبيدي]

الأخ الحبيب اللبيب ياسر (أبو البراء)

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

وأدام الله ضحكاتك وابتساماتك الجميلة... يا معلمي.

ما أحلى المعلومة التي تُقَدَّم مع المزحة الخفيفة الجميلة.