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

Вход

Регистрация

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

 

= Мир MS Excel/макрос Workbook_BeforeSave при копировании не стал работать - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос Workbook_BeforeSave при копировании не стал работать (Макросы/Sub)
макрос Workbook_BeforeSave при копировании не стал работать
lebensvoll Дата: Вторник, 22.03.2016, 12:01 | Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Добрый день, форумчане!!!
[vba]
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Worksheets(1).Range("AP1") = Now
ThisWorkbook.Worksheets(1).Range("AQ1") = Environ("USERNAME")
Range("K22") = WorksheetFunction.Min(Date, Range("K22"))
End Sub
[/vba]
Скопировал данный макрос с других своих протоколов (где все работало) перенес в данный протокол ((((( и что то не так что ли сотворил (((( не могу понять. Не стал прописывать дату время а также ФИО. Не знаю возможно даже уже и этот макрос не стал работать (тема была раскрыта сегодня: My WebPage сообщение №14).
А чтож не так то???
К сообщению приложен файл: 0674015.xlsm (65.7 Kb)


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Вторник, 22.03.2016, 12:02
 
Ответить
СообщениеДобрый день, форумчане!!!
[vba]
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Worksheets(1).Range("AP1") = Now
ThisWorkbook.Worksheets(1).Range("AQ1") = Environ("USERNAME")
Range("K22") = WorksheetFunction.Min(Date, Range("K22"))
End Sub
[/vba]
Скопировал данный макрос с других своих протоколов (где все работало) перенес в данный протокол ((((( и что то не так что ли сотворил (((( не могу понять. Не стал прописывать дату время а также ФИО. Не знаю возможно даже уже и этот макрос не стал работать (тема была раскрыта сегодня: My WebPage сообщение №14).
А чтож не так то???

Автор - lebensvoll
Дата добавления - 22.03.2016 в 12:01
Pelena Дата: Вторник, 22.03.2016, 12:05 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Я так понимаю, что этот макрос должен быть в модуле книги, а у Вас - в модуле листа


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЯ так понимаю, что этот макрос должен быть в модуле книги, а у Вас - в модуле листа

Автор - Pelena
Дата добавления - 22.03.2016 в 12:05
KuklP Дата: Вторник, 22.03.2016, 12:06 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Еще бы. Кто Вас надоумил запихнуть его в модуль листа? Это событие уровня книги, туда и вставляйте.
Лена опередила :)


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


Сообщение отредактировал KuklP - Вторник, 22.03.2016, 12:07
 
Ответить
СообщениеЕще бы. Кто Вас надоумил запихнуть его в модуль листа? Это событие уровня книги, туда и вставляйте.
Лена опередила :)

Автор - KuklP
Дата добавления - 22.03.2016 в 12:06
lebensvoll Дата: Вторник, 22.03.2016, 12:06 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Pelena, Все да правильно, СПАСИБО ОГРОМНОЕ!!!


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеPelena, Все да правильно, СПАСИБО ОГРОМНОЕ!!!

Автор - lebensvoll
Дата добавления - 22.03.2016 в 12:06
lebensvoll Дата: Вторник, 22.03.2016, 12:07 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
KuklP, )))) ни кто, я не могу с ними обращаться воообще ((((( по анологии скопировал но вот вставил не туда ))))) СПАСИБО


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеKuklP, )))) ни кто, я не могу с ними обращаться воообще ((((( по анологии скопировал но вот вставил не туда ))))) СПАСИБО

Автор - lebensvoll
Дата добавления - 22.03.2016 в 12:07
_Boroda_ Дата: Вторник, 22.03.2016, 12:09 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Кто Вас надоумил

Не я, здесь все нормально было
http://www.excelworld.ru/forum/2-22290-179739-16-1458629191


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

Не я, здесь все нормально было
http://www.excelworld.ru/forum/2-22290-179739-16-1458629191

Автор - _Boroda_
Дата добавления - 22.03.2016 в 12:09
KuklP Дата: Вторник, 22.03.2016, 12:11 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я ни на кого не намекал, если что :D


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЯ ни на кого не намекал, если что :D

Автор - KuklP
Дата добавления - 22.03.2016 в 12:11
_Boroda_ Дата: Вторник, 22.03.2016, 12:51 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
я не могу с ними обращаться воообще

Тезка, там все просто - если первая строка кода содержит Private Sub Workbook..., то код должен находиться в модуле "ЭтаКнига" (розовый), иначе ищем Private Sub Worksheet..., если оно есть, то этот макрос должен быть в модуле листа (зеленый), а если нет и этого слова, то макрос может находиться где угодно (и в обычном модуле (голубой) тоже).
Это все в общем случае и не учитывает "особо продвинутые" названия макросов типа Private Sub Worksheet_Moy_Makros, которые нормальные люди макросам не дают.

Я ни на кого не намекал

Да это я так, шутки шучу.
К сообщению приложен файл: 1099290.gif (16.9 Kb)


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

Тезка, там все просто - если первая строка кода содержит Private Sub Workbook..., то код должен находиться в модуле "ЭтаКнига" (розовый), иначе ищем Private Sub Worksheet..., если оно есть, то этот макрос должен быть в модуле листа (зеленый), а если нет и этого слова, то макрос может находиться где угодно (и в обычном модуле (голубой) тоже).
Это все в общем случае и не учитывает "особо продвинутые" названия макросов типа Private Sub Worksheet_Moy_Makros, которые нормальные люди макросам не дают.

Я ни на кого не намекал

Да это я так, шутки шучу.

Автор - _Boroda_
Дата добавления - 22.03.2016 в 12:51
lebensvoll Дата: Среда, 23.03.2016, 09:50 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, спасибо огромное опять ваша информация помогла мне как и куда правильно прописывать макрос. Без ошибочно ))))) так сказать...


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщение_Boroda_, спасибо огромное опять ваша информация помогла мне как и куда правильно прописывать макрос. Без ошибочно ))))) так сказать...

Автор - lebensvoll
Дата добавления - 23.03.2016 в 09:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос Workbook_BeforeSave при копировании не стал работать (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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