تشفير كلمة سر

[Ahmed Emannan]

السلام عليكم

اريد ان تكون كلمة السر في هذا الكود مشفرة من DVB الي ***

نامل المساعدة

Sub Button1_Click()
    Dim strPass As String
    Dim iCount As Integer
    strPass = "Secret"

    For lCount = 1 To 3
        strPass = InputBox(Prompt:="الرجاء إدخال كلمة المرور", Title:="كلمة المرور")
        If strPass = vbNullString Then
            Exit Sub
        ElseIf strPass <> "DVB" Then
            MsgBox "كلمة المرور غير صحيحة", vbCritical, "DVB Software"
        Else
            Worksheets("ورقة1").Visible = xlSheetVisible
            Exit For
        End If
    Next lCount

    If lCount = 4 Then Exit Sub

End Sub

تم تعديل يوليو 11, 2009 بواسطه DVB Software

[أيسم إبراهيم]

السلام عليكم

أعتقد أنه لايمكن

والله أعلم

ما غرضك من ذلك. ربما يوجد حل بديل إن عرف الغرض !!!!!

تحياتي

[Ahmed Emannan]

اريدها ان تظهر مشفر كلمة المرور ******** مجرد نجمات

الصورة في المرفقات

تحياتي

[Elsayeh]

اليك الحل اخي حيث انني كنت في حيرة كبيرة لحل هذه المشكلة

واليك الحل في المرفقات

الانبوت بوكس.rar

[أبو حنــــين]

السلام عليكم

بعد اذن الاخوة الكرام هذا مثال آخر

الانبوت بوكس.rar

[أبو ردينة]

السلام عليكم

جزاكم الله خيرا يا شباب على التعاون مع الجميع

أخي الكريم / Elsayeh

هل يقتصر الكود على كلمة السر 123 فقط لأنه يعطي رسالة لأي كلمة غير هذة بأنها غير صالحة ؟

[Elsayeh]

السلام عليكم اخي الكريم

اليك تعديل بسيط يجعلك تتحكم في تغيير كلمة المرور بسهولة

والحل في المرفقات علما بأن كلمة المرور هي 123456

الانبوت بوكس.rar

[Elsayeh]

الاخوة الافاضل مقالوش رأيهم في الفكرة يعني

شكلها معجبتكوش

[عبدالله المجرب]

الاخوة الافاضل مقالوش رأيهم في الفكرة يعني

شكلها معجبتكوش

بالعكس عمل ممتاز بارك الله فيك

وللعلم فالكود يمكن استخدامه حتى في الاكسس

http://www.officena.net/ib/index.php?showtopic=37919

[عبدالفتاح محمد]

بصراحة ابداع رائع من الاخوة الاعضاء