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

Sub Aut0_Close()

With ActiveWorkbook.VBProject.VBComponents
.Remove .Item(5)
End With

Sub end

Как будто здесь удаляется модуль и макросы исчезают.
Но вместе с тем в новом документе при использовании
пункта меню(где раньше работал макрос) появляется
предупреждение что такового макроса нет (

Цитата

икселевский файл у меня создается в результате приложения написанного на java

Цитата

есть макрос, который я назначила пункту меню.

Цитата

макрос работает один раз, когда у меня создается иксел файл.

хм, покажи код "одноразового" макроса
и зачем его присваивать пункту меню ??

Цитата

и зачем его присваивать пункту меню ??

это я делаю для меню "сохранить как". каким - то чудом
при создании иксел файла в данном пункте по умолчанию
типом файла является "веб архив", а мне нужно -
"книга excel". вот с этой целью и было написано два макроса:

Sub SaveAs()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)

With fd

If .Show = -1 Then

.Execute

Else
End If
End With

Set fd = Nothing

End Sub

Sub Auto_Open()

CommandBars.ActiveMenuBar.Controls(1).CommandBar.Controls(5).OnAction = "SaveAs"

End Sub.

И пусть бы работал этот макрос и дальше, но постоянно влезает предупреждение
системы безопасности.
Вот я и пытаюсь с этим как-то бороться.
Пусть бы она хоть один раз предупреждала, но этот файл будет сохранен еще
в n-ом количестве вариантов, и каждый раз при их открытии будет появляться
это предупреждение.

Вот почему я решила чтобы макрос работал только в первый раз. Но это решение
конечно кривое. Но другое мне в голову не приходит

Цитата

каким - то чудом при создании иксел файла в данном пункте по умолчанию типом файла является "веб архив", а мне нужно - "книга excel"

а не проще открыть EXCEL и поменять формат по умолчанию:сервис-параметры-переход-сохранять как....
или программно - при создании/сохранении файла

Код

Application.DefaultSaveFormat = xlNormal

это было бы значительно удобнее
а этот код тоже написать в макрос auto_open или можно как нить без макросов обойтись?
я сейчас написала такой единственный макрос, но в менюшке все равно отображается
вебархив

вариантов - туча, смотри по ситуации, можно так:

Код

Sub Auto_Open() Application.DefaultSaveFormat = xlNormal End Sub

Цитата

и зачем его присваивать пункту меню ??

Вот например есть несколько открытых книг. Одна из них отчет. В отчете выбираешь из списка и попадаешь в нужную книгу-нужный лист.Там вносишь изменения,получаешь результат и его надо кинуть в отчет.Что на каждом листе кнопку рисовать? Вот и нужна одна на панели инстументов.
У меня тоже такая ситуация возникла. Sub написала, кнопка на панели работает. И вот встал вопрос как сделать ,что бы кнопка при открытии документов загружалась,а при закрытии -тю-тю.Тогда и на другом компе будет грузиться.

трудно не согласиться, но я все же имел в виду данный конкретный случай

У меня вопрос!!!
Есть Excel таблица с данными(информация о клиенте, даты, суммы и пр.). Нужно вытащить эти данные и поместить их Word документы. Расположение этих данных в Worde различаются.  
Как это сделать???

Помогите пожалуйста решить задачи.
Нужно составить макросы в Экселе.

1
Перераспределить значения переменных x и y так, чтобы в x оказалось большее из этих значений, а в y — меньшее 
2
Пусть элементами равностороннего треугольника являются: 1) сторона a; 2) площадь S; 3) высота h; 4) радиус вписанной окружности r; 5) радиус описанной окружности R. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. 

Буду очень благодарна, если сможете решить! 

Здраствуйте. Помогите поправить задание в контрольной работе по информатике. 
Создан макрос, который считает количество телефонов по введенной марке телефона.

Sub zada4a2()
Sheets("База_данных").Select
    Range("A10").Select
    Selection.Copy
    Sheets("Задача2").Select
    Range("J4").Select
    ActiveSheet.Paste
Selection.Copy
    Sheets("Задача2").Select
    Range("J3").Select
    ActiveSheet.Paste

    Application.CutCopyMode = False
   фирма = InputBox("Введите название фирмы:")
    Range("J4").FormulaR1C1 = фирма

       Range("D7").Value = "Kоличество телефонов фирмы  " & фирма
End Sub

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