ج2 كيفية حذف الملف بعد انتهاء المحاولات الدخول وانتهاء مدة استعمال
 |
| ج2 كيفية حذف الملف بعد انتهاء المحاولات الدخول وانتهاء مدة استعمال |
حذف الملف بعد انتهاء المحاولات الدخول
حذف الملف بعد انتهاء مدة استعمال
Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
If Date >= DateValue("04/07/2020") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close savechanges:=False
End With
Else
Application.Visible = False
UserForm1.Show
End
End If
End Sub
.....................................
Private Sub CommandButton1_Click()
If TextBox1.Value = "hamza" And TextBox2.Value = "aa" Then
Unload Me
Application.Visible = True
Else
If TextBox2.Value <> "aa" And TextBox1.Value <> "hamza" Then
x = MsgBox("ÇÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ ÎØÃ", 16, "ÊÓÌíá ÇáÏÎæá")
TextBox1.Value = ""
TextBox2.Value = ""
Label4.Caption = Label4.Caption - 1
TextBox1.SetFocus
Else
If TextBox1.Value <> "hamza" Then
x = MsgBox("ÇÓã ãÓÊÎÏã ÎØÃ", 16, "ÊÓÌíá ÇáÏÎæá")
TextBox1.Value = ""
Else
x = MsgBox("ßáãÉ ÇáãÑæÑ ÎØÃ", 16, "ÊÓÌíá ÇáÏÎæá")
TextBox2.Value = ""
Label4.Caption = Label4.Caption - 1
TextBox2.SetFocus
End If
End If
End If
If Label4.Caption = 0 Then
MsgBox "ÇäÊåì ÚÏÏ ÇáãÍÇæáÇÊ", vbCritical, "ÊäÈíå"
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close savechanges:=False
End With
End If
تعليقات: 0
إرسال تعليق