' هذة الاكواد للتغلب على مشكله مستوى الامان فى الماكرو فى الاكسيل
Public xx As Integer
Public x As Integer
Sub Auto_Open()
kh_wVisible True
UserForm1.Show
End Sub
Sub Auto_Close()
Dim I As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub
Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
If .Visible = Not ibol Then .Visible = ibol
End With
End Sub