запрет переименования листов - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

запрет переименования листов (Макросы/Sub)

запрет переименования листов

Skynet

Дата: Среда, 30.04.2014, 10:38 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Цитата RAN, 29.04.2014 в 17:12, в сообщении № 17

если переименовывать листы и использовать CodeName , то НЕ возникают ошибки и отображается необходимый набор листов

было
[vba]

Код

If Target.Address = [V19].Address Then
         Select Case Target
         Case 0
             Sheets("Лист1").Visible = xlSheetVeryHidden
         Case 1
             Sheets("Лист1").Visible = True
             End Select
      End If

[/vba]

ставлю

[vba]

Код

[vba][code]If Target.Address = [V19].Address Then
         Select Case Target
         Case 0
             Sheets("Лист1").codename.Visible = xlSheetVeryHidden
         Case 1
             Sheets("Лист1").codename.Visible = True
             End Select
      End If

[/vba][/code][/vba]

ругается по всей видимости на синтаксис

Ответить

Skynet

Дата: Среда, 30.04.2014, 10:43 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Проверил, всё работает и при переименовании имени листа без ошибок. Это самый простой способ в моем случае

Спасибо всем не безучастным. Премного благодарен

Ответить

Alex_ST

Дата: Среда, 30.04.2014, 22:09 | Сообщение № 23

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

Репутация: 622 ±

Замечаний: 0% ±

2003

[vba]

Код

If Target.Address = [V19].Address Then
         Select Case Target
         Case 0
             Лист1.Visible = xlSheetVeryHidden
         Case 1
             Лист2.Visible = True
         End Select
     End If

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

запрет переименования листов (Макросы/Sub)

Страница 2 из 2
«
1
2