Добрый день. Подскажите как можно при помощи макроса реализовать функцию, когда в книге допустим есть 5 листов с одинаковыми паролями на каждой? При этом снятие защиты на одном из листов снимает защиту на всех остальных сразу или только на определенных листах. Искал вопрос на форуме, но четкого ответа не нашел, если честно. Спасибо!

Добрый день и всем приятных выходных! Вроде как почти получилось реализовать нужную задумку, о которой писал тут. Только подскажите пожалуйста, как подправить один момент. У меня получается когда в файл внесли изменение и сохранили его, то автоматически создается копия в указанную папку. Когда файл открыли и просто посмотрели, то не создается. Но и еще при этом она создается, когда в файл внесли данные, но при выходе передумали и решили выбрать "Не сохранять". Как сделать, чтобы в последнем случае макрос не создавал копию? Ведь по сути данные не внесли раз решили не сохранять их при выходе.

Если что, пароль от листов "1504"

Спасибо всем за помощь, вроде получилось. Завтра еще на работе потестить надо

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

Спасибо Вам за помощь. Но у меня почему-то наоборот выходит. Если вношу изменения, то при выходе из программы нажимаю "не сохранять", то он создает копию. В этом случае не нужно. Может неправильно выразился в первом сообщении. Я хотел чтобы сохранялась копия только когда в файл внесли изменения и при закрытии нажимаю "Сохранить". Во всех остальных случаях (открыл-посмотрел и открыл-написал, но выбрал "не сохранить") копию делать не надо. Если подскажите как так реализовать, то буду благодарен.

И еще момент, можно ли сделать, чтобы файл сохранял в две разные папки одновременно?

Добрый вечер. Подскажите пожалуйста, нашел вот здесь как делать резервную копию в опредленный путь после закрытия файла. На пустом файле все получается, но в моем уже имеется код и видно что-то не так объединил (не очень это понимаю) и данный макрос не срабатывает.

И еще подскажите можно ли сделать так, чтобы резервная копия создавалась при закрытии файла только когда в файл (на любой из листов) были внесены изменения? Если просто открыл, посмотрел и закрыл копия не создавалась  

Да,все работает. Спасибо Вам!

Еще такой вопрос, наверно последний.
В Лист1 добавлен макрос, который в примечание ячейки вносит дату, пользователя, действие при изменении этой же ячейки. Можно ли сделать так, чтобы это примечание невозможно было изменить/удалить? При этом данные самой ячейки при необходимости можно было бы менять сколько угодно раз. Или как-то сделать пароль именно на запрет изменения/удаления примечания.
Суть всего этого, чтобы пользователь (доступ будет только у одного, остальные только файл просматривают) занес параметры в ячейку, а в примечании к ней отслеживались все шаги по ее редактированию. Но при этом примечание этот единственный пользователь не мог корректировать

Спасибо, помогло!
А по второму вопросу из темы можете что-то подсказать?

Добрый вечер. Интересует такой ворос. В интернете нашел макрос (большое спсибо его автору), который веден журнал изменений, происходящих на других листах (в файле-примере LOG). Так вот, можно ли как-нибудь сделать, чтобы пользователи не могли менять данные на этом листе (LOG)? То есть не изменяли значения, не удаляли строки. Конечно, пробовал просто защитить этот лист (что было бы самое простое), но тогда и макрос не записывает туда данные. Идеальный случай был бы, если лист реально можно было защитить паролем, чтобы люди не лезли, а просто туда автоматом заносились данные, чтобы в случае чего можно просмотреть изменения.

И попутно еще вопрос. Там этот макрос на странице с Логом записывает имя пользователя винды, а как сделать, чтобы записывал имя, которое указано в параметрах Экселя? Пытался вместо UserName в строке:
.Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
написать Application.UserName, но макрос что-то тоже начинает ругаться.

Заранее спасибо!

По совету gling использовал следующий код:Все сработало. Спасибо за помощь, вопрос решен.

Пишет:

Runtime error 1004
Метод AutoFit из класса Range завершен неверно

Также писало и в моем варианте при включенной галочки "разрешить форматирование строк".

Применил вот этот макрос
Private Sub Worksheet_Calculate()
  Rows("7:12").EntireRow.AutoFit
End Sub

Но тут проблема в том, что при защите листа нужно ставить галочку "разрешить форматирование строк". А можно ли применить макрос без этого разрешения? Суть в том, чтобы макрос сам выстроил нужную высоту, а пользователь потом не мог сам менять высоту, только взять и скопировать полученную таблицу с данными

Здравствуйте. Да, это знаю. Но суть в том, что на защищенном листе, на котором нужен автоподбор, одно поле остается доступном для ввода данных, и когда в него подставляется число, то таблица заполняется тексом через формулы с других листов, который то больше, то меньше. Менять каждый раз вручную ширину не очень удобно и тормозит процесс. Идея как раз была в том, чтобы при заполнении поля, ячейки сами автоматически растягивались и сжимались, чтобы и тест был читаемым, и чтобы "пустое" место не оставалось. А потом просто копировать таблицу в нужный файл.
Ячейки необъединенные. Читал тут решения для объединенных, но они не подошли.

Добрый день. Подскажите как можно сделать автоподбор высоты нескольких строк (1-12) на одном определенном листе в зависимости от текста, который в них вставляется при помощи формул из других листов? То есть на других листах имеются данные, которые вставляются в нужный лист. При этом теста бывает то больше, то меньше. И при этом чтобы высота то увеличивалась, то уменьшалась. При этом ширину ячеек менять не надо, она должна быть фиксированной, и, желательно, чтобы лист сохранялся защищенным.
Пробовал искать для данной задачи решение, смотрел/пробовал макросы, но в них мало что понимаю... Буду благодарен за помощь!

Да, решение и так отличное. Последнее спросил просто для удобства и большей автоматизации. Спасибо за помощь.

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

Спасибо, все получилось  
Формула действительно сложноватая, сам бы не додумался.
Завтра попытаюсь адаптировать на свои данные. Идея была в чем изначальная, что на одном листе есть таблица, а на другом данные для нее. Через ВПР в первом столбце выбираю параметр, который подставляет в последующие ячейки связанные с ним данные. При этом у этих данных тоже несколько вариантов и из них выбирается нужный (через выпадающий список). Надеюсь толково объяснил.

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

У меня к сожалению пишет "Ошибка в части содержимого файла..."

Спасибо за помощь!

Подскажите еще пожалуйста, такой момент. На Листе 2 сделал выпадающий список для наименований, которые соотвествуют месяцам, а как сделать чтобы на Листе 1 при выборе нужного месяца тоже для соотвествующий наименований выходили те же выпадающие списки, что и на листе 2?

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

Допустим пример такой:
В выпадющем списке 12 месяцев (январь, февраль и т.д.). И для каждого месяца есть свой набор из нескольких слов на вотром, которые при выборе месяца автоматически вставляются рядом в соседние отдельные ячейки справа от названия месяца на первом листе.