Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
скрыть столбцы/строки
 
#1
15.09.2010 06:19:39
Всем доброго утра и поменьше пробок на дорогах  
excel защищен, права на редактирование даны куче людей. каждому своя колонка  
как скрыть защищенные строки/столбцы в зависимости от пользователя?  
 
гугл/яндекс не помог
 
 
 
#2
15.09.2010 08:57:32
Есть подозрение, что вы плохо искали.  
 
В модуль книги  
Private Sub Workbook_Open()  
   Sheets("Лист1").Unprotect Password:="000"  
   If Application.UserName = "Sva" Then Sheets("Лист1").Range("A:E").EntireColumn.Hidden = True  
   Sheets("Лист1").Protect Password:="000", DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub
 
 
 
#3
15.09.2010 16:43:31
{quote}{login=sva}{date=15.09.2010 08:57}{thema=}{post}Есть подозрение, что вы плохо искали.  
 
В модуль книги  
Private Sub Workbook_Open()  
   Sheets("Лист1").Unprotect Password:="000"  
   If Application.UserName = "Sva" Then Sheets("Лист1").Range("A:E").EntireColumn.Hidden = True  
   Sheets("Лист1").Protect Password:="000", DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub{/post}{/quote}  
 
это то я нашел. имел ввиду другое. защита листа сделана по другому. через пользователей windows
 
 
 
#4
15.09.2010 16:57:16
{quote}{login=}{date=15.09.2010 04:43}{thema=Re: }{post}{quote}{login=sva}{date=15.09.2010 08:57}{thema=}{post}Есть подозрение, что вы плохо искали.  
 
В модуль книги  
Private Sub Workbook_Open()  
   Sheets("Лист1").Unprotect Password:="000"  
   If Application.UserName = "Sva" Then Sheets("Лист1").Range("A:E").EntireColumn.Hidden = True  
   Sheets("Лист1").Protect Password:="000", DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub{/post}{/quote}  
 
это то я нашел. имел ввиду другое. защита листа сделана по другому. через пользователей windows{/post}{/quote}  
 
Application.UserName = "Sva" - А это кто тогда?
 
 
 
#5
15.09.2010 22:27:26
{quote}{login=}{date=15.09.2010 04:57}  
Application.UserName = "Sva" - А это кто тогда?{/post}{/quote}  
 
Sva - это пользователь из актив директори?  
еще select Range("A:E")- это принудительно описывать какие ячейки скрыть, а какие нет?  
я же хотел чтобы скрылось всё что не принадлежит человеку
 
 
 
#6
15.09.2010 22:29:39
потому как этих колонок 135 на одном листе  
на другом чуть меньше
 
 
 
#7
18.09.2010 14:01:04
с субботним утром всех  
я никак не могу сообразить.прошу помощи у сообщества  
создал файл, для определенных столбцов прописал разрешения.  
дал ОБЩИЙ доступ к книге  
 
теперь  на открытие должен работать  
 
Sub Auto_Open()  
ActiveSheet.Protect Password:="000", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True  
tt = Environ("username") 'имя пользователя windows  
 Select Case tt  
 Case Is = "Я"  
      Sheets("bd").Range("A:EG").EntireColumn.Hidden = True  
      Sheets("bd").Range("B:F").EntireColumn.Hidden = False    
 End Select  
End Sub  
 
сохранил. открыл. ошибка.  
Application-defined or object-defined error
 
 
 
#8
18.09.2010 18:58:05
Файлик свой выложите.
 
 
 
#9
19.09.2010 22:26:24
воскресного вечера и хорошего утра завтра  
 
вот, примерно создал файл с которым я работаю  
смысл: в зависимости от пользователя скрыть столбцы.    
при этом файл должен:  
1. быть в общем доступе(одновременная работа около n человек)  
2. чтобы работали макрос и кнопки  
 
с надеждой на разрешение ситуации
 
 
 
#10
20.09.2010 09:20:24
Вы защиту снимите с листа, а потом скрывайте стобцы.
 
 
 
#11
20.09.2010 09:59:29
{quote}{login=sva}{date=20.09.2010 09:20}{thema=}{post}Вы защиту снимите с листа, а потом скрывайте стобцы.{/post}{/quote}  
 
насколько я пробовал невозможно снять защиту с листа не запретив общий доступ
 
 
 
#12
20.09.2010 11:26:31
после двух часов можно делать сепуку
 
 
 
#13
20.09.2010 11:31:13
Может быть не использовать защиту, а всё разграничение делать макросом? Или вообще разделить данные по разным файлам - каждому свой, а в сводный собирать макросом?
 
 
 
#14
20.09.2010 11:39:25
{quote}{login=Hugo}{date=20.09.2010 11:31}{thema=}{post}Может быть не использовать защиту, а всё разграничение делать макросом? Или вообще разделить данные по разным файлам - каждому свой, а в сводный собирать макросом?{/post}{/quote}  
 
общий доступ!!
 
 
 
#15
20.09.2010 11:48:10
Ну так если несовместимо изменение защиты и общий доступ - надо что-то менять.
 
 
 
#16
20.09.2010 12:06:19
Смотрите, только сначала сделайте файл общим или сделайте проверку на случай, если файл будет не в общем доступе.
 
 
 
#17
20.09.2010 12:12:04
{quote}{login=sva}{date=20.09.2010 12:06}{thema=}{post}Смотрите, только сначала сделайте файл общим или сделайте проверку на случай, если файл будет не в общем доступе.{/post}{/quote}  
 
я тоже так делал, но когда файл открыт другим пользователем происходит у него ошибка-  
потеряна связь с файлом другой пользователь или перезаписал его
 
 
 
#18
20.09.2010 12:28:44
Это из-за общего доступа, т.к. в макросе он сначала снимается, а потом ставиться с сохранением книги. При таком варианте проще - каждому пользователю свой файл, и один сводный.
 
 
 
#19
20.09.2010 13:03:55
плохо
 
 
 
#20
20.09.2010 14:09:33
Selection.EntireColumn.Hidden = заблокировать такую возможность можно?
 
 
 
#21
20.09.2010 14:13:27
Попробуйте на Workbook_SheetChange() или Worksheet_Change() повесить проверку имени пользователя и скрытие/открытие нужных областей (сам не пробовал). А с отключенными макросами вообще всё скрывать, кроме грозной надписи.
 
 
 
#22
20.09.2010 14:21:19
про защите листа и общем доступе не работают макросы если не отключить защиту листа.  
 
если без защиты листа, то у пользователя появляется возможность показать скрыть колонки
 
 
 
#23
20.09.2010 14:26:55
В общем доступе макросы работают, их только посмотреть нельзя. Или я Вас не понял.  
А про показать/скрыть - так вот макросом и по пальцам ему. Если получится - не проверял.
 
 
 
#24
20.09.2010 14:28:51
{quote}{login=Hugo}{date=20.09.2010 02:26}{thema=}{post}В общем доступе макросы работают, их только посмотреть нельзя. Или я Вас не понял.  
А про показать/скрыть - так вот макросом и по пальцам ему. Если получится - не проверял.{/post}{/quote}  
 
 
да ёклмн, как работает то?  
вот у меня не работает....!!!!!!
 
 
 
#25
20.09.2010 14:29:54
а лист при этом защищён?  
 
приложите файл пожалуйста
 
 
 
#26
20.09.2010 14:37:58
У меня постоянно один файл общего доступа с макросами в работе - никто не жалуется.  
А вот не дать открыть скрытые колонки макросом не получается... Разве что убрать такие команды из меню - была такая тема... Но ушлый пользователь может свой макрос сотряпать для открытия колонок - без пароля никак не защитится. А с другой стороны - пароль этот тоже никакая не защита.
 
 
 
#27
20.09.2010 14:38:52
Нет, лист не защищён. Файл приложить не могу.
 
 
 
#28
20.09.2010 14:43:21
{quote}{login=Hugo}{date=20.09.2010 02:38}{thema=}{post}Нет, лист не защищён. Файл приложить не могу.{/post}{/quote}  
настолько ушлых которые смогут свой макрос состряпать нет. к тому же при общем доступе доступ к макросам запрещен.  
 
не выходит у меня каменный цветок  
в эту книгу поместил следующий код  
как эта штука должна работать? при любом изменении чего-то на листе скрывать B:D  
 
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   Dim r As Range  
     
   Set r = Range("$B:$D")  
         
   If Not (Intersect(r, Target) Is Nothing) Then  
       Range("$B:$D").Select  
       Selection.EntireColumn.Hidden = True   'ñòîëáåö Å èìååò íîìåð 5  
   End If  
End Sub
 
 
 
#29
20.09.2010 14:47:57
Скрыть-то получается на изменение на листе или в книге - вот запретить открыть и посмотреть не получается.
 
 
 
#30
20.09.2010 15:08:43
при общем доступе отключается возможность скрыть показать. значит к этой возможности можно добраться. вот только где она сидит?????
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх