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

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

قام بنشر

يا ريت توضح اكثر ....

هل تقصد عند الضغط على زر معين 

يطلب من المستخدم إدخال كلمة مرور 

فإذا كانت صحيحة يتم تنفيذ الأكواد المخصصة للزر وإلا فلا ينفذ

؟؟؟؟

  • Like 1
  • تمت الإجابة
قام بنشر

يمكنك استعمال هذا الإجراء

Sub clr_with_pw()
If InputBox("من فضلك أدخل كلمة المرور.", "حماية") = "1234" Then
Range("A2:D15").ClearContents
Range("A2").Select
Else: MsgBox "كلمة المرور خطأ": End If
End Sub

حيث أن كلمة المرور لتنفيذ هذا الإجراء هي 1234

ويمكن استعمال ذلك الكود مع أي ماكرو بوضع اكواد الماكرو مكان السطرين الثالث والرابع وتغيير 1234 إلى كلمة المرور المطلوبة

بالتوفيق

  • Like 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information