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

زر ماكروا مع كلمة سر

zizo747

بواسطه zizo747
في منتدى الاكسيل Excel

 مشاركة

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

نزار سليمان عيد

نزار سليمان عيد

قام بنشر
قام بنشر

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

لمسة جميلة وقمت بتعديل بسيط وهو لو ان كلمة السر خطأ يمسح التجميع السابق

وهذا لتأكد من ان عملية الجمع لم تتم

فيمكن ان تعلم كلمة السر وتكتبها اول مرة صح ويقوم الكود بالجمع

وفي المرة الثانية لاي سبب اخطأت بادخال الرقم السري فلو بقي الرقم لاختلط عليك الامر ولكن عند مسحه ستعلم ان الرقم خاطئ

Password.rar

zizo747

zizo747

قام بنشر
  • الكاتب
قام بنشر

شكر ا لكل من ساهم في حل طلبي بوضع كلمة سر لزر الماكروا

ولكن لدي مشكلة أخرى وهي في حالة وجود أي شخص لديه فكرة ولو كانت بسيطة عن الماكروا يمكنه من معرفة كلمة السر لأنها مكتوبة كالتالي

Dim mypassword As String

mypassword = 123

mypasss = Application.InputBox

فمن الواضح أنها 123

ولذلك أريد وضع كلمة سر للفيجوال بيزك بحث لايمكن لأحد الإطلاع على المعلومات الموجودة بها

فهل لي بالطريقة

مع الشكر

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

  I accept