Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
flasher167
4 / 4 / 2
Регистрация: 17.10.2012
Сообщений: 176
#1

Как переименовать Листы? - VBA

18.05.2017, 18:15. Просмотров 285. Ответов 1
Метки нет (Все метки)

Доброго дня, вот код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Workbook_Open()
strPassword = InputBox("Введите пароль", "Password")
Select Case strPassword
Case "alexeu"
Worksheets(2).Visible = -1
Worksheets(1).Visible = 2
Case "alenа"
Worksheets(3).Visible = -1
Worksheets(1).Visible = 2
Next
Worksheets(1).Visible = -1
Case Else
MsgBox "Неправильно введен пароль вы получите доступ только к " + Worksheets(1).Name
End Select
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To Worksheets.Count
Worksheets(1).Visible = -1
Worksheets(i).Visible = 2
Next
ActiveWorkbook.Save
End Sub
Куда я должен вписать данный код, что бы при вводе любого из двух паролей, страница переименовывалась на лист1
Visual Basic
1
2
For i = 2 To Worksheets.Count
  Worksheets(i).Name = "Лист1"
Если что то при вводе перового пароля, открывается лист2, при вводе второго пароля лист3.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2017, 18:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как переименовать Листы? (VBA):

Как переименовать листы книги, заменив их коды на соответствующую расшифровку
Здравствуйте, товарисчи программисты.Возник небольшой вопросец: Необходимо...

По содержимому столбца создать листы и в эти листы скопировать соответствующие строки
Здравствуйте, уважаемые Форумчане!!! Есть задачка: В прикреплённом файле есть...

Как программно сортировать листы?
допустим в книге есть два листа, создаю третий, но мне надо, чтобы он был не в...

Как установить пароль и защитить листы и кнопки
У меня имеются на листе Excek кнопки - удалить, редактировать, добавить. Можно...

Как обновить листы автоматически при их модификации
Всем привет! Как можно обновить лист в экселе? я просто на одном листе вношу...

Как програмно изменить ссылки на другие листы
Здрасьте! Задача такая: Есть лист с наименованиями товара и кодами. На ячейки...

1
Hugo121
6211 / 2330 / 390
Регистрация: 19.10.2012
Сообщений: 6,911
18.05.2017, 21:33 #2
Цитата Сообщение от flasher167 Посмотреть сообщение
Куда я должен вписать данный код, что бы ... страница переименовывалась на лист1
Это невозможно.

И там выше в 10-й строке next ни к чему.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2017, 21:33
Привет! Вот еще темы с решениями:

Как очистить макросом все листы в текущей книге.
Простая задача. Очистить макросом все листы в текущей книге. Код: Public Sub...

Как определить какие листы в книге Excel выделил пользователь?
Есть такая задача: пользователь выделяет несколько листов, а далее программно в...

Как переименовать
Кнопкой должно переводить класс в следующий т.е. если 1класс то перевести во 2...

Как при открытии книги скрыть все листы одной командой?
Как при открытии книги скрыть все листы одной командой? А не Visible = False...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru