Как сохранить возможность копирования заблокированной диаграммы - Microsoft Office Excel

Pavarotti · 15.02.2011, 09:32

Ситуация следующая.
На листе расположена диаграмма, она заблокированна, а на листе стоит пароль. Пароль известен. Как сделать так чтобы существовала возможность скопировать диаграмму в режиме когда лист защищен паролем, а диаграмма заблокирована. Сейчас на ней даже контекстное меня открыть невозможно. Скопировать получается только если выделять область ячеек, расположенных за ней и копировать. Вставляется не всегда корректно. Вставка потенциально будет производиться в Word'e.

doober · 15.02.2011, 12:00

А где ваш образец?
Сделайте его как можно правдоподобнее.
аАкак скопировать придумаем.
На чем тренироваться,не самому же выдумывать.
Лень

SAS888 · 15.02.2011, 12:26

Цитата:

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

Лень

+++1000!!!

doober · 15.02.2011, 12:51

Исправился

Диаграмма в буфере,делайте с ним.что хотите

Код:

Sub Copy_Chart()
Dim SHH As Shape
Set SHH = Sheets("Мой_защищенный_лист").Shapes(0)
SHH.Chart.ChartArea.Copy
End Sub

Pavarotti · 15.02.2011, 15:35

Попробовал предложеный код. Не получается. Приложил свой пример с неудачной попыткой реализовать предложенный код.

doober · 15.02.2011, 15:58

Код:

Private Sub CommandButton1_Click()
Dim SHH  As Shape
Set SHH = Sheets(1).Shapes("Group 5")
SHH.Copy
End Sub

Pavarotti · 15.02.2011, 17:25

Заработало! Залетало! Гигансткое спасибо doober! Кланяюсь в ноги!

15.02.2011, 09:32	#1
Pavarotti Пользователь Регистрация: 02.12.2009 Сообщений: 48	Как сохранить возможность копирования заблокированной диаграммы Ситуация следующая. На листе расположена диаграмма, она заблокированна, а на листе стоит пароль. Пароль известен. Как сделать так чтобы существовала возможность скопировать диаграмму в режиме когда лист защищен паролем, а диаграмма заблокирована. Сейчас на ней даже контекстное меня открыть невозможно. Скопировать получается только если выделять область ячеек, расположенных за ней и копировать. Вставляется не всегда корректно. Вставка потенциально будет производиться в Word'e.

15.02.2011, 12:00	#2
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	А где ваш образец? Сделайте его как можно правдоподобнее. аАкак скопировать придумаем. На чем тренироваться,не самому же выдумывать. Лень Анализ,обработка данных Недорого

15.02.2011, 12:51	#4
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Исправился Диаграмма в буфере,делайте с ним.что хотите Код: `Sub Copy_Chart() Dim SHH As Shape Set SHH = Sheets("Мой_защищенный_лист").Shapes(0) SHH.Chart.ChartArea.Copy End Sub` Анализ,обработка данных Недорого

15.02.2011, 15:58	#6
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `Private Sub CommandButton1_Click() Dim SHH As Shape Set SHH = Sheets(1).Shapes("Group 5") SHH.Copy End Sub` Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как сделать возможность выбора размещения алисаса?	artemavd	БД в Delphi	4	25.03.2009 22:57
Как осуществить возможность выбора БД в процессе работы программы	Cabyrc	БД в Delphi	9	21.03.2009 08:30
как сделать на своем сайте возможность устанавливать его, как стартовую страницу при загрузке броузера	Chaynik	Помощь студентам	2	02.03.2009 23:10
как ограничить возможность ввода формата в ячейках?	Ivo4ka	Microsoft Office Excel	23	14.02.2008 09:02
изменение заблокированной ячейки макросом	Slim	Microsoft Office Excel	3	29.04.2007 13:19

15.02.2011, 17:25	#7
Pavarotti Пользователь Регистрация: 02.12.2009 Сообщений: 48	Заработало! Залетало! Гигансткое спасибо doober! Кланяюсь в ноги!