ارجو شرح هذا الكود حيث حاولت تطبيقة لايعمل واخفاء الشيتات

[أبو قاسم]

' هذة الاكواد للتغلب على مشكله مستوى الامان فى الماكرو فى الاكسيل

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
 

[مهند الزيدي]

السلام عليكم ... حسب فهمي للموضوع راجع الرابط

 

 

مع العلم ..ان الكود للمبدع ياسر خليل

[صالح احمد ابوسيف]

شكرا ربنا يحفظك