كود اخفاء الملف و اظهار الفورم فقط

Option Explicit

Private Sub Workbook_Open()



    If Windows(ThisWorkbook.Name).Visible = True Then Windows(ThisWorkbook.Name).Visible = False

        Set AppClass.AppXL = Application

    If Application.Workbooks.Count = 1 Then

Application.Visible = False

        Windows(ThisWorkbook.Name).Visible = False

    Else

        Windows(ThisWorkbook.Name).Visible = False

    End If

UserForm1.Show vbModeless



End Sub

Private Sub CommandButton1_Click()

Windows(ThisWorkbook.Name).Visible = True



End Sub



Private Sub UserForm_Initialize()

UserFormVisible = True

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim FM



If Application.Workbooks.Count = 1 Then

If Windows(ThisWorkbook.Name).Visible = False Then

    FM = MsgBox(prompt:=" " & vbLf & _

    "Voulez-vous réellement fermer ?", Buttons:=vbOKCancel)

    If FM = vbOK Then

      If Not AppClass Is Nothing Then Set AppClass = Nothing

      ThisWorkbook.Save

      'ThisWorkbook.Close

      Application.Quit

     Else

       Cancel = True

    End If

  End If

 Else

 If Application.Visible = True Then



    FM = MsgBox(prompt:=" " & vbLf & _

    "Voulez-vous réellement fermer ?", Buttons:=vbOKCancel)

    If FM = vbOK Then

      If Not AppClass Is Nothing Then Set AppClass = Nothing

      ThisWorkbook.Save

      ThisWorkbook.Close

     Else

       Cancel = True

    End If

  End If

End If

End Sub

Option Explicit

Public WithEvents AppXL As Application

Private Sub AppXL_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)

If Application.Workbooks.Count = 2 Then

  Windows(ThisWorkbook.Name).Visible = False

  If UserFormVisible = False Then UserForm1.Show vbModeless

Else

  Windows(ThisWorkbook.Name).Visible = False

End If

End Sub