Здравствуйте
У меня стоит задача программно добавить несколько листов, но это надо сделать не отвлекая пользователя, т.е. что бы excel не переключался на добавляемый лист
Делаю это таким кодом
Но Excel все равно переключается на новый лист
Подскажите пожалуйста. Может есть способ запретить это?
Во вложении пример
У меня стоит задача программно добавить несколько листов, но это надо сделать не отвлекая пользователя, т.е. что бы excel не переключался на добавляемый лист
Делаю это таким кодом
Код |
---|
Application.ScreenUpdating = False Application.EnableEvents = False Set wks = ThisWorkbook.Sheets.Add(, Worksheets(Worksheets.count), 1, XlSheetType.xlWorksheet) With wks .Name = psName .Range("A1:S1").Interior.Color = rgbGold End With Application.EnableEvents = True Application.ScreenUpdating = True |
Подскажите пожалуйста. Может есть способ запретить это?
Во вложении пример