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

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

الاساتذة الافاضل طلب تعديل  الكودلحدف الفاتورة  اريد لما اضغط على زر الحدف يطلب مني ادخال كلمة سر

ليتم مسح الفاتورة

 

 

 

 

Sub invoice_Kill()
' حذف بيانات فاتورة
Application.ScreenUpdating = False
Set Ws = Worksheets("INVOICE")
Set WS1 = Worksheets("Customers")
LR1 = WS1.Range("c55555").End(xlUp).Row + 1
If Ws.Range("J3") = "" Then GoTo 6
For FR = 10 To 60
LR1 = Val(Ws.Cells(FR, 12))
If Ws.Cells(FR, 12) = "" Then GoTo 7

WS1.Range("E" & LR1 & ":M" & LR1).ClearContents
LR1 = LR1 + 1
7 Next FR

Application.CutCopyMode = False
Ws.Select
Application.ScreenUpdating = True
6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED"
Application.Run "invoice_cleer"

On Error Resume Next
    Range("I60:I64").SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
End Sub

 

تم تعديل أكتوبر 20, 2015 بواسطه محمد عبدالسلام

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

جرّب أخي الكريم هذا الكود .. الذي قمت بوضعه في حدث الورقة رقم 1.. فائق إحتراماتي

 

الماكرو.rar

تم تعديل أكتوبر 20, 2015 بواسطه عبد العزيز البسكري

[محمد عبدالسلام]

السّلام عليكم و رحمة الله و بركاته اخي عبدالعزيز البسكري المرجو توضيحا اكثربارك الله فيك

 

[عبد العزيز البسكري]

معذرة أخي الكريم الملف المرسل سابقا كان فارغًا عن خطأ .. القصد أنسخ الكود الذي وضعته لك في الشيت 1 .. كلمة المرور 123

 

الماكرو.rar

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

للتّوضيح أكثر أخي الكريم .. لاحظ الكود :

Sub invoice_Kill()

Dim reponse As String
reponse = InputBox("الرجاء إدخال كلمة المرور لتنفيذ الماكرو")
If reponse = "123" Then
MsgBox "تم التنفيذ"

'حذف بيانات فاتورة
Application.ScreenUpdating = False
Set Ws = Worksheets("INVOICE")
Set WS1 = Worksheets("Customers")
LR1 = WS1.Range("c55555").End(xlUp).Row + 1
If Ws.Range("J3") = "" Then GoTo 6
For FR = 10 To 60
LR1 = Val(Ws.Cells(FR, 12))
If Ws.Cells(FR, 12) = "" Then GoTo 7
WS1.Range("E" & LR1 & ":M" & LR1).ClearContents
LR1 = LR1 + 1
7 Next FR
Application.CutCopyMode = False
Ws.Select
Application.ScreenUpdating = True
6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED"
Application.Run "invoice_cleer"

On Error Resume Next
Range("I60:I64").SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0



Else
MsgBox "كلمة المرور خاطئة"
End If

End Sub

 

فائق إحتراماتي

تم تعديل أكتوبر 20, 2015 بواسطه عبد العزيز البسكري

[محمد عبدالسلام]

السّلام عليكم و رحمة الله و بركاته اخي عبدالعزيز البسكري بارك الله فيك ونفع الله بك الاسلام والمسلمين

 

 

تم تعديل أكتوبر 21, 2015 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

طلب الغاء هد سطر من الكود

6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED"

 

تم تعديل أكتوبر 21, 2015 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

طلب الغاءهده الرسلة