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

На выбор у тебя шаблоны “деталь”, “сборка” и “чертеж”. Ты выбираешь “деталь”, создаешь ее. В процессе ее создания ты сталкиваешься с проблемами по типу “неточного отображения” скруглений, неудобного способа ввода размеров  (субъективно), цвета, примечаний и т.д. т.п.

Далее выбираешь “создать чертеж из детали” и создаешь чертеж. И в процессе создания чертежа ты сталкиваешься с проблемами: неправильный штамп, нет автоматического заполнения полей в штампе, не “по госту“ размеры, надписи, примечания и т.д. и т.п.

Далее создаешь спецификацию… И в ней ничего нет.

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

Начнем с самых важных первичных настроек: “Настройки пользователя”.

Открыв солид сразу жмем шестерню в верхней панеле и лезем в эти настройки.

ВНИМАТЕЛЬНО изучаем каждый пункт и в случае необходимости настраиваем его. Да - их много. Да - займет много времени. Но - это необходимо. Иногда для понимания что настройка меняет проще начать создавать модель и прям на ней всё тестить - здесь изменения применяются в “реал тайме” потому всё наглядно будет. Но в целом настройки в этом меню влияют на интерфейс, способы ввода, производительность и т.п. Чуть позже, когда ты освоишься в программе, ты сам поймешь что захочешь поменять, и теперь будешь знать где это делается. Настроили - радуемся, ибо эти настройки применяются и сохраняются на весь профиль и до следующего ручного внесения изменений.

Далее - настроим “чертежный стандарт”.

Создаем “новую деталь” (пустую - ничего более не делаем) из стандартного шаблона, сразу жмем шестерню и выбираем “свойства документа”. Лезем в эти настройки - ВНИМАТЕЛЬНО ознакамливаемся … бла бла бла … это необходимо. Из особо бесящих пунктов которые по умолчанию вечно не “по госту” настроены:

• шрифты (везде),

• стиль примечаний,

• первичная и двойная точность размеров,

• стили отображения линий гиба,

• обозначения видов,

• детализация,

• настройки листового металла.

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

После этого возвращаемся в первый пункт ”чертежный стандарт” и сохраняем его как новый свой через кнопку “сохранить во внешнем файле”. Это первый шаг настроек шаблонов и пока рано радоваться.

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

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

Создаем новую “деталь” - и рядом с шестерней видим кнопку “свойства файла”.

Здесь прописываются параметры, автоматически подтягиваемые по “имени свойства” в различные поля. Если вы начинающий пользователь - то вам потребуются как минимум поля “обозначение”, “наименование”.

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

“уникальный инвентарный номер (обозначение)”+“пробел”+”название (наименование)”

для ускорения поиска и удобной работы с нумпад блоком - ставить запятые в номере можно и нужно. Пример: “276,000,012 Труба” или “276,010,000СБ Каркас из труб”.

Почему именно такой вид наименования? Потому что в будущем большинство макросов смогут позволить в автоматическом режиме разделять название файла на “слово до пробела” и “слово после пробела” и автоматически вносить их в поля “Наименование” и “Обозначение” в спецификациях. Также существует известный баг/фича солида - когда он подгружает в сборке деталь с идентичным названием из недавно открытых (из кеша) но из другой папки, а не ту что находится в папке со сборкой. По невнимательности можно сильно себе попортить проект. Но эту фичу можно обернуть и во благо - выполняя частичную подмену файлов в сборке если необходимо создать сторонние привязки модели. Но об этом в другой раз.

Далее если вам потребуется еще несколько автоматически заполняемых поля, то можно использовать “Авто Параметры”, которые выглядят следующим образом:

$PRP:"название параметра"

Вот список некоторых из автоматически создаваемых параметров в Солидворксе:

• SW-Short Date: дата в формате короткого отображения (01.01.2023).

• SW-Long Date: дата в формате длинного отображения (01 января 2023 г.).

• SW-Mass: масса модели в килограммах.

• SW-Volume: объем модели в кубических метрах.

• SW-Material: название материала, заданного для модели.

• SW-Density: плотность материала.

Остальные ты загуглишь когда тебе это потребуется.

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

Я его немного допилил под себя, поправил какие мне нужно параметры.

Чтобы использовать другой/иной/чужой/нечто шаблон тебе нужно знать следующее: не обязательно заменять оригинальные шаблоны и файлы в папке установки солида. Даже более - не нужно хранить все эти шаблоны и настройки на диске С вместе с солидом. К примеру у меня есть диск D в котором создана синхронизирующаяся через облако папка “Distribs” в которой я и храню все свои настройки солида. Это позволяет мне иметь в облаке для нескольким компьютеров одну и туже папку с настройками, которые автоматически обновляются для всех пк при внесении изменений на одном из них.

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

Но это еще не всё - “шаблоны по умолчанию” ты указал, а теперь еще укажи дополнительно “расположение файлов шаблонов”. Не спрашивай про логику - слишком долго пояснять, потому просто перейди на пункт ниже и снова укажи ту же папку и там:

И тут еще пара нюансов:

во первых: при настройке шаблона чертежа тебе нужно настроить и все штампы/форматки/основные надписи (всех размеров - от а4 до а0). Это нужно для того чтобы во всех форматках были заготовлены поля с нужными параметрами для автозаполнения.

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

в третьих: в шаблоне детали и чертежа всегда присутствует привязка к библиотеке материалов. И стандартная библиотека солида - это прям “ну такое себе”. Потому большинство пользователей предпочитают использовать нормальные распространенные в рф библиотеки. А это значит - скачивая нормальные шаблоны с форматками, к ним еще и библиотека материалов должна быть приложена =)

Но не переживай - их есть у меня. Вдобавок еще и шаблончик таблицы спецификации и вырезов сварного изделия. Прикреплю в конце архивом. И еще конечно блок гостовских профилей. Если ты еще не в курсе - в солиде есть команда "конструкции", позволяющая создавать модели из "вытяжных" профилей стандартных и собственных сечений. Можно указать и их расположение в настройках файлов (по умолчанию по адресу: C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\russian\weldment profiles)

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

Для начала - я пользуюсь пакетом макросов SWPlus Macros:

https://www.youtube.com/watch?v=BJPRxJWPjhc&list=PLuovjC...

Я его немного допилил под себя, поправил какие мне нужно параметры. Сам слегка поправленный пакет я прикреплю, однако ссыль ведет на ютуб автора где тот ныне рекламирует еще и платную версию, собранную в виде подключаемого модуля к солиду. Пока у меня не хватило времени чтобы ознакомиться с ней (да и деняг жалко), но в целом по функционалу она почти ничем не отличается от того пакета макросов. Видео инструкция по их установке имеется, но благодаря нерасторопному темпу голоса автора и излишней перегруженности ненужной инфой суммарно заняла 9 видосов от 5 до 60 минут, а смотреть на скорости ниже 2х - тяжко. Потому предлагаю короткий гайд как быстро настроить эти макросы:

1 - распакуй все в подготовленную папку с настройками для солида, так чтобы выглядело как на скрине ниже:

и вот еще вдогонку что ты закинешь в папку рядышком (можно даже в ту же):

2 - Выполни указание расположений шаблонов как указано в руководстве выше, указав сначала “шаблоны по умолчанию”, а после “месторасположение файлов” из раскрывающегося там списка:

• шаблоны документов

• чертежный стандарт

• шаблон спецификации

• база данных материалов

• основные надписи

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

3 - Установка макросов.

3.1 Создаем новую деталь/чертеж (для каждого будет свой набор макросов)

3.2 В любом месте на верхней панеле проектирования жмякаем ПКМ и выбираем настройки.

3.3 Переходим на вкладку “команды” и при помощи поиска находим “макрос”

3.4 Перетаскиваем иконку “создать кнопку макроса” на панель проектирования в любое удобное тебе место, после чего появляется меню добавления макроса

3.5 Здесь тебе нужно добавить каждый из макросов с расширением “.swp”, создав для каждого из них кнопку. В графе метод могут присутствовать несколько методов - в таком случае выбираем тот у которого присутствует в названии “.main”.

3.6 Итого для шаблона детали у тебя должны быть добавлены эти макросы:

а для чертежа эти:

последние три у тебя будут отсутствовать - это удобные для моей работы ”упрощалки”, свои ты создашь с появлением необходимости самостоятельно уже.

3.7 Если ты всё сделал верно - то всё будет работать. Для проверки работоспособности - создаем деталь с названием “100,100,100 деталь”, сохраняем на рабочий стол. далее создаем чертеж из детали и сохраняем с таким же названием там же (названия одинаковые, расширения разные если что). После того как чертеж сохраним - жмякаем на кнопку “MProp” и смотрим - подтянутся ли туда название и обозначение. Также на чертеже уже должно быть отображено время создания чертежа.

Ну и теперь осталось бегло пробежаться по списку функций макросов чтобы ты понимал что они умеют и зачем нужны:

4.1 Master - меняет размер форматки, содержит настройки шаблонов. Кнопки “создать основные форматы” и “настроить шаблоны” тыкать только после ознакомления с подробной видеоинструкцией.

4.2 DProp (выше переименованный мною как “настройка чертежа”) - настройка масштаба, обновление старой форматки, добавление версии изменения и т.п.

4.3 MProp - удобное редактирование штампа, указание всех необходимых полей без ковыряния вручную. Как видно на скриншоте наименование и обозначение автоматически подтянулись.

4.4 Roughness - настройка шероховатости на чертеже.

4.5 Save as (иногда и ass) - сохранение чертежа.

4.6 SpecEditor - создает спецификацию, вполне неплохо отсортированную, но иногда чуть чуть ручками поковырять придется. Не забудь указать лист А4-SP-1 или 2 для спецификации. Более подробно - у автора макроса в видео.

Еще я натыкался на такой вот аналог макроса по созданию спецификации:

https://www.youtube.com/watch?v=0OlkVHn7YVY

Так что если с текущим будут проблемы - можно попробовать его, вполне неплохо работал у меня после перенастроек под мои же шаблоны.

Ну и заключительный пункт: база toolbox для солида. Это что то вроде библиотеки элементов со стандартными элементами и гостовским крепежом. Тут отдельная жопа с поиском верной версии под нужный солид, потому советую тебе погуглить. Я же всегда качал отсюда:

https://leninsw.blogspot.com/2017/02/solidworks-toolbox-2012-2017.html

В моем архиве я приложу установщики текущих, в которых у меня гостовские элементы работают. Ставить в соответствии с инструкцией по ссылке выше.

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

#comment_274579348

https://disk.yandex.ru/d/_vymNW25xt7eWQ

И вот, спустя кучу времени и текста - ты настроил солид и можешь сесть поработать, эффективно и спокойно… Блин… Работать…

В дальнейшем планирую запилить еще один подобный “мануальчик” по тонким настройкам которые я использую, повышающим удобство и скорость работы (созданию моделей и чертежей).

Для тех у кого остались/появились вопросы или он благодаря этому мануалу смог улучшить скорость своей работы, разбогатеть и теперь ни в чем не нуждаясь желает отблагодарить меня - мои контакты:

https://vk.com/axkarlov

https://t.me/cartmanisonfire

https://discord.gg/qYjYE89Tsn

Теперь идем в эту вкладку, нажимаем «Записать макрос» выбираем имя жмакаем «ок». Все, теперь любые действия в Excel надежным образом записываются.

Давайте теперь что-то сделаем. На пример поменяем заливку ячейки А1, в ячейку A2 напишем значение «Мама, я программист», а в ячейке А3 пропишем формулу текущей даты «=Сегодня()»

Останавливаем запись макроса. Нажимаем иконку «Макросы», выбираем наш макрос как мы его обозвали, нажимаем кнопку «изменить».

Появляется окно Microsoft Visual Basic for Applications. Кстати оно также вызывается комбинацией клавиш (Alt + F11) У меня почему-то вызывается только левым Altом, а правым нет, видимо намекая на то что для написания макросов лучше иметь 2 руки (хотя я и одной нажать могу). Появился редактор языка VBA – это язык, который написан специально под офис чтобы на нем писать макросы. В основном окне видим саму эту запись, которую автоматически сделал Excel.

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "Мама, я программист"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A4").Select
End Sub

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

Теперь давайте разбираться что делает этот макрос

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

(Весь этот кусок от начала говорит нам о том, что с тем элементом что был выделен ранее происходит некоторое дерьмо, в том числе изменение цвета. Вот там, где Color = 255. Все остальное это параметры заливки, которые по итогу не менялись, но макрорекордер решил их тоже записать, на всякий. Это связано с внутренними особенностями работы excel как я понял. Вообще привыкайте к тому что макрорекордер пишет много того что потом вообще можно удалить. Конструкция With – End With позволяет делать несколько действий с одним объектом, на пример выше берется объект Selection.Interior, то есть фон выбранной области и ряду параметров этой заливки назначаются конкретные значения. То есть With нужен для облегчения записи кода, чтобы Selection.Interior не писать вначале каждой строчки.

Range("A2").Select –выделяем ячейку «A2»
ActiveCell.FormulaR1C1 = "Мама, я программист" – пишем в ячейку значение
Range("A3").Select – выделяем ячейку «А3»
ActiveCell.FormulaR1C1 = "=TODAY()" –пишем в ячейку формулу
Range("A4").Select – зачем то выделяем ячейку А4.
End Sub

Теперь при создании нового листа и запуске этого макроса он будет делать все то же самое.

Тут стоит понимать, что половину того что записал макрос можно опустить, так как нам важен результат, а не путь по которому к этому результату пришли, а макрорекордер записывает именно путь. На пример вместо всей конструкции With можно записать

Range("A1").Interior.Color = 255

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

Range(“A2”).Value = ”Мама, я программист”

или писать формулу как в третей ячейке

Range(“A3”).FormulaR1C1 = ”=TODAY()”

С формулами и значениями лично мне не понятно, как excel их интерпретирует, но в макрорекордре он записывает любой ввод в ячейку как ввод формулы. Благо лично у меня при написании макросов не возникает необходимости писать формулы в ячейки. На пример вместо вставки формулы как это было выше можно написать Range(“A3”).Value = Date(), тогда макрос вставит сразу текущую дату в ячейку как значение.

Опытные макроделы пишут макросы сразу без их записи макрорекордером, но это полезный инструмент для самостоятельного изучения при написании макросов: если не знаешь, что как делается в VBА то запускаешь и делаешь, потом смотришь что он там написал.

Теперь давайте напишем какой ни будь полезный макрос, я буду писать строчки и как можно подробнее их комментировать. Комментарии от программы отделяются символом «‘», он ставится вначале комментария. Прошу учесть, что я самоучка и многого не знаю, и просто напишу так ка делаю это сам, возможно есть более изящные решения. Напоминаю, что это просто ознакомительный опус для тех, кто не в зуб ногой.

Sub Colorization()
'начало нашего макроса и его название
Dim x As Integer
'объявляем переменную х типа интеджер, это тип для целых чисел от -32 768 до 32 767 (2 байта),
'она нам нужна для перебора ячеек
For x = 1 To ActiveSheet.UsedRange.Rows.Count
'перебираем х от 1 до конца использованной части листа, то есть не весь лист, а там где есть данные.
'Тут цикл For повторяется от этой строки до строки Next x, которая прописана ниже
If Cells(x, 1).Value = "красный" Then Cells(x, 1).Interior.Color = RGB(255, 0, 0)
'если значение в ячейке равно "красный" то закрашиваем ячейку в красный цвет. Функция If выполняет часть
'после Then если условие между If и Then верно. Так как у нас необходимое действие занимает одну
'строку можно писать в таком виде, если же действий несколько применяется конструкция:
'If … Then
'…
'…
'End If
If Cells(x, 1).Value = "зеленый" Then Cells(x, 1).Interior.Color = RGB(0, 255, 0)
'как выше только в зеленый цвет
If Cells(x, 1).Value = "синий" Then Cells(x, 1).Interior.Color = RGB(0, 0, 255)
'в синий цвет
Next x 'берем следующее значение х, конец цикла For, который мы начали выше
End Sub 'конец макроса
Как работает этот макрос: берет первый столбец, сначала 1 ячейку, смотрит что в ней написано, и если это равно «красный», «зеленый» или «синий», то красит фон ячейки в этот цвет, если нет по пропускает. Потом берет вторую и т. д. до конца активной части текущего листа.
Для проверки работы макроса нам нужен лист, где в первом столбце будут случайным образом прописаны цвета «красный», «зеленый», «синий». Запускаем макрос – когда он отработает ячейки будут раскрашены:

Некоторые пояснения: если не писать просто Cells то макрос будет делать все в активном листе активного окна. Но макрос может идти и в другие листы, файлы, даже в другие приложения офиса, но об этом не сегодня.

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

Итак, на этом пока все. Надеюсь теперь те, кто никогда не видел макросов получат о них начальное представление. Дальше буду писать про более практичное применение.

Двойным щелчком откройте модуль ЭтаКнига (ThisWorkbook) и вставьте туда пару наших макросов для обработки событий открытия и закрытия книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'ищем последнюю занятую строчку в логах

lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row

'заносим дату-время выхода из файла

If lastrow>1 Then Worksheets("Лог").Cells(lastrow, 3) = Now

'сохраняемся перед выходом

ActiveWorkbook.Save

End Sub

Private Sub Workbook_Open()

'ищем последнюю занятую строчку в логах

lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row

'заносим имя пользователя и дату-время входа в файл

Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")

Worksheets("Лог").Cells(lastrow + 1, 2) = Now

End Sub

Попробуйте открыть-закрыть этот файл пару раз и убедитесь, что на лист Лог попадает ваше имя пользователя (логин входа в Windows) и дата-время:

Этап 3. Улучшаем надежность

Можно было бы скрыть лист Лог и на этом остановиться, но есть одно "но": если у пользователя, который открывает нашу книгу, макросы разрешены по умолчанию либо он сам их разрешает, нажав в окне предупреждения на кнопку Включить содержимое, то все в порядке:

Но что если пользователь не разрешит выполнение макросов или они отключены у него по умолчанию? Тогда наши макросы отслеживания выполняться не будут и фиксации имени и даты не произойдет :( Как же заставить пользователя разрешить использование макросов?

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

Суть в том, чтобы по умолчанию скрыть в книге все листы кроме этого, а рабочие листы с данными отображать с помощью специального макроса. Если пользователь не разрешил выполнение макросов, то он увидит в книге только один лист с предупреждением. Если же макросы разрешены, то наш макрос обработки события открытия книги скроет лист с предупреждением и отобразит листы с данными. Чтобы пользователь сам не отобразил их - используем суперскрытие вместо обычного скрытия листов (параметр xlSheetVeryHidden вместо обычного False).

Чтобы реализовать все описанное, слегка изменим наши процедуры в модуле ЭтаКнига (ThisWorkbook)

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'ищем последнюю занятую строчку в логах

lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row

'заносим дату-время выхода из файла

If lastrow > 1 Then Worksheets("Лог").Cells(lastrow, 3) = Now

'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ

Worksheets("Предупреждение").Visible = True

For Each sh In ActiveWorkbook.Worksheets

If sh.Name = "Предупреждение" Then

sh.Visible = True

Else

sh.Visible = xlSheetVeryHidden

End If

Next sh

'сохраняемся перед выходом

ActiveWorkbook.Save

End Sub

Private Sub Workbook_Open()

'ищем последнюю занятую строчку в логах

lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row

'заносим имя пользователя и дату-время входа в файл

Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")

Worksheets("Лог").Cells(lastrow + 1, 2) = Now

'отображаем все листы

For Each sh In ActiveWorkbook.Worksheets

sh.Visible = True

Next sh

'скрываем листы ПРЕДУПРЕЖДЕНИЕ и ЛОГ

Worksheets("Предупреждение").Visible = xlSheetVeryHidden

Worksheets("Лог").Visible = xlSheetVeryHidden

End Sub

Чтобы просмотреть скрытый Лог откройте редактор VisualBasic (Alt+F11), выделите лист на панели Project и измените его видимость на панели Properties, используя свойство Visible:

Если пользователи настолько продвинутые, что знают про суперскрытые листы и могут их отобразить через редактор Visual Basic или нарушить работу наших макросов, то можно дополнительно поставить пароль на просмотр и изменение макросов. Для этого щелкните правой кнопкой мыши по имени файла в панели Project (строка VBAProject (blackbox.xls)), выберите команду VBA Project Properties и включите флажок Lock project for viewing и задайте пароль на вкладке Protection:

Теперь точно никто не уйдет безнаказанным.

Интересные поправки в макрос из комментария источника:

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

Private Sub Workbook_Open()

Worksheets("Реестр изменений").Rows("2:2").Insert Shift:=xlDown 'вставляем между строками 1 и 2 новую строку

Worksheets("Реестр изменений").Rows("501:501").Delete Shift:=xlUp 'удаляем строку 501 (реестр на 500 строк)

Worksheets("Реестр изменений").Cells(2, 1) = Environ("USERNAME") 'запись в первую ячейку второй строки

Worksheets("Реестр изменений").Cells(2, 2) = Now 'запись во вторую ячейку второй строки

Создайте для этого макроса кнопку на панели инструментов или назначьте сочетание клавиш:

Sub M2a()
Dim rng As Range
Set rng = ActiveDocument.Range
With rng.Find
.MatchWildcards = True
.Text = "[А-яЁё][1-9]{1}"
.MatchCase = False
While .Execute
rng.Characters.Last.Font.Superscript = True
rng.Collapse Direction:=wdCollapseEnd
Wend
End With
End Sub

Этот макрос заменяет один первый символ цифровой после любой буквы на верхний индекс, если они написаны без пробела.

Работает только для русских букв А-я. Латиницу a-z и украинские і, ї, є и прочее нестандартное не меняет!

Сделал свою версию макроса, которая меняет на степень только для буквы "М" и только если после буквы "м"  стоит "2" или "3".

А то мало ли, вдруг кто-то в отчете где-то перед цифрами пробелы потерял и оно в степень переделает не нужное.

Макрос:

Sub ZnakStepeniTolkoM2M3()
Dim rng As Range
Set rng = ActiveDocument.Range
With rng.Find
.MatchWildcards = True
.Text = "[Мм][2-3]{1}"
.MatchCase = False
While .Execute
rng.Characters.Last.Font.Superscript = True
rng.Collapse Direction:=wdCollapseEnd
Wend
End With
End Sub

Может кому-то пригодится.

UPD. Дополнение #comment_190437019

сделать

В терминах баз данных нижнюю таблицу обычно называют плоской (flat) - именно по таким таблицам лучше всего строить отчеты сводных таблиц (pivot tables) и проводить аналитику.

Преобразовать двумерную таблицу в плоскую можно при помощи простого макроса. Откройте редактор Visual Basic через вкладку Разработчик - Visual Basic (Developer - Visual Basic Editor) или сочетанием клавиш Alt+F11. Вставьте новый модуль (Insert - Module) и скопируйте туда текст этого макроса:

Sub Redesigner()

Dim i As Long

Dim hc As Integer, hr As Integer

Dim ns As Worksheet

hr = InputBox("Сколько строк с подписями сверху?")

hc = InputBox("Сколько столбцов с подписями слева?")

Application.ScreenUpdating = False

i = 1

Set inpdata = Selection

Set ns = Worksheets.Add

For r = (hr + 1) To inpdata.Rows.Count

For c = (hc + 1) To inpdata.Columns.Count

For j = 1 To hc

ns.Cells(i, j) = inpdata.Cells(r, j)

Next j

For k = 1 To hr

ns.Cells(i, j + k - 1) = inpdata.Cells(k, c)

Next k

ns.Cells(i, j + k - 1) = inpdata.Cells(r, c)

i = i + 1

Next c

Next r

End Sub

После этого можно закрыть редактор VBA и вернуться в Excel. Теперь можно выделить исходную таблицу (полностью, с шапкой и первым столбцом с месяцами) и запустить наш макрос через Разработчик - Макросы (Developer - Macros) или нажав сочетание Alt+F8.

Макрос вставит в книгу новый лист и создаст на нем новый, реконструированный вариант выделенной таблицы. С такой таблицей можно работать "по полной программе", применяя весь арсенал средств Excel для обработки и анализа больших списков.

Также есть второй вариант для работы с большими таблицами

Sub Redesigner()

Dim inpdata As Range, realdata As Range, ns As Worksheet

Dim i&, j&, k&, c&, r&, hc&, hr&

Dim out(), dataArr, hcArr, hrArr

hr = Val(InputBox("Сколько строк с подписями данных сверху?"))

hc = Val(InputBox("Сколько столбцов с подписями данных слева?"))

Set inpdata = Selection

If inpdata.Rows.Count <= hr Or inpdata.Columns.Count <= hc Then Exit Sub

Set realdata = inpdata.Offset(hr, hc).Resize(inpdata.Rows.Count - hr, inpdata.Columns.Count - hc)

dataArr = realdata.Value

If hr Then hrArr = inpdata.Offset(0, hc).Resize(hr, inpdata.Columns.Count - hc).Value

If hc Then hcArr = inpdata.Offset(hr, 0).Resize(inpdata.Rows.Count - hr, hc).Value

ReDim out(1 To Application.CountA(realdata), 1 To hr + hc + 1)

Set ns = Worksheets.Add

For i = 1 To UBound(dataArr, 1)

For j = 1 To UBound(dataArr, 2)

If Not IsEmpty(dataArr(i, j)) Then

k = k + 1

For c = 1 To hc: out(k, c) = hcArr(i, c): Next c

For r = 1 To hr: out(k, c + r - 1) = hrArr(r, j): Next r

out(k, c + r - 1) = dataArr(i, j)

End If

Next j, i

ns.Cells(2, 1).Resize(UBound(out, 1), UBound(out, 2)) = out

End Sub

Редизайн таблиц сэкономит кучу времени, нервов и сил, чтобы в оставшееся время почитать пикабу))

Взято отсюда