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

Большое спасибо, братан, это работает очень хорошо. Большое спасибо.

У меня такая же проблема, когда я закрываю книгу. Есть идеи, как это исправить?

Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("TD_ Phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ содержимое: = True, _ Scenarios: = True, _ AllowFiltering: = True, _ AllowFormattingCells: = True, _ userinterfaceonly: = True Next wsh End Sub

Привет! Я успешно использовал первый макрос, а затем возникла та же проблема с закрытием книги, и макрос больше не работал. Я вижу решение выше, но не могу заставить его работать вообще. Не могли бы вы пройти через меня? Я комбинирую оба кода или использую только последний? Если мой пароль «собака», нужно ли заменить одно из значений в коде? Я обращаюсь только к одному рабочему листу («Лист1»); я использую это где-нибудь? Спасибо заранее!!

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

Здравствуйте, пожалуйста, помогите мне развернуть и свернуть рулоны и столбцы в защищенной электронной таблице Excel. Я пытался использовать те, которые вы показали выше, но они не работают.

Было задано/отвечено? Где в коде можно указать/сменить личный пароль?

Как изменить пароль на другое значение?

Когда я использую команду, я вижу сообщение об ошибке, как показано ниже:
Private Sub Workbook_Open ()
Dim wsh как вариант
Для каждого wsh в рабочих листах (массив («TD_ Phase_3», «RS_Phase_2»))
wsh.EnableOutlining = Истина
wsh.Protect Password:="260615", DrawingObjects:=False, _
содержимое:=Верно, _
Сценарии: = Верно, _
Разрешить фильтрацию: = Истина, _
AllowFormattingCells:=Истина, _
пользовательский интерфейс только: = Истина
Следующий ш
End Sub
Ошибка времени выполнения '9':
Индекс вне диапазона

это работает некоторое время, как только вы закрываете и снова открываете, оно останавливается :(

Подпрограмма Workbook_Open()
'Обновление 20140603
Dim xWs как рабочий лист
Установите xWs = Application.ActiveSheet
Dim xPws как строка
xPws = "rfc" ''Application.InputBox("Пароль:", xTitleId, "", Тип:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Истина
End Sub

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

Есть ли способ удалить пароль из кода ИЛИ код автозапуска, который автоматически запустит этот марко и введет пароль?

Чтобы устранить проблему, из-за которой это не работало в вашем файле после того, как вы его закрыли и снова открыли, вам нужно вставить код VBA в «ThisWorkbook» в разделе «Объекты Microsoft Excel» вместо нового модуля. Затем макрос будет автоматически запускаться при каждом открытии файла.

у вас есть визуальные эффекты для кода VBA, обсуждавшегося 6 дней назад, чтобы peachyclean об ThisWorkbook в Microsoft Objects вместо нового модуля. Функциональность теряется, когда я возвращаюсь в свою книгу

Кому-то это может понадобиться, я думаю, что понял, как заставить это работать.

Во-первых, ваш код должен быть написан в «ThisWorkbook» в разделе «Объекты Microsoft Excel», как предлагает @peachyclean.
Во-вторых, возьмите код, который написал @Sravanthi, и вставьте в указанное выше место.

Подпрограмма Workbook_Open()
'Обновление 20140603
Dim xWs как рабочий лист
Установите xWs = Application.ActiveSheet
Dim xPws как строка
xPws = "rfc" ''Application.InputBox("Пароль:", xTitleId, "", Тип:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Истина
End Sub

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

Для моего решения я изменил примененный пароль, поэтому вы можете переписать любой пароль ЗДЕСЬ:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Пароль:", xTitleId, "", Тип:=2)

Кроме того, я не хотел, чтобы защищаемый лист был активен при открытии файла, поэтому я изменил эту часть:
Установите xWs = Application.ActiveSheet ->
Установите xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Теперь это работает как шарм, лист с именем «WRITEANYSHEET'SNAMEHERE» защищен, но применима группировка. В долгосрочной перспективе, я думаю, проблема будет заключаться в том, что если я захочу изменить этот файл и сохранить решение, мне нужно снять защиту с этого листа, чтобы он работал при следующем открытии. Я думаю, вы можете написать другой макрос для автоматического снятия защиты при закрытии :)


Надеюсь, это помогло.

грозный

Как сгруппировать и разгруппировать строки и столбцы в защищенном листе?

f * ck, это украло мой Excel позже и изменило пароль в частном порядке