Автоматичсекое закрытие файла при неактивности. - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Автоматичсекое закрытие файла при неактивности. (Макросы/Sub)

Автоматичсекое закрытие файла при неактивности.

draginoid

Дата: Среда, 29.11.2017, 15:17 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Хотел бы еще спросить: сложно ли сюда добавить счетчик оставшегося времени до закрытия файла?

Ответить

draginoid

Дата: Среда, 28.02.2018, 11:48 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день
Обновлю тему: самопроизвольно открывается документ.
Я его закрываю, а он опять.
И так по несколько раз подряд.
В чем может быть дело?

Ответить

draginoid

Дата: Пятница, 09.03.2018, 12:01 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Может кто посмотреть?

Ответить

draginoid

Дата: Понедельник, 12.03.2018, 10:37 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро
можете помочь с этой проблемой?

Ответить

SLAVICK

Дата: Понедельник, 12.03.2018, 11:48 | Сообщение № 25

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата draginoid, 28.02.2018 в 11:48, в сообщении № 22 ()

Я его закрываю, а он опять.
В чем может быть дело?

Вы Schedule - включили - а при закрытии файла не выключили вот он и срабатывает, поскольку само приложение помнит задачу.
Тут два варианта или выходить и убивать приложение - или добавлять отключение шедуллера

Иногда все проще чем кажется с первого взгляда.

Ответить

draginoid

Дата: Среда, 11.04.2018, 09:37 | Сообщение № 26

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добавил строчку с отключением шедуллера, вроде помогло.
Спасибо!

Все таки не работает отключение: не дает делать изменений в доке.
Помогите, где это нужно и как прописать, пожалуйста

Сообщение отредактировал draginoid - Среда, 11.04.2018, 16:12

Ответить

draginoid

Дата: Понедельник, 16.04.2018, 09:21 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро.
Кто может помочь подправить код?

Ответить

StoTisteg

Дата: Понедельник, 16.04.2018, 11:40 | Сообщение № 28

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата K-SerJC, 24.11.2017 в 12:06, в сообщении № 14 ()

я не знаю такого способа

Можно повесить открытие листов на событие SelectionChange открытого листа, тогда будет достаточно ткнуть мышкой в произвольное место.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

draginoid

Дата: Понедельник, 16.04.2018, 13:40 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Можете пример приложить?
Я такого не сделаю сам.

Ответить

StoTisteg

Дата: Понедельник, 16.04.2018, 14:17 | Сообщение № 30

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Я Вам код напишу, он примитивен.
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim sh As Worksheet

   On Error Resume Next
   If Workshheets(2).Visible=xlVeryHidden Then
      For Each sh In Worksheets
         sh.Visible = True
      Next sh
   End If

End Sub

[/vba]

Помещаете в модуль того листа, который остаётся открытым. При клике в произвольную ячейку после остальные листы открываются. Только проследите, чтобы 1) второй лист существовал в природе 2) не был открыт изначально.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

draginoid

Дата: Вторник, 17.04.2018, 11:12 | Сообщение № 31

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Спасибо
Хотел бы уточнить, вместо Workshheets(2) надо в скобки название своего пустого листа вписать?

Ответить

StoTisteg

Дата: Вторник, 17.04.2018, 12:53 | Сообщение № 32

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Нет, именно 2, ничего менять не надо — это проверка, закрыт ли второй лист, чтобы макрос не крутил все листы при попытке что-то сделать с первым, это не быстро, особенно если листов много.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

draginoid

Дата: Среда, 18.04.2018, 08:42 | Сообщение № 33

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

К сожалению, не помогло.

Ответить

StoTisteg

Дата: Среда, 18.04.2018, 12:26 | Сообщение № 34

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Пардон, в коде в 4 строке опечатка, должно быть If Worksheets(2).Visible=xlVeryHidden Then
Разве Вам дебаггер об этом не написал?

К сообщению приложен файл: 9912591.xlsm (18.3 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

draginoid

Дата: Среда, 14.11.2018, 11:01 | Сообщение № 35

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день
Хочу вернуть тему.
А как сделать, чтобы после клика изначально открытый лист скрывался бы, но открывался бы при следующем открытием документа?

Ответить

_Boroda_

Дата: Среда, 14.11.2018, 11:05 | Сообщение № 36

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А причем здесь эта тема?
- Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Автоматичсекое закрытие файла при неактивности. (Макросы/Sub)

Страница 2 из 2
«
1
2