Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос скрывающий строки не работает после защиты листа (формул)
 
#1
20.10.2019 14:45:04
в таблице есть макрос который скрывает столбцы если  ячейка
c27: fn27=0..но когда я пытаюсь защитить формулы макрос не работает

Кто поможет?
 
 
 
#2
20.10.2019 14:49:07
Код
Sub HiddenRows()
     Снимааем защиту
     Скрываем строки
     Ставим защиту
End Sub
 
 
 
#3
20.10.2019 15:19:46
да только как это прописать?))
Я первый раз пробую сам прописывать
 
 
 
#4
20.10.2019 15:21:13
Руками не пробовали?
 
 
 
#5
20.10.2019 15:27:27
Если бы я каждый день этим занимался то я сюда бы и не писал.
 
 
 
#6
20.10.2019 15:30:02
а вот это я так понимаю строки скрывает?
Код
Sub HideColl()
    Dim shContents As Variant
    Dim i As Long, j As Long
    t = Timer
    shContents = ActiveSheet.UsedRange
    ii = 27
    
    'For i = 1 To UBound(shContents)
        For j = 17 To 200 ' UBound(shContents, 2)
           ' If Not IsEmpty(shContents(ii, j))
           If shContents(ii, j) = 0 Then
                Columns(j).Select
                Selection.EntireColumn.Hidden = True
            
            End If
        Next
   ' Next
End Sub

Sub showColl()
    Dim shContents As Variant
    Dim i As Long, j As Long
    t = Timer
    shContents = ActiveSheet.UsedRange
    ii = 27
    
    'For i = 1 To UBound(shContents)
        For j = 17 To 200 ' UBound(shContents, 2)
           ' If Not IsEmpty(shContents(ii, j))
           
                Columns(j).Select
                Selection.EntireColumn.Hidden = False
          
        Next
   ' Next

 
 
 
 
#7
20.10.2019 15:54:30
Цитата
RAN написал: Руками не пробовали?
Включить макрорекодер, записать макрос...
Protect, Unprotect - операторы защиты и снятия защиты
 
 
 
Страницы: 1
Наверх