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). А чтож не так то???
Добрый день, форумчане!!! [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
Тезка, там все просто - если первая строка кода содержит Private Sub Workbook..., то код должен находиться в модуле "ЭтаКнига" (розовый), иначе ищем Private Sub Worksheet..., если оно есть, то этот макрос должен быть в модуле листа (зеленый), а если нет и этого слова, то макрос может находиться где угодно (и в обычном модуле (голубой) тоже). Это все в общем случае и не учитывает "особо продвинутые" названия макросов типа Private Sub Worksheet_Moy_Makros, которые нормальные люди макросам не дают.
Тезка, там все просто - если первая строка кода содержит Private Sub Workbook..., то код должен находиться в модуле "ЭтаКнига" (розовый), иначе ищем Private Sub Worksheet..., если оно есть, то этот макрос должен быть в модуле листа (зеленый), а если нет и этого слова, то макрос может находиться где угодно (и в обычном модуле (голубой) тоже). Это все в общем случае и не учитывает "особо продвинутые" названия макросов типа Private Sub Worksheet_Moy_Makros, которые нормальные люди макросам не дают.