السلام عليكم ورحمة الله وبركاته
الاساتذة الافاضل طلب تعديل الكودلحدف الفاتورة اريد لما اضغط على زر الحدف يطلب مني ادخال كلمة سر
ليتم مسح الفاتورة
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