اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

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

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

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

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

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

فتح الإكسيل بكلمة مرور.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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information