Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запрет просмотра вкладки - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Запрет просмотра вкладки
Ilya555 Дата: Пятница, 08.08.2014, 11:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день) Имею. В листе Эксель четыре вкладки (те, что в нижней части) хочу, что б одну из них пользователь не мог открыть. Что для этого необходимо сделать? Спасибо.
 
Ответить
СообщениеДобрый день) Имею. В листе Эксель четыре вкладки (те, что в нижней части) хочу, что б одну из них пользователь не мог открыть. Что для этого необходимо сделать? Спасибо.

Автор - Ilya555
Дата добавления - 08.08.2014 в 11:00
ArkaIIIa Дата: Пятница, 08.08.2014, 11:10 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Добрый день)

Ну вроде да, пятница.

Рад за Вас.
В листе Эксель четыре вкладки

Покажите на примере (читаем правила).
 
Ответить
Сообщение
Добрый день)

Ну вроде да, пятница.

Рад за Вас.
В листе Эксель четыре вкладки

Покажите на примере (читаем правила).

Автор - ArkaIIIa
Дата добавления - 08.08.2014 в 11:10
Nic70y Дата: Пятница, 08.08.2014, 11:40 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
ИМХО, тот самый случай, где пример не нужен - зачем файл с 4-мя пустыми листами?
А вот более подробное объяснение: где, как, на каком основании, на сколько продвинутый пользователь?

реклама макрорекордера:
[vba]
Код
Private Sub Worksheet_Activate()
      ActiveWindow.SelectedSheets.Visible = False
End Sub
[/vba]
(в модуль скрываемого листа)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 08.08.2014, 11:41
 
Ответить
СообщениеИМХО, тот самый случай, где пример не нужен - зачем файл с 4-мя пустыми листами?
А вот более подробное объяснение: где, как, на каком основании, на сколько продвинутый пользователь?

реклама макрорекордера:
[vba]
Код
Private Sub Worksheet_Activate()
      ActiveWindow.SelectedSheets.Visible = False
End Sub
[/vba]
(в модуль скрываемого листа)

Автор - Nic70y
Дата добавления - 08.08.2014 в 11:40
Ilya555 Дата: Пятница, 08.08.2014, 11:45 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Пожалуйста. Прикрепил) 3 вкладки в свободном доступе а 4-я (она визуально первая, название "Расчет Премии") пользователь смотреть не мог. Спасибо кто шутит и кто добрым советом помогает)
К сообщению приложен файл: 2703036.xls (56.0 Kb)
 
Ответить
СообщениеПожалуйста. Прикрепил) 3 вкладки в свободном доступе а 4-я (она визуально первая, название "Расчет Премии") пользователь смотреть не мог. Спасибо кто шутит и кто добрым советом помогает)

Автор - Ilya555
Дата добавления - 08.08.2014 в 11:45
ArkaIIIa Дата: Пятница, 08.08.2014, 11:45 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Ну, если Вам не нужен - развлекайтесь.
 
Ответить
СообщениеНу, если Вам не нужен - развлекайтесь.

Автор - ArkaIIIa
Дата добавления - 08.08.2014 в 11:45
ArkaIIIa Дата: Пятница, 08.08.2014, 11:47 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Ilya555
Скрываете нужный лист (правой кнопкой мыши - "скрыть"). А дальше вкладка "Рецензирование" - "Защитить книгу".
В примере - пароль для разблокировки = 1.
Это самый простой вариант. Еще можно написать макрос, с привязкой к имени пользователя.
К сообщению приложен файл: 2703036_1.xls (56.0 Kb)


Сообщение отредактировал ArkaIIIa - Пятница, 08.08.2014, 11:49
 
Ответить
СообщениеIlya555
Скрываете нужный лист (правой кнопкой мыши - "скрыть"). А дальше вкладка "Рецензирование" - "Защитить книгу".
В примере - пароль для разблокировки = 1.
Это самый простой вариант. Еще можно написать макрос, с привязкой к имени пользователя.

Автор - ArkaIIIa
Дата добавления - 08.08.2014 в 11:47
_Boroda_ Дата: Пятница, 08.08.2014, 11:55 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Жмите Альт+F11, далее см. картинку и файл. Стандартными средствами Excel не откроется. Только через VBA
К сообщению приложен файл: 0223758.jpg (67.4 Kb) · 0409477.xls (61.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЖмите Альт+F11, далее см. картинку и файл. Стандартными средствами Excel не откроется. Только через VBA

Автор - _Boroda_
Дата добавления - 08.08.2014 в 11:55
Nic70y Дата: Пятница, 08.08.2014, 11:56 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
Я бы вообще не делал этот лист в этой книге.
Сделал бы отдельный с ссылками (например) на этот.
Нет листа - нет проблем. О файле премии ни кому не говорить (запаролить его)


ЮMoney 41001841029809
 
Ответить
СообщениеЯ бы вообще не делал этот лист в этой книге.
Сделал бы отдельный с ссылками (например) на этот.
Нет листа - нет проблем. О файле премии ни кому не говорить (запаролить его)

Автор - Nic70y
Дата добавления - 08.08.2014 в 11:56
İstak Дата: Пятница, 08.08.2014, 11:59 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 1 ±
Замечаний: 40% ±

Excel 2013
Ilya555,
Section of code to the page you want to open
[vba]
Код
Private Sub Worksheet_Activate()
      ActiveSheet.Visible = -1
      password = Application.InputBox("password", "Please enter a password")
      If password <> 1 Then
          ActiveSheet.Visible = 0
              Else
          ActiveSheet.Visible = -1
      End If
End Sub
[/vba]

password: 1 optionally replace


Сообщение отредактировал İstak - Пятница, 08.08.2014, 11:59
 
Ответить
СообщениеIlya555,
Section of code to the page you want to open
[vba]
Код
Private Sub Worksheet_Activate()
      ActiveSheet.Visible = -1
      password = Application.InputBox("password", "Please enter a password")
      If password <> 1 Then
          ActiveSheet.Visible = 0
              Else
          ActiveSheet.Visible = -1
      End If
End Sub
[/vba]

password: 1 optionally replace

Автор - İstak
Дата добавления - 08.08.2014 в 11:59
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!