Не сохранять если не заполнены все необходимые поля

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

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

Не сохранять если не заполнены все необходимые поля (Формулы/Formulas)

Alevtina

Дата: Среда, 03.06.2015, 12:56 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

Подскажите, пожалуйста, есть файл в котором необходимо клиентам заполнять все поля, многие заполняют выборочно, существует ли такая формула что бы файл не сохранялся если хоть одно поле не заполнено?
Или может какое-то уведомление/комментарий что бы выскакивал, к примеру "поле НЕ заполнено".

К сообщению приложен файл: _-15__2-12-_--.xls (50.0 Kb)

Ответить

KSV

Дата: Среда, 03.06.2015, 13:25 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

это нельзя сделать формулой, но можно макросом (см. вложенный файл - если одно из желтых полей не заполнено - сохранить не даст)

К сообщению приложен файл: -15_2-12-.xls (59.0 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Среда, 03.06.2015, 13:31

Ответить

Alevtina

Дата: Среда, 03.06.2015, 13:38 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

KSV, Спасибо, а как это делается, очень сложно для тех кто не имел с этим дело ни разу? Хотелось бы уметь самостоятельно прописывать макросы в подобного вида файлах.

Ответить

KSV

Дата: Среда, 03.06.2015, 13:50 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

Цитата Alevtina, 03.06.2015 в 13:38, в сообщении № 3

а как это делается

Макросы пишутся в редакторе VBE (открывается по Alt+F11) на языке Visual Basic for Application (VBA)

Цитата Alevtina, 03.06.2015 в 13:38, в сообщении № 3

Хотелось бы уметь самостоятельно прописывать макросы

Если Вы знаете Visual Basic, то это не составит труда, если нет - нужно учить... (посмотрите в интернете что-нибудь, типа, VB для начинающих)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Среда, 03.06.2015, 13:55

Ответить

Alevtina

Дата: Среда, 03.06.2015, 14:04 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

ох... спасибо, посмотрю, но это дело не одного дня как я понимаю ))
извините за наглость, не поделитесь самим макросом, как он пишется? Дело в том, что файл который я прикрепила, это один отдельно сохраненный лист из книги в которой 12 листов, пробовала вставить обратно в книгу, макрос теряется... Книгу всю прикрепить не могу из-за ограничения размера файла ((

Ответить

KSV

Дата: Среда, 03.06.2015, 14:26 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

Цитата Alevtina, 03.06.2015 в 14:04, в сообщении № 5

не поделитесь самим макросом

так, он же в Вашем файле

(откройте файл и нажмите Alt+F11)
вот, его код:[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Dim c As Range
     On Error Resume Next
     Set c = Range("X2,AI2,O10,O12,Y12,AK12,A18,A22,J31,J34,J37,A42,A46").SpecialCells(xlCellTypeBlanks)
     If Err.Number Then Exit Sub
     MsgBox "Сохранение возможно только после заполнения всех полей.", vbExclamation, "Поле не заполнено!"
     c.Select
     Cancel = True
End Sub

[/vba]