MyTetra Share
Делитесь знаниями!
Скрыть окно Excel
Время создания: 29.07.2019 16:35
Раздел: !Закладки - VBA - Excel

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

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования