Цитата |
---|
The_Prist пишет: Есть такое событие, как Workbook_Open. |
Прописал, работает) Двойная благодарность)
Подскажите, что нужно указать в коде, чтобы при закрытии формы скрывался лист Состав
Пытался добавить строку Sheets("Состав" ) .Visible = -1, но безположительного результата..
Скрытый текст |
---|
Private Sub cmndbOK_Click() Dim rFndRng As Range Dim oSheet As Worksheet Dim sUserRange As String, sUserSheet As String, sSheets, li As Long
Application.ScreenUpdating = 0 With ThisWorkbook.Sheets("Users" ) If cmbUsers <> "" Then Set rFndRng = .Columns(1).Find(what:=cmbUsers, lookat:=xlWhole) If Not rFndRng Is Nothing Then sUserSheet = .Cells(rFndRng.Row, 3) sSheets = Split(sUserSheet, ";" ) If Me.txtbKod = CStr(.Cells(rFndRng.Row, 2)) Then
For Each oSheet In ThisWorkbook.Sheets If oSheet.Name <> "Состав" Then oSheet.Visible = 2 Next For Each oSheet In ThisWorkbook.Sheets If oSheet.Name <> "Users" Then For li = 0 To UBound(sSheets) If oSheet.Name = sSheets(li) Then Sheets(sSheets(li)).Visible = -1 End If Next li End If
Next Else MsgBox "Неверно указан код!", vbCritical, "Ошибка": Exit Sub End If End If Else MsgBox "Необходимо указать фамилию!", vbCritical, "Нет данных": Exit Sub End If End With Sheets("Состав" ) .Visible = -1 bClose = False Application.ScreenUpdating = 1 Unload Me End Sub |