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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
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
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


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

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

Excel 1997
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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата Апострофф, 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им! kuklp60@gmail.com
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

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

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

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