какую функцию использовать или макрос?

[alex77755]

а при установки защиты ячеек на скрытие формул, перестает работать группировка

Это осуждалось здесь и есть решение. Типа

Sub Поставить()
Dim NL
Dim ND
NL = 3
Application.ScreenUpdating = False
Dim Q
For Each Q In ActiveWorkbook.Sheets
'Debug.Print Q.CodeName
Select Case Q.CodeName
Case "Лист4", "Лист5", "Лист6", "Лист7", "Лист8", "Лист9", "Лист10"
NL = NL + 1
ND = ("Диапазон" & NL)
    With Q
       .Unprotect Password:=MyPassword
 '      .Protection.AllowEditRanges(1).Delete
'       .Protection.AllowEditRanges.Add Title:=ND, Range:=Range _
        ("E18:O67")
        .EnableOutlining = True
        .Protect Password:=MyPassword, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End With

Case "Лист3"
     With Q
        .Unprotect Password:=MyPassword
'        .Protection.AllowEditRanges(1).Delete
'        .Protection.AllowEditRanges.Add Title:="Диапазон3", Range:=Range _
'        ("C6:D55,F6:G55,I6:J55,L6:M55,O6:P55,R6:S55,U6:V55")
        .EnableOutlining = True
        .Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End With
    
Case "Лист11"
     With Q
        .Unprotect Password:=MyPassword
        .EnableOutlining = True
        .Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End With
    
End Select
Next
Application.ScreenUpdating = True
End Sub

[alex77755]

На третьем листе у меня сохранялась группировка

[gris-81]

Это осуждалось здесь и есть решение. Типа

Alex77755, день добрый!
благодарю за макрос, НО
в задаче есть условие: файлом будут пользоваться десятки юзеров с разных компьютеров. Для них включить макрос или изменить настройки параметров безопасности, чтобы принять этот макрос все равно, что управлять "космическим кораблем"))
вот и нужен совет, как при скрытии формул (установив защиту для скрытия формул) заставить группировку работать, при открытии файла десятками обычных юзеров.

еще раз спасибо всем форумчанам!!!

[lyb4eg]

Покажите файл с примером, какая именно группировка нужна? Если это 7 офис, то попробуйте поиграться с "разрешить изменение диапазонов". Если будет пример, попробую показать по шагам...

[gris-81]

Покажите файл с примером, какая именно группировка нужна? Если это 7 офис, то попробуйте поиграться с "разрешить изменение диапазонов". Если будет пример, попробую показать по шагам...

lyb4eg, день добрый. ок!
в приложении два примера: 1."группировка_защита". содержит формулы и группировки строк. На него я поставил защиту (включив все галочки, разрешающие изменения в защищенном файле.Только я это все делал с домашнего ноутбука, там стоит 2003 офис.С рабочего компьютера проделывал туже операцию, там стоит 7 офис - поставил галочки, разрешающие все изменения в защищенном файле) И вот: формулы не видны, но группировка перестала работать (т.к. защищенный лист)
Во-втором файле "пример группировки и защиты": прописал макросы, позволяющие скрывать формулы и работать группировке, а так же автоматический запуск МАКРОСА, при открывании файла. НО, что бы все работало, естественно читать МАКРОС (при открытии файла) нужно разрешить. Юзерами файла будут около 100 обывателей с разных компьютеров, с разными офисами и возможно сильными (по умолчанию) уровнями безопасности на МАКРОСЫ. Они не смогут догадаться где ослабить защиту на МАКРОСЫ, что бы все заработало.
Вот и пытаюсь отыскать верное решение, чтобы хоть кто мог открыть файл, не видел формулы, но была возможна группировка строк))
P.S. пароль на втором файле: 1223334444

еще раз, огромное спасибо всем, кто принимает участие в этой задачке!!!

[alex77755]

Они не смогут догадаться где ослабить защиту на МАКРОСЫ, что бы все заработало

Сейчас не могу вспомнить где попадалось, но сам был очень удивлён такому подходу. Есть какой-то хитрый запуск и всё обходится. Вот только не могу вспомнить куда скинул пример...

[Hugo121]

Макросы работают, если запускать с помощью скрипта vbs, например такого:

Option Explicit
Dim objFSO, objExcel, ExcelPath, wb

Set objFSO = CreateObject("Scripting.FileSystemObject") 
ExcelPath = objFSO.GetParentFolderName(WScript.ScriptFullName) 
Set objExcel = CreateObject("Excel.Application")
Set wb = objExcel.Workbooks.Open (ExcelPath & "\CompareFiles.Find.xls")
objExcel.Visible = True
Set objExcel = Nothing

В этом экземпляре экселя в этом файле макросы будут работать.

[gris-81]

Hugo121, простите за мою не профессиональность, я совсем не программист ("я только учусь"))
код vbs куда именно прописать в моем примере?

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

[gris-81]

Подскажите пожалуйста куда прописывать код скрипта vbs?
(если есть пример по-шагово, было бы очень круто)
где коды макросов знаю прописывать, а скрипт vbs нет....

пожалуйста скиньте пример))
Спасибо!!!

[kuklp]

В блокнот, например. И сохраните с расширением .vbs.