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

Вход

Регистрация

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

 

= Мир MS Excel/Не удаляется кнопка из копии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не удаляется кнопка из копии (Формулы/Formulas)
Не удаляется кнопка из копии
Evgeniy9380 Дата: Понедельник, 18.04.2022, 10:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

День добрый! Есть файл-шаблон с макросом, после заполнения которого нажимаем внизу кнопку "Сохранить". Файл сохраняется с определенным именем (задается в макросе) в формате .xlsx в папку "Copy", расположенную в том же каталоге, что и файл-шаблон. Требуется убрать кнопку "Сохранить" из копии файла. Макрос кое-как удалось написать самому , но удалить кнопку из копии не получается никак. Так как я сам не программер, то способы, найденные в Интернете, не дают желаемого результата (или руки кривые). Поэтому прошу помощи уважаемых форумчан.
К сообщению приложен файл: Primer_1.xlsm (21.6 Kb)
 
Ответить
СообщениеДень добрый! Есть файл-шаблон с макросом, после заполнения которого нажимаем внизу кнопку "Сохранить". Файл сохраняется с определенным именем (задается в макросе) в формате .xlsx в папку "Copy", расположенную в том же каталоге, что и файл-шаблон. Требуется убрать кнопку "Сохранить" из копии файла. Макрос кое-как удалось написать самому , но удалить кнопку из копии не получается никак. Так как я сам не программер, то способы, найденные в Интернете, не дают желаемого результата (или руки кривые). Поэтому прошу помощи уважаемых форумчан.
Автор - Evgeniy9380
Дата добавления - 18.04.2022 в 10:00
Nic70y Дата: Понедельник, 18.04.2022, 10:26 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Evgeniy9380, вы же практически написали
[vba]
Код
   'создаем копию листа
   ThisWorkbook.Sheets(1).Copy
   ActiveSheet.Unprotect 'снять защиту листа
   ActiveSheet.Shapes.Range(Array("Button 1")).Delete
[/vba]

ЮMoney 41001841029809
 
Ответить
СообщениеEvgeniy9380, вы же практически написали
[vba]
Код
   'создаем копию листа
   ThisWorkbook.Sheets(1).Copy
   ActiveSheet.Unprotect 'снять защиту листа
   ActiveSheet.Shapes.Range(Array("Button 1")).Delete
[/vba]
Автор - Nic70y
Дата добавления - 18.04.2022 в 10:26
Evgeniy9380 Дата: Понедельник, 18.04.2022, 10:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, большое Вам спасибо! Подправил макрос по Вашему совету и все получилось. Я не знал, что защиту с листа надо снимать - она-то и не давала удалить кнопку.


Сообщение отредактировал Evgeniy9380 - Понедельник, 18.04.2022, 12:37
 
Ответить
СообщениеNic70y, большое Вам спасибо! Подправил макрос по Вашему совету и все получилось. Я не знал, что защиту с листа надо снимать - она-то и не давала удалить кнопку.
Автор - Evgeniy9380
Дата добавления - 18.04.2022 в 10:34
RAN Дата: Понедельник, 18.04.2022, 12:15 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
       Application.CopyObjectsWithCells = False
   'создаем копию листа
   ThisWorkbook.Sheets(1).Copy
       Application.CopyObjectsWithCells = True
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
       Application.CopyObjectsWithCells = False
   'создаем копию листа
   ThisWorkbook.Sheets(1).Copy
       Application.CopyObjectsWithCells = True
[/vba]
Автор - RAN
Дата добавления - 18.04.2022 в 12:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не удаляется кнопка из копии (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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