открыват Excel только с 1 по 15 число каждого месяца
Scolt
Дата: Четверг, 03.03.2016, 12:18 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Привет! Помогите с макросом !!! Требуется задать условие, чтобы документ Excell можно было открыть только с 1 по 15 число каждого месяца. [moder]Переименуйте тему более конкретно. Используйте свою же фразу:Цитата
документ Excel можно было открыть только с 1 по 15 число каждого месяца
[/moder]
Привет! Помогите с макросом !!! Требуется задать условие, чтобы документ Excell можно было открыть только с 1 по 15 число каждого месяца. [moder]Переименуйте тему более конкретно. Используйте свою же фразу:Цитата
документ Excel можно было открыть только с 1 по 15 число каждого месяца
[/moder] Scolt
Сообщение отредактировал 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]Замечание исправлено, ответ открыла.
[vba]Код
Private Sub Workbook_Open() If Day(Date) > 15 Then Application.Quit: ThisWorkbook.Close 0 End Sub
[/vba]Замечание исправлено, ответ открыла. KuklP
Ну с НДС и мы чего-то ст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
Зачем так жестоко? .ТС попросил просто файл не открывать, а не убивать все приложение Или это чтобы научить не открывать этот файл после 15-го? Можно же просто: [vba]Код
Private Sub Workbook_Open() If Day(Date) > 15 Then ThisWorkbook.Close False End Sub
[/vba]
Зачем так жестоко? .ТС попросил просто файл не открывать, а не убивать все приложение Или это чтобы научить не открывать этот файл после 15-го? Можно же просто: [vba]Код
Private Sub Workbook_Open() If Day(Date) > 15 Then ThisWorkbook.Close False End Sub
[/vba]SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение Зачем так жестоко? .ТС попросил просто файл не открывать, а не убивать все приложение Или это чтобы научить не открывать этот файл после 15-го? Можно же просто: [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: Гулять, так гулять.
Ибо нефиг! :deal: Гулять, так гулять. KuklP
Ну с НДС и мы чего-то ст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 лишний, до него дело всё равно не дойдёт...Апострофф
Ответить
Сообщение 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
Ответить
Сообщение KuklP, Спасибо! Требовалось заставить пользователей вносить записи в общий документ строго с 1 по 15 каждого месяца. Попробовал. РАБОТАЕТ! Автор - Scolt Дата добавления - 03.03.2016 в 14:37
KuklP
Дата: Четверг, 03.03.2016, 14:38 |
Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Володь, ты бы попробовал сначала. [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
Володь, ты бы попробовал сначала. [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 KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Володь, ты бы попробовал сначала. [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 Автор - KuklP Дата добавления - 03.03.2016 в 14:38
Апострофф
Дата: Четверг, 03.03.2016, 14:59 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация:
122
±
Замечаний:
0% ±
Excel 1997
Уговорил, срабатывает Только всё равно оно (CLOSE т.е.) лишнее, Ибо нефиг было в лист2 рюшечки всякие совать - не по правилам это:
Уговорил, срабатывает Только всё равно оно (CLOSE т.е.) лишнее, Ибо нефиг было в лист2 рюшечки всякие совать - не по правилам это: Апострофф
Ответить
Сообщение Уговорил, срабатывает Только всё равно оно (CLOSE т.е.) лишнее, Ибо нефиг было в лист2 рюшечки всякие совать - не по правилам это: Автор - Апострофф Дата добавления - 03.03.2016 в 14:59