Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Обход "Защищенного просмотра" и "Включить содержимое" при открытии книги "XLSM"
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Удачи с подобным подходом!
- Ваши слова напоминает Бабу Ягу!!!
Цитата
vikttur написал:
Не много ли хотите?
- Вы злосность Бабы Яги почему-то не замечаете?!.
Цитата
Jack Famous написал:
осознание не всем даётся одинаково легко  
- А ты чего хочешь добытся, жопалез?!.
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Уважаемый vikttur, уже 5 дней мучаемся.
Вместо замечания по поводу ведения переписки в форуме, было бы полезнее помочь с решением проблемы  :)  
Обход "Защищенного просмотра" и "Включить содержимое" при открытии книги "XLSM"
 
Цитата
Дмитрий(The_Prist) Щербаков написал: но для хоть какой-то подсказки надо хоть чуть-чуть понимать чего Вы добиться хотите...
Товарищ Щербаков, если не ошибаюсь, я как помню "The Prist" раньше был модератор...  :qstn:
Сперво, надо обращатся людям нормально, во вторих, если не поняли, это не моя вина, а в третих, если очень хотите понять мою задачу, войдите в тему "Закрыть все файлы экселя при открытие xlsb-файла (макросом)" и там как-то поймёте...

П.С. К сожалению, я не знаю, как вставить ссылку, но это, наверное, не беда...
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Вы так подразумивали?
Если я правильно понял Вашу подсказку, тогда, к сожалению, не работает...  :(  
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Спасибо за подсказку  :)
Я до сих пор не обращал на это внимание...  :oops:  
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
К сожалению, проблема, которую описал в №8 сообщение, остаётся...  :cry:  
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Цитата
sokol92 написал:
У Вас, насколько я понимаю, Excel 2016. Проверьте, пожалуйста, мой пример из сообщения #13. У Вас такое же поведение, как я написал? Если "Да", то Auto_open не отрабатывает при Application.EnableEvents = False.
Здравствуйте, уважаемый sokol92!

Я внимательно прочёл ваше сообщение, протестировал и скажу, что у меня Excell 2016, у меня тоже такое поведение, как вы
написали, Но НЕ соглашусь к убеждению, что "Auto_open не отрабатывает при Application.EnableEvents = False". По моему, дело не в том, что Application.EnableEvents = False, а в том, что вы в первом случай "ВРУЧНУЮ" открываете файл Auto.xlsm, а во втором случай - ПРОГРАМНО. Могу потвердить: откройте приложенный файл "events_FALSE.xlsb", где присутсвуют два макроса:
Код
Private Sub Workbook_Open()
    Application.EnableEvents = False
    MsgBox ("Workbook_Open")
End Sub
Код
Private Sub auto_open()
    Application.EnableEvents = False
    MsgBox ("auto_open")
End Sub

После этого сразу же откройте Auto.xlsm (НО - "ВРУЧНУЮ")
Ваш файл выдаст сообщение "Auto_open".

Цитата
sokol92 написал:
Идея принудительного закрытия открытых книг мне не нравится
Что касается к цитируемому идею - я тоже не хочу вредить пользователю"!

Этот код:
Код
Private sub auto_open()
    For Each WB In Workbooks
       If WB.Name <> ThisWorkbook.Name Then
           WB.Close
       End If
   Next
end sub

даёт возможность пользователю завершить свою работу.
Изменено: Beso Shioshvili - 7 апр 2020 02:39:41
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Извините, Господин sokol92, я не в состояние продолжить...
Завтра объезательно прочту ваше мудрое сообщение и продолжу собеседование...
Извините... И спасибо за помощь...  :)  
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Дорогой sokol92, имеются 4 варианта:
1. Application.EnableEvents = False       и       вылетает строка "PROTECTED VIEW"
2. Application.EnableEvents = False       и НЕ вылетает строка "PROTECTED VIEW"
3. Application.EnableEvents = True         и       вылетает строка "PROTECTED VIEW"
4 Application.EnableEvents = True          и НЕ вылетает строка "PROTECTED VIEW"

Этот файл работает в трёх последных вариантах, но не работает только в первый вариант.
Раз, он работает во втором варианте, значит НЕ "относится и к макросу auto_open, который размещен в стандартном модуле", но почему - я этого не знаю, к сожалению...
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Потому, что когда Application.EnableEvents = False, модуль книги не реагирует...
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Засунул, но ничего не получается, когда и Application.EnableEvents = False и вылетает строка "PROTECTED VIEW"

Может быть подскажите куда мне его сунуть?..  :(
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Задача:
При открытие моего файла он должен предлогать употребителю закрыть все действующие книги экселя.
Если употребитель не закроет хоть одну из них, мой файл должен закрыться, противном случай должен запускать форму.

проблемы:
1. может быть другие книги оставили Application.EnableEvents = False, тогда Workbook_open не будет запущен.
Поэтому код закрытия других книг сунул в auto_open.

2. Если у пользователя моего файла вылетает строка "PROTECTED VIEW", после нажатия на кнопку "Enable" auto_open не запускается.

Я в Workbook_open записал код для игнорирования "PROTECTED VIEW" и в конце добавил строчки для запуска auto_open.
Мой файл не работает только тогда, когда и Application.EnableEvents = False и вылетает строка "PROTECTED VIEW", вдругих случаях только одна проблема

3. WB.Close не спрашивает о сохранений книги.

Пака а запуске формы нет речи. Думаю, там тоже будут проблемы...
Изменено: Beso Shioshvili - 7 апр 2020 03:35:26
Обход "Защищенного просмотра" и "Включить содержимое" при открытии книги "XLSM"
 
Извините, программисты в субботу и воскресению не работают?
Ааа, вчера был день программистов (кстати, поздравляю  :)  ) !!!
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Я как понял, если Workbook_Open отсутвует или Application.EnableEvents = True, тогда auto_open работает.
Что-то мне не ясно...
Как они между собой займодействуют?
Изменено: Beso Shioshvili - 7 апр 2020 03:33:20
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Сделал файл, где в стандартый модул вставил:
Код
Private sub auto_open()
    For Each WB In Workbooks
       If WB.Name <> ThisWorkbook.Name Then
           WB.Close
       End If
   Next
end sub

Переслал на мейл сотрудникам, но они не могут его использовать, потому что когда запускается файл, не запускается Workbook_Open, который должен игнорировать сообщение "protected view":
Код
Private Sub Workbook_Open()
    Dim sourceWB As Workbook
    Do While sourceWB Is Nothing
        Set sourceWB = ThisWorkbook
        DoEvents
    Loop
End Sub

Что делать в этом случай?
Обход "Защищенного просмотра" и "Включить содержимое" при открытии книги "XLSM"
 
magistor8, у меня такая-же проблема...
Тщательно прочитал тут ...
Понравилось решение проблемы с помощю кода:
Код
Sub Workbook_open()
    Dim sourceWB As Workbook
    Do While sourceWB Is Nothing
        Set sourceWB = ThisWorkbook
        DoEvents
    Loop
End Sub

Но я никак не смог расширить решение на тот случай, когда уже открыты другие эксель-файлы и Application.EnableEvents = False...
У меня в auto_open есть код, который игнорирует Application.EnableEvents = False и закрывает другие книги (это мне тоже важно) и запускает форму,
А Workbook_open не запускается, когда Application.EnableEvents = False,

Что мне делать? Помогите, пожалуйста...

П.С. Желаю Вам здоровия!
Изменено: Beso Shioshvili - 4 апр 2020 10:08:27
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Большое спасибо, Господин Андрей!
Вы мне толкнули учить ексель еще и еще :)
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Извините, Андрей, но этот модуль не запускается при запуске файла ...
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Как заставить макросу (наверное, Workbook_Open) закрыть все эксель-файлы перед открытием нового файла?
Этот код всегда будет работать или Нужно что-то добавить?
Код
Private Sub Workbook_Open()
    For Each WB In Workbooks
        If WB.Name <> ThisWorkbook.Name Then
            WB.Close &#39; SaveChanges:=False
        End If
    Next
End Sub

Например, если в открытой книге будет запущена команда "Application.EnableEvents = False", не будет работать "Workbook_Open" и т.д.
Как запускать файл без проблем?
Как умножить элементы массива на соответствущие коэффициенты из другой таблицы и потом суммировать?
 
Спасибо огромное!!!
А вы можете объяснить, как работает часть формулы:
SUMIF(Коэффициенты!B:B,Таблица!$C$2:$C$26,Коэффициенты!C:C) ?
Как умножить элементы массива на соответствущие коэффициенты из другой таблицы и потом суммировать?
 
Браво!!!
Браво, БМВ!!!
Изменено: Beso Shioshvili - 19 фев 2017 12:55:03
Как умножить элементы массива на соответствущие коэффициенты из другой таблицы и потом суммировать?
 
В приведенный пример в зеленых ячейках суммирую проценты из "таблицы".
У всех "y"-ов свои коэффициенты.
Как формировать формулы в красных ячейках, где должны учитываться и коэффициенты?
Работа с формами при невидимых открытых книгах
 
Нашел ответ!!!
http://www.excelworld.ru/forum/10-21661-1

Ответ Густава как раз подошло:
Код
Private Sub UserForm_Initialize()
    ...
    Application.Visible = False
    ...    
End Sub

Private Sub UserForm_Terminate()
    ...
    Application.Visible = True
    ...
End Sub
Изменено: Beso Shioshvili - 13 дек 2016 19:30:46
Работа с формами при невидимых открытых книгах
 
Я несколько лет назад написал пакет макросов, который работает успешно, но дизайн мне не нравится, потому что открываются и создаются файлы навиду.
Решил поправить так, что-бы не были видни книги.
Для этого Application.visible=false не подходит, потому что надо изменить целую програму (Должны явные ссылки к ячейкам и т.д.
Как-то решил функцией минимизации, но в одном случае что-то не работает. Никак не могу понять в чем беда (может быть, где-то рядом, но не нашел).
Когда открываю файл, сворачиваю и вызываю форму, но она тоже сворачивается.
Если помогите, буду благодарен!
Спасибо заранее  :)
Изменено: Beso Shioshvili - 13 дек 2016 19:10:18
Проблема с отображением выпадающего списка в Excel
 
Прочитал правила форума и обнаружил там ГЛАВНОЕ ПРАВИЛО!!! (за что благодарю Пользователя KuklP)

На форуме нашел почти такую-же проблему ...

Итак:

В ячейках а1 и б1 отображены как будто выпадающие списки, но реально, что это за объекты, ни как не понял.

Я пробовал применить советы и вот, что получилось:

1. Ctrl+6 прячет не только незваный объект и, к сожалению, мною созданные выпадающие списки.
2. Выключил tools-references, но не помогло.
3. В режиме конструктора эти объекты не выбираются (для удаления или проверки свойств).
4. функцию "=ВНЕДРИТЬ("Forms.HTML:Select.1";"")" не использовал и не знаю, для чего и как ее использовать.

Помогите, пожалуйста, разобраться:

1. Откуда они могли появиться.
2. Что это за объекты.
3. И как от них избавиться.
[ Закрыто] Проблема!!!, Нейзвестный объект (во всяком случае для меня)
 
Извините за беспокойство, уважаемые модераторы, но так как у меня нет на этот вопрос ответа, я заново открыл эту тему.

Итак:

В ячейках а1 и б1 отображены как будто выпадающие списки, но реально, что это за объекты, ни как не понял.
Помогите, пожалуйста, разобраться.
[ Закрыто] Загадка
 
В ячейках а1 и б1 отображены как-будто выпадающие списки, но реально, что это за объекты, ни как не понял.
Помогите, пожалуйста, разобраться.
Список значений непустых ячеек без формул массива, без vba и без сводных таблиц
 
Браво, gling!!!
Спасибо, вам огромное за поддержку!!!
Теперь, пусть, другие найдут решение задачи в интернете!
Цитата
Sanja написал: Я думаю, что если-бы это было возможно, то это было-бы первым, что Вы нашли в интернете
Цитата
The_Prist написал: Конечно. Легко. Руками и глазами.
Список значений непустых ячеек без формул массива, без vba и без сводных таблиц
 
Я уже что-то сделал!
А теперь помогите, профессионалы по массивам, доделать формулу без промежуточного массива ($C$22:$C$33)...
Цитата
The_Prist написал: Руками и глазами
и может быть и головой? ;)
Список значений непустых ячеек без формул массива, без vba и без сводных таблиц
 
Буду старать... ;)
Страницы: 1 2 3 4 5 След.
Наверх