Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/открыват Excel только с 1 по 15 число каждого месяца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » открыват Excel только с 1 по 15 число каждого месяца (Макросы/Sub)
открыват Excel только с 1 по 15 число каждого месяца
Scolt Дата: Четверг, 03.03.2016, 12:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Привет!

Помогите с макросом %) !!! Требуется задать условие, чтобы документ Excell можно было открыть только с 1 по 15 число каждого месяца.
[moder]Переименуйте тему более конкретно.
Используйте свою же фразу:
Цитата
документ Excel можно было открыть только с 1 по 15 число каждого месяца
[/moder]


Сообщение отредактировал Scolt - Четверг, 03.03.2016, 13:38
 
Ответить
СообщениеПривет!

Помогите с макросом %) !!! Требуется задать условие, чтобы документ Excell можно было открыть только с 1 по 15 число каждого месяца.
[moder]Переименуйте тему более конкретно.
Используйте свою же фразу:
Цитата
документ Excel можно было открыть только с 1 по 15 число каждого месяца
[/moder]

Автор - Scolt
Дата добавления - 03.03.2016 в 12:18
KuklP Дата: Четверг, 03.03.2016, 13:21 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2003
Репутация: 436 ±
Замечаний: 0% ±

[vba]
Код
Private Sub Workbook_Open()
    If Day(Date) > 15 Then Application.Quit: ThisWorkbook.Close 0
End Sub
[/vba]
Замечание исправлено, ответ открыла.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал Manyasha - Четверг, 03.03.2016, 14:13
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    If Day(Date) > 15 Then Application.Quit: ThisWorkbook.Close 0
End Sub
[/vba]
Замечание исправлено, ответ открыла.

Автор - KuklP
Дата добавления - 03.03.2016 в 13:21
SLAVICK Дата: Четверг, 03.03.2016, 14:15 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 1841
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Application.Quit

Зачем так жестоко? :D .ТС попросил просто файл не открывать, а не убивать все приложение
Или это чтобы научить не открывать этот файл после 15-го? :D
Можно же просто:
[vba]
Код
Private Sub Workbook_Open()
    If Day(Date) > 15 Then ThisWorkbook.Close False
End Sub
[/vba]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Application.Quit

Зачем так жестоко? :D .ТС попросил просто файл не открывать, а не убивать все приложение
Или это чтобы научить не открывать этот файл после 15-го? :D
Можно же просто:
[vba]
Код
Private Sub Workbook_Open()
    If Day(Date) > 15 Then ThisWorkbook.Close False
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 03.03.2016 в 14:15
KuklP Дата: Четверг, 03.03.2016, 14:21 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2003
Репутация: 436 ±
Замечаний: 0% ±

Ибо нефиг! :deal:
Гулять, так гулять.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Четверг, 03.03.2016, 14:22
 
Ответить
СообщениеИбо нефиг! :deal:
Гулять, так гулять.

Автор - KuklP
Дата добавления - 03.03.2016 в 14:21
Апострофф Дата: Четверг, 03.03.2016, 14:26 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 26 ±
Замечаний: 0% ±

Excel 2003
If Day(Date) > 15 Then Application.Quit: ThisWorkbook.Close 0
Тогда и Close лишний, до него дело всё равно не дойдёт...
 
Ответить
Сообщение
If Day(Date) > 15 Then Application.Quit: ThisWorkbook.Close 0
Тогда и Close лишний, до него дело всё равно не дойдёт...

Автор - Апострофф
Дата добавления - 03.03.2016 в 14:26
Scolt Дата: Четверг, 03.03.2016, 14:37 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, Спасибо! Требовалось заставить пользователей вносить записи в общий документ строго с 1 по 15 каждого месяца. Попробовал. РАБОТАЕТ!
 
Ответить
СообщениеKuklP, Спасибо! Требовалось заставить пользователей вносить записи в общий документ строго с 1 по 15 каждого месяца. Попробовал. РАБОТАЕТ!

Автор - Scolt
Дата добавления - 03.03.2016 в 14:37
KuklP Дата: Четверг, 03.03.2016, 14:38 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2003
Репутация: 436 ±
Замечаний: 0% ±

Цитата Апострофф, 03.03.2016 в 14:26, в сообщении № 5
Тогда и Close лишний

Володь, ты бы попробовал сначала.
[vba]
Код
Private Sub Workbook_Open()
If Day(Date) > 2 Then Sheets(2).[a1].Value = "wwwww": Application.Quit: ThisWorkbook.Close 1
End Sub
[/vba]
Выполни и проверь А1 в листе 2 yes


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата Апострофф, 03.03.2016 в 14:26, в сообщении № 5
Тогда и Close лишний

Володь, ты бы попробовал сначала.
[vba]
Код
Private Sub Workbook_Open()
If Day(Date) > 2 Then Sheets(2).[a1].Value = "wwwww": Application.Quit: ThisWorkbook.Close 1
End Sub
[/vba]
Выполни и проверь А1 в листе 2 yes

Автор - KuklP
Дата добавления - 03.03.2016 в 14:38
Апострофф Дата: Четверг, 03.03.2016, 14:59 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 26 ±
Замечаний: 0% ±

Excel 2003
Уговорил, срабатывает :)
Только всё равно оно (CLOSE т.е.) лишнее, Ибо нефиг было в лист2 рюшечки всякие совать - не по правилам это:
Гулять, так гулять.
 
Ответить
СообщениеУговорил, срабатывает :)
Только всё равно оно (CLOSE т.е.) лишнее, Ибо нефиг было в лист2 рюшечки всякие совать - не по правилам это:
Гулять, так гулять.

Автор - Апострофф
Дата добавления - 03.03.2016 в 14:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » открыват Excel только с 1 по 15 число каждого месяца (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!