علي عبد المنعم قام بنشر أبريل 12, 2018 مشاركة قام بنشر أبريل 12, 2018 (معدل) برجاء المساعدة و المطلوب هو وضع كلمة سر لاظهار اليوزر فورم و عمل زر لتغيير كلمة السر لو حد عرفه بحث.rar تم تعديل أبريل 12, 2018 بواسطه علي عبد المنعم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 12, 2018 مشاركة قام بنشر أبريل 12, 2018 استبدل ماكرو الزر بهذا Sub mm() Dim my_pas$ my_pass = Application.InputBox("Plese Enter Password", "Password") If my_pass <> "123" Then MsgBox ("I am sorry your password is wrong" & Chr(10) & "I can't oppen the user form" _ & Chr(10) & "I will exit") Exit Sub End If UserForm1.Show End Sub رابط هذا التعليق شارك More sharing options...
علي عبد المنعم قام بنشر أبريل 12, 2018 الكاتب مشاركة قام بنشر أبريل 12, 2018 شكرا لسرعة الاستجابة ولكن المطلوب بعد وضع كلمة السر هو امكانية تغيير كلمة السر من خلال عمل زر يطلب كلمة السر القديمة و كتابة كلمة السر الجديدة بحيث لا يتم الدخول الى الكود و تغيرر كلمة السر رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 14, 2018 مشاركة قام بنشر أبريل 14, 2018 السلام عليكم بحث.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أبريل 14, 2018 مشاركة قام بنشر أبريل 14, 2018 ملف رائع بارك الله فيك أستاذ شوقى وجعله فى ميزان حسناتك وعود حميد أخى الكريم وحشتنا كتير 1 رابط هذا التعليق شارك More sharing options...
علي عبد المنعم قام بنشر أبريل 14, 2018 الكاتب مشاركة قام بنشر أبريل 14, 2018 (معدل) استاذ شوقي شكرا لحضرتك ولكن الملف لايعمل معي وانا اعمل على اوفيس 2007 وتظهر تلك الرسالة تم تعديل أبريل 14, 2018 بواسطه علي عبد المنعم رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 14, 2018 مشاركة قام بنشر أبريل 14, 2018 السلام عليكم تفضل اخي mot_de_passe.xlsm رابط هذا التعليق شارك More sharing options...
علي عبد المنعم قام بنشر أبريل 14, 2018 الكاتب مشاركة قام بنشر أبريل 14, 2018 استاذ شوقي شكرا لحضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.