Всем добрый день. Коллеги, помогите пожалуйста решить вопрос. Есть сводная таблица (в примере 3 поля - клиент, сумма, доход) Как защитить использование поля ДОХОД паролем? Смотрел в сторону Worksheet_Change но мне совершенно не нравится идея постоянной проверки при любых изменениях на листе. В итоге хочется добиться: пытаюсь перетащить ДОХОД в любое из полей, сразу запрос пароля или вариант 2 (об этом нигде не нашел) может возможно делать видимым/скрытым определённой поле? Так бы можно было повесить на кнопку пароль на отображение поля ДОХОД.
Заранее спасибо за любую помощь.
Всем добрый день. Коллеги, помогите пожалуйста решить вопрос. Есть сводная таблица (в примере 3 поля - клиент, сумма, доход) Как защитить использование поля ДОХОД паролем? Смотрел в сторону Worksheet_Change но мне совершенно не нравится идея постоянной проверки при любых изменениях на листе. В итоге хочется добиться: пытаюсь перетащить ДОХОД в любое из полей, сразу запрос пароля или вариант 2 (об этом нигде не нашел) может возможно делать видимым/скрытым определённой поле? Так бы можно было повесить на кнопку пароль на отображение поля ДОХОД.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) If Me.PivotTables("СводнаяТаблица1").PivotFields("Доход").Orientation > 0 Then _ Me.PivotTables("СводнаяТаблица1").PivotFields("Доход").Orientation = 0 End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) If Me.PivotTables("СводнаяТаблица1").PivotFields("Доход").Orientation > 0 Then _ Me.PivotTables("СводнаяТаблица1").PivotFields("Доход").Orientation = 0 End Sub
Спасибо за помощь, на примере который приложил, работает всё ок, но на реальном примере работать отказывается... Пишет: Невозможно получить свойство PivotFields класса PivotTable В реальном примере использую PowerPivot. Я так понимаю ругается на то что не находит имя "Доход", я уже перепробовал и "Сумма Доход" и "[Measures].[Сумма Доход]") - пока что никак не хочет.
Спасибо за помощь, на примере который приложил, работает всё ок, но на реальном примере работать отказывается... Пишет: Невозможно получить свойство PivotFields класса PivotTable В реальном примере использую PowerPivot. Я так понимаю ругается на то что не находит имя "Доход", я уже перепробовал и "Сумма Доход" и "[Measures].[Сумма Доход]") - пока что никак не хочет.DJ_Marker_MC
_Boroda_, Да, проверял, точно СводнаяТаблица1, даже пробовал просто оттуда скопировать. Это явно связано с тем что это не просто сводная, а сводная PowerPivot у меня в это же таблице есть коды где я обращаюсь к полю Сумма, так тут я использую "[Measures].[Сумма Сумма]", а вот на доход в этом случае почему то ругается. Буду крутить. Наводку получил.
_Boroda_, Да, проверял, точно СводнаяТаблица1, даже пробовал просто оттуда скопировать. Это явно связано с тем что это не просто сводная, а сводная PowerPivot у меня в это же таблице есть коды где я обращаюсь к полю Сумма, так тут я использую "[Measures].[Сумма Сумма]", а вот на доход в этом случае почему то ругается. Буду крутить. Наводку получил.DJ_Marker_MC
Может кому либо будет необходимо в будущем решать такую же проблему как у меня, хочу поделится решением. Ниже текст пойдет о полях исключительно сводных таблиц PowerPivot которые выведены на лист Excel. 1. Для того чтоб отобразить или скрыть какую либо строку на боковой панели (там где мы выбираем что кинуть в строки, что в столбцы и т.д.) необходимо зайти в сам PowerPivot, выделить столбец, правой кнопкой мыши, который хотим спрятать от любопытных глаз и выбрать пункт "Скрыть из набора клиентских средств" после того как вернемся на лист Ексель увидим что поле пропало, но для манипуляций макросом оно доступно. 2. Для того чтоб добавить например как у меня какое-либо поле PowerPivot в значения, то обычного "PivotFields" недостаточно, тут используется объект CubeFields Своё скрытое поле ДОХОД я решил вкидывать в значения по кнопке на листе: [vba]
[/vba] Понятное дело на кнопку можно вешать пароль и т.д., просто весь подвох был именно в CubeFields вместо PivotFields
Может кому либо будет необходимо в будущем решать такую же проблему как у меня, хочу поделится решением. Ниже текст пойдет о полях исключительно сводных таблиц PowerPivot которые выведены на лист Excel. 1. Для того чтоб отобразить или скрыть какую либо строку на боковой панели (там где мы выбираем что кинуть в строки, что в столбцы и т.д.) необходимо зайти в сам PowerPivot, выделить столбец, правой кнопкой мыши, который хотим спрятать от любопытных глаз и выбрать пункт "Скрыть из набора клиентских средств" после того как вернемся на лист Ексель увидим что поле пропало, но для манипуляций макросом оно доступно. 2. Для того чтоб добавить например как у меня какое-либо поле PowerPivot в значения, то обычного "PivotFields" недостаточно, тут используется объект CubeFields Своё скрытое поле ДОХОД я решил вкидывать в значения по кнопке на листе: [vba]