Макрос - когда файл Excel сохраняют, сообщение о его изменении должно приходить людям на почту

[DJLanc]

Добрый день форумчане У меня проблема нужно написать макрос что бы когда файл Excel сохраняют, сообщение о его изменении приходило людям на почту.

[Streletz]

Самостоятельные попытки были?

[DJLanc]

Да есть написан макрос . но для ХР просто на имя компьютера отправляется уведомление о изменении .... но так как все компьютера уже на 7 то нужно новый макрос.

[Hugo121]

Можно сохранять не изменяя...

[DJLanc]

там файл не изменяться не может!!! он по несколько раз в день меняется !!!! и эти изменения должны видеть несколько людей

[Streletz]

Сообщение от DJLanc

Да есть написан макрос . но для ХР просто на имя компьютера отправляется уведомление о изменении .... но так как все компьютера уже на 7 то нужно новый макрос.

Код в студию!

[DJLanc]

После обеда выложу код!

[DJLanc]

Вот макрос! простите что так долго был в отпуске..

[DJLanc]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show
'Stop
End Sub

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
    Call Сохранение
    tt = ActiveWorkbook.Name
    Shell "net send ECONOMIST-6 Изменение актуального плана. " & tt 'Я :))
    Shell "net send Zastdir Изменение актуального плана. " & tt 'не Вербицкий
    Shell "net send Tehdir Изменение актуального плана. " & tt 'Кропивницкий
    Shell "net send Nachyakist Изменение актуального плана. " & tt 'Сніжко
    Shell "net send Zavlab Изменение актуального плана. " & tt 'кто-нибудь из лаборатории
    Shell "net send Nachlogist Изменение актуального плана. " & tt 'Ол
    Shell "net send Логiст-2 Изменение актуального плана. " & tt 'Леся Лесичка
    Shell "net send Логiст-3 Изменение актуального плана. " & tt 'Орел
    Shell "net send COLDBLOCK Изменение актуального плана. " & tt 'Чубенко
    Shell "net send NACHPIVO Изменение актуального плана. " & tt 'Нех Ю.
    Shell "net send Personal Изменение актуального плана. " & tt 'Прядка
    Shell "net send Nachkvas Изменение актуального плана. " & tt 'Максименко
    Shell "net send Nachpostach Изменение актуального плана. " & tt 'Пастухов
    Shell "net send Laboratoria-1 Изменение актуального плана. " & tt 'Лаб. пива
    Shell "net send Skladpivo Изменение актуального плана. " & tt 'Склад ТМЦ пива
    Shell "net send NACHSKLAD Изменение актуального плана. " & tt 'Левандовский
    Shell "net send Логiст-2 Изменение актуального плана. " & tt 'Демченко
    Shell "net send ECONOMIST-2 Изменение актуального плана. " & tt 'Оноприйчук
    '''Shell "net send ECONOMIST-6 Изменение актуального плана. " & tt 'Чубенко
    Shell "net send Pivovar-2 Изменение актуального плана. " & tt 'Свірська
    Shell "net send GOLPIVOVAR Изменение актуального плана. " & tt 'Сорвалов
    Shell "net send Nachelectronik Изменение актуального плана. " & tt 'Шалгунов
    Shell "net send Nachtehviddil Изменение актуального плана. " & tt 'Линов
    Shell "net send Masterpivo Изменение актуального плана. " & tt 'Майстри цеху розлива
    Shell "net send Tehnolog-2 Изменение актуального плана. " & tt 'Кравченко (Нех Ю.)
    Shell "net send Nachuit Изменение актуального плана. " & tt 'Малецький
Else
    ActiveWorkbook.Save
   End If
UserForm1.Hide
End Sub


Public Sub Сохранение()
'
' Макрос1 Макрос
' Макрос записан 05.08.2009 (1)

    Sheets("имя").Calculate
   aa = Worksheets("имя").Cells(1, 5)
    y = Worksheets("имя").Cells(1, 2)
        'ChDir "D:\Temp"
       ' ActiveWorkbook.SaveAs Filename:="\\Mainserver\актуальный план\Графік  виробництва\" + y + ".xls", FileFormat:= _
       '     xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
       '     , CreateBackup:=False
            
           ChDir "\\Mainserver\Актуальный план\Графік  виробництва"
    ActiveWorkbook.SaveAs Filename:= _
        "\\Mainserver\Актуальный план\Графік  виробництва\" + y + ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        
  
'Stop
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[EducatedFool]

А разве в Win7 способ с net send не работает?
на почту - намного сложнее отправить (в WinXP - просто, там через CDO можно отправить почту) - в Win7 нет встроенных компонентов для рассылки почты, надо использовать почтовую программу какую-нибудь (а какая установлена на компе пользователя - неизвестно)

Проще восстановить работоспособность net send - если такой вариант вас устраивал