Программно изменить кодовое имя листа - Microsoft Office Excel

tae1980 · 25.01.2011, 14:43

Нужно САБЖ. В инете нашел вот это:
=====
Несмотря на то, что свойство CodeName доступно только для чтения, программное имя рабочего листа можно изменять, если не забывать, что модуль входит в семейство VBComponents.
iCodeName = ActiveSheet.CodeName

Application.VBE.ActiveVBProject.VBC omponents(iCodeName).Name = "CodeName" ' Вариант I.

ActiveWorkbook.VBProject.VBComponen ts(iCodeName).Name = "CodeName" ' Вариант II.
=====
При использовании обоих получаю сообщение: "Run-time error 1004. Программный доступ к проекту Visual Basic не является доверительным".
После выдается сообщение:"Run-time error 50132. Method 'Name' of object '_VBComponent' failed

Как решить проблему?

Hugo121 · 25.01.2011, 15:48

Галку в настройках Экселя ставили?

tae1980 · 25.01.2011, 16:35

Цитата:

Сообщение от Hugo121

Галку в настройках Экселя ставили?

Ставил. После первое сообщение пропало.
Как следствие еще один вопрос: как ставить эту галку из VBA?

Hugo121 · 25.01.2011, 17:23

Должно быть - никак. Но вдруг...

tae1980 · 25.01.2011, 20:39

Цитата:

Сообщение от Hugo121

Должно быть - никак. Но вдруг...

Вопрос все еще открыт, так как идет ругань: "Run-time error 50132. Method 'Name' of object '_VBComponent' failed"
АЛЛ Как лечиться?

Hugo121 · 25.01.2011, 21:48

У меня работает этот код, оба варианта. Единственное, после переименования в "CodeName" далее не переименовывает. Лучше другое имя давать... "CodeNameNNN" например.

tae1980 · 25.01.2011, 22:05

Цитата:

Сообщение от Hugo121

У меня работает этот код, оба варианта. Единственное, после переименования в "CodeName" далее не переименовывает. Лучше другое имя давать... "CodeNameNNN" например.

Заработало, но только если писать текст вида "Тескт", а вот если пытаться писать переменную то выдает эту ошибку.

((( А мне нужно именно переменную, так имя составное. Кто знает как быть?

Hugo121 · 25.01.2011, 22:46

Пишет:

Код:

iiCodeName = ActiveSheet.CodeName
temp = "xxx"
ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = temp ' Вариант II.

tae1980 · 26.01.2011, 00:01

Цитата:

Сообщение от Hugo121

Пишет:

Код:

iiCodeName = ActiveSheet.CodeName
temp = "xxx"
ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = temp ' Вариант II.

Спасибо! Разобрался. Проблема была в наличие в тексте знака "~".

25.01.2011, 14:43	#1
tae1980 Форумчанин Регистрация: 02.02.2009 Сообщений: 844	Программно изменить кодовое имя листа Нужно САБЖ. В инете нашел вот это: ===== Несмотря на то, что свойство CodeName доступно только для чтения, программное имя рабочего листа можно изменять, если не забывать, что модуль входит в семейство VBComponents. iCodeName = ActiveSheet.CodeName Application.VBE.ActiveVBProject.VBC omponents(iCodeName).Name = "CodeName" ' Вариант I. ActiveWorkbook.VBProject.VBComponen ts(iCodeName).Name = "CodeName" ' Вариант II. ===== При использовании обоих получаю сообщение: "Run-time error 1004. Программный доступ к проекту Visual Basic не является доверительным". После выдается сообщение:"Run-time error 50132. Method 'Name' of object '_VBComponent' failed Как решить проблему? С уважением, Алексей. Последний раз редактировалось tae1980; 25.01.2011 в 15:42.

25.01.2011, 15:48	#2
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Галку в настройках Экселя ставили? webmoney: E265281470651 Z422237915069 R418926282008

25.01.2011, 17:23	#4
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Должно быть - никак. Но вдруг... webmoney: E265281470651 Z422237915069 R418926282008

25.01.2011, 21:48	#6
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	У меня работает этот код, оба варианта. Единственное, после переименования в "CodeName" далее не переименовывает. Лучше другое имя давать... "CodeNameNNN" например. webmoney: E265281470651 Z422237915069 R418926282008

25.01.2011, 22:46	#8
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Пишет: Код: `iiCodeName = ActiveSheet.CodeName temp = "xxx" ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = temp ' Вариант II.` webmoney: E265281470651 Z422237915069 R418926282008

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Добыть имя листа	gregory1b	Microsoft Office Excel	4	09.12.2010 10:50
Изменить имя переменной(программно)	welcomeTo	Общие вопросы .NET	2	09.12.2010 10:15
Имя листа в зависимости от ячейки	bud-dy	Microsoft Office Excel	5	05.02.2010 14:22
Имя листа	Sensy	Microsoft Office Excel	2	14.12.2009 17:23
Получение имя листа из ячейки.	Sergg	Microsoft Office Excel	4	11.09.2009 17:21