كلمة سر لكى يعمل كود من خلال زر

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

لدى كود لا اريد ان يتم استخدامه الا من خلال كلمه سر

اى عند الضغط على الزر يظهر تكست بوكس يطالب بادخال كلمه سر 

اذا كانت صحيحه  يتم تنفيذ الكود

واذا كانت كلمه الشر خطاء لا يتم عمل الكود

هل يمكن ذلك

Sub addition()

Dim ER, R

ER = ActiveSheet.UsedRange.Rows.Count

For R = 8 To ER

If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _

Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1

If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _

Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1

Next R

End Sub

 

 

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب هذا التعديل

Sub addition()
Dim ER, R
pass = "123"
ansr = InputBox("أدخل كلمة المرور أولا ")
If ansr <> pass Then Exit Sub
ER = ActiveSheet.UsedRange.Rows.Count
For R = 8 To ER
If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _
Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1
If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _
Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1
Next R
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل 

وجت الحل فى المنتدى

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

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

تم تعديل مايو 14, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الغزيز رجب جاويش

سلمت يداك 

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

[رجب جاويش]

أخى الفاضل

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب رجب جاويش

حاولت ان اضيف اضافه ان يغلف الملف بعد عدد 3 محاولات 

ولاكن لم اوفق 

هلى من حل لتصحيح الخطاء

Sub addition()

Dim ER, R

pass = "123"

sama = InputBox("إدخل الباسورد لتنفيذ الماكرو")

If sama <> pass Then

MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)")

ss = ss + 1

If ss> 3 Then

  Application.DisplayAlerts = False

  Application.Quit

End If

ER = ActiveSheet.UsedRange.Rows.Count

For R = 8 To ER

If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _

Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1

If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _

Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1

Next R

End Sub

[رجب جاويش]

السلام عليكم

أخى الفاضل

إجعل الكود بالشكل التالى

Public ss As Byte

Sub addition()
Dim ER, R
pass = "123"
sama = InputBox("إدخل الباسورد لتنفيذ الماكرو")
If sama <> pass Then
ss = ss + 1
MsgBox ("الباسورد خطأ (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)" & Chr(10) & " " & "باقى لك عدد" & " " & 3 - ss & " " & "محاولة")
If ss >= 3 Then
Application.DisplayAlerts = False
Application.Quit
End If
Exit Sub
End If
ER = ActiveSheet.UsedRange.Rows.Count
For R = 8 To ER
If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _
Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1
If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _
Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1
Next R
End Sub

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب رجب جاويس سلمت يداك 

اريد ان اعلك ماذل تعنى هذةالجمله

Public ss As Byte

واذا تكرمت برجاء شرج الكود للا ستفادة

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

[رجب جاويش]

أخى الفاضل : أبو حنين

Public   ( عام )

هى كلمة تستخدم لتعريف المتغيرات

وتجعل هذا المتغير يمكن استخدامه فى أى موديول فى الملف  وليس مقصورا فقط على الموديول الموجود به المتغير

 

أما Byte  فهو نوع من أنواع البيانات التى تخزن داخل المتغير

وهو أصغر أنواع البيانات مساحة حيث يشغل في ذاكرة الكمبيوتر 1 بايت ومداه الأرقام الصحيحة الموجبة  من صفر إلى 255 فقط

[محمود_الشريف]

أخى فى الله

استاذى القدير // رجب جاويش

بارك الله فيكم وزادكم الله من فضله ومن نعمه

تقبل منى وافر الاحترام والتقدير

[رجب جاويش]

أخى الحبيب / محمود الشريف

شكرا جزيلا أخى الحبيب على هذه الكلمات الطيبة

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