تعديل (كـود ) للاخ المهندس محمد طاهر

[الفدعاني]

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

هل يمكن التعديل على الكود على ان يعطي رسالة عند نهاية المدة( يعني رسالة واحدة )

عند الانتهاء التي تم تحديد عدد فتح الملف

Private Sub Workbook_Open()

ActiveWorkbook.Sheets(1).Select
Range("a1").Activate
Dim aa As Byte

If IsNull(Range("b65535").Value) Then
 Range("b65535").Value = 1
End If

aa = Range("b65535").Value

If aa = 10 Then
 MsgBox "Used for 10 times , no more use is allowed !!"
 Application.ActiveWorkbook.Close
 Exit Sub
Else
 Dim bb As String
 bb = Str(aa + 1)
 MsgBox "This File was used " & bb & "  Times "
End If

Range("b65535").Value = aa + 1
Application.ActiveWorkbook.Save
End Sub

[الفدعاني]

هنا شرح التخلص من الرسالة

اضغط

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

للفتح؟

شاكر للجميع

[محمد طاهر عرفه]

قم بحذف الجزء التالي

Else
Dim bb As String
bb = Str(aa + 1)
MsgBox "This File was used " & bb & "  Times "

[الفدعاني]

اشكرك اخي الكريم

المهندس محمد طاهر