اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

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

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

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

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

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

تم تعديل بواسطه GhassanFd
  • Like 1
قام بنشر (معدل)

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

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

 

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

تم تعديل بواسطه YasserKhalil
  • Like 1
قام بنشر

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

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

  • Like 1
قام بنشر
الأخ: أبو إيمان

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

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

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

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

 

قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه GhassanFd
قام بنشر

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

هههههههه

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

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

 ElseIf XX <> "123" Then

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

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

تقبل مزحتي

  • Like 1
قام بنشر

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

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

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information