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

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

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

السلام عليكم

الاخوة الافاضل

هذا كود في حدث الصفحه

عند الدخول المرئي من الورقة اخر الصفوف

بمعنى لو الورقة فيها بيانات اذا لم يبرز التصريح

لايمكنه رؤية مابداخل الورقة

انشاء الله تستفيدو منه

Option Explicit

Private Sub Worksheet_Activate()

Dim pwd As String:  pwd = "123"

Cells(Rows.Count, Columns.Count).Activate

    If Application.InputBox("برجاء ادخال التصريح لدخول الورقة?", "تصريح دخول الورقة", "???") <> pwd Then

        Sheets("ورقة2").Activate

        MsgBox "الباسورد خطاء غير مسموح لك دخول هذه الورقة", 0, "عفواً محضور الدخول"

    Else

        MsgBox "مرحبا بك", 32, "دخول ناجح"

        Range("A1").Activate

    End If

End Sub

الباسورد هو 123 ولتغيره من الكود في هذه الجزئية
Dim pwd As String:  pwd = "123"

والسلام عليكم

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

السلام عليكم

الاخ الفاضل نادر مشكور على مرورك العطر

وجزاك الله خير نقلته للمكان الصح

وفقك الله

قام بنشر

اخى alidroos

مشكور اخى على هدياك الجميلة

جزاك الله كل خير

اخوك سعد عابد

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