Private Sub UserForm_Initialize()

Application.Visible = False

End Sub

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

Const namef = "ЕЖЕДНЕВНЫЙ ОТЧЕТ.xlsm"

UserForm1.Label1.Caption = ""

Application.Visible = False = True

Workbooks(namef).Save

Workbooks(namef).Close

End Sub