طريقة الثانية لحماية ملف الاكسال يوزرفورم
 |
| طريقة الثانية لحماية ملف الاكسال يوزرفورم password excel vba |
اليك الكود
Private Sub CommandButton1_Click()
TextBox1.SetFocus
Feuil1.Activate
If TextBox1.Text = Range("a2") And TextBox2.Text = Range("b2") Then
Feuil2.Activate
Dim x As Integer
x = [a1000].End(xlUp).Row + 1
Cells(x, 1).Value = Me.TextBox1.Value
Cells(x, 2).Value = Label12
Application.Visible = True
Feuil6.Activate
End
Else
End If
If TextBox1.Text = Range("a3") And TextBox2.Text = Range("b3") Then
Feuil3.Activate
x = [a1000].End(xlUp).Row + 1
Cells(x, 1).Value = Me.TextBox1.Value
Cells(x, 2).Value = Label12
Application.Visible = True
Feuil6.Activate
End
Else
End If
If TextBox1.Text = Range("a4") And TextBox2.Text = Range("b4") Then
Feuil4.Activate
x = [a1000].End(xlUp).Row + 1
Cells(x, 1).Value = Me.TextBox1.Value
Cells(x, 2).Value = Label12
Application.Visible = True
Feuil6.Activate
End
Else
End If
If TextBox1.Text = Range("a5") And TextBox2.Text = Range("b5") Then
Feuil5.Activate
x = [a1000].End(xlUp).Row + 1
Cells(x, 1).Value = Me.TextBox1.Value
Cells(x, 2).Value = Label12
Application.Visible = True
Feuil6.Activate
End
Else
Label4.Caption = Label4.Caption - 1
End If
If TextBox1.Text = Range("a2") And TextBox2.Text = Range("b2") And TextBox1.Text = Range("a3") And TextBox2.Text = Range("b3") And TextBox1.Text = Range("a4") And TextBox2.Text = Range("b4") And TextBox1.Text = Range("a5") And TextBox2.Text = Range("b5") Then
Else
MsgBox "ÃÚÏ ãä ÌÏíÏ ÇÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáÓÑ ÛíÑ ÕÍíÍ", vbCritical, "ÇäÐÇÑ"
TextBox1 = ""
TextBox2 = ""
End If
If Label4.Caption = 0 Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
.Close savechanges:=False
End With
End If
للمشاهدة كيفية تطبيق الكود
لتحميل الملف من هنا
تعليقات: 0
إرسال تعليق