Специальная вставка

[dzv]

Доброго времени суток!

Возник один вопрос, надеюсь легкий для Участников форума.

Возможно как-то ограничить функцию "Специальная вставка"?!

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

[SAS888]

Посмотрите вложение. Так нужно?

[dzv]

SAS888, к сожалению не так.
Помните Ваш пример с запретом всех функций панели меню?
Я взял его за основу, удалил не нужные, скажем так, запреты, оставив для меня нужные. Все работает.
Копирование по значению мне необходимо, чтобы формат ячеек не изменялся. В вашем примере затирается формат, поэтому для меня к сожалению не подходит.

Возможно также в "Специальной вставке" запретить все по ID, оставив вставку по "значения" (вот только необходимые ID найти не могу)?

[SAS888]

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

Ну так уберите из макроса "InsertC" строку

Selection.NumberFormat = "@"

вот только необходимые ID найти не могу

И не найдете, т.к. идентификатор команды тот же, аргументы разные.

[dzv]

SAS888, вы абсолютно правы! Только что внимательно рассмотрев Ваш пример все увидел, спасибо!

Не подскажите, как мне правильно Ваш чудо макрос добавить правильно в тот (я со своим знанием VBA могу что-то поломать)?

[SAS888]

Давайте файл с "тем" макросом (если стоит пароль на проект - предварительно уберите его).

[dzv]

SAS888, скажите пожалуйста Ваш эл.адрес, не могу его выложить на общее обозрение.

[SAS888]

Мой e-mail в профиле.
Я тут подумал, что можно, наверное, сделать на много проще: не создавать новый пункт в контекстном меню ячейки листа и не отключать спец. вставку, а перехватывать ID команды "спец. вставка" и переназначать ей свой макрос. Нужно пробовать. Но сегодня у меня уже времени не будет. Хотите - попробуйте сами.

[dzv]

Мой e-mail в профиле.

Так и не понял где он там.

SAS888, спасибо Вам!
Я взял с Вашего примера код вставки, к которому добавил кнопку, обозвав ее "Вставка". Работает и думаю это то, что нужно

P.S. Хотя все же хотелось бы увидеть реализацию предложенной Вами идеи.

[SAS888]

хотелось бы увидеть реализацию предложенной Вами идеи.

Посмотрите вложение. Все существенно проще. При открытии файла перехватывается ID команды "Специальная вставка" и назначается свой макрос. При закрытии книги, все восстанавливается. Теперь, при выполнении спец. вставки, окно с предложением выбрать параметры вставки отображаться не будет, а будет осуществлена спец. вставка "только значений". Попробуйте.