Private Sub Cmd_Sheet_Click()
If Txt_Password.Value = "roaa" Then
Application.Visible = True
Unload Me
Exit Sub
End If
MsgBox "الكلمة غير صحيحة - ادخل الكلمة مرة ثانية"
Txt_Password.Value = ""
Txt_Password.SetFocus
End Sub
Private Sub CmdClose_Click()
Unload Me
ActiveWorkbook.Close True
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closeMode As Integer)
If closeMode = 0 Then
cancel = True
MsgBox "عذرا الخروج من زر إغلاق"
End If
End Sub
جزاك الله خيرا .. وبارك فيك
اخي المحترم اريد برنامج يفك الملفات المحميه الاكواد