VBA - бутон за запазване на името на даден документ в клетка

Проблем

Трябва да създам бутон, който запазва модифициран документ като число в определена клетка (например в A6).

Решение

 Частна Sub CommandButton1_Click () '.xlsm или xls зависи от това дали искате да запазите макросите. ActiveWorkbook.SaveAs Име на файл: = "c: архив" & Клетки (1, 6) & ".xlsm" клетки (1, 5) = "Архивиран" Ако клетки (1, 5) = "Архивирани", тогава CommandButton1.Visible = Фалшив край при край на под 

Благодарение на f894009 за този съвет.