Нельзя установить свойство visible класса worksheet что делать

Нельзя установить свойство visible класса worksheet что делать

Доброго времени суток всем.

Книга открывается без пароля, но в VBA видно,что пароль есть. Я знаю пароль книги но как его ввести в VBA не знаю.

Листы без пароля. Не могу отобразить Лист №2. На снимках видно, что

скрыть отобразить литы не возможно, поскольку функция «НЕ АКТИВНА». Знаю, что виноват МАКРОС.

Но,что и как делать без понятия. Ни на одном форуме не нашел. Если меняю 0-xlSheetHiden на 1-xlSheetVisible вылазит сообщение:

» Нельзя установить свойство Visible класса Worksheet «.

Доброго времени суток всем.

Книга открывается без пароля, но в VBA видно,что пароль есть. Я знаю пароль книги но как его ввести в VBA не знаю.

Листы без пароля. Не могу отобразить Лист №2. На снимках видно, что

скрыть отобразить литы не возможно, поскольку функция «НЕ АКТИВНА». Знаю, что виноват МАКРОС.

Но,что и как делать без понятия. Ни на одном форуме не нашел. Если меняю 0-xlSheetHiden на 1-xlSheetVisible вылазит сообщение:

» Нельзя установить свойство Visible класса Worksheet «.

Не верьте, что Вы не рабы.

Доброго времени суток всем.

Книга открывается без пароля, но в VBA видно,что пароль есть. Я знаю пароль книги но как его ввести в VBA не знаю.

Листы без пароля. Не могу отобразить Лист №2. На снимках видно, что

скрыть отобразить литы не возможно, поскольку функция «НЕ АКТИВНА». Знаю, что виноват МАКРОС.

Но,что и как делать без понятия. Ни на одном форуме не нашел. Если меняю 0-xlSheetHiden на 1-xlSheetVisible вылазит сообщение:

» Нельзя установить свойство Visible класса Worksheet «.

Источник

VBA Excel. Рабочий лист (обращение, переименование, скрытие)

Обращение к рабочим листам Excel из кода VBA. Переименование листов, скрытие и отображение с помощью кода VBA Excel. Свойства Worksheets.Name и Worksheets.Visible.

Обращение к рабочим листам

Рабочий лист (Worksheet) принадлежит коллекции всех рабочих листов (Worksheets) книги Excel. Обратиться к листу можно как к элементу коллекции и, напрямую, по его уникальному имени.

Откройте редактор VBA и обратите внимание на вашу книгу в проводнике, где уникальные имена листов указаны без скобок, а в скобках — имена листов, отображаемые на ярлычках в открытой книге Excel. Уникальные имена листов отсортированы по алфавиту и их расположение по порядку не будет соответствовать их индексам (номерам), если листы перемещались по отношению друг к другу. Индексы листов смотрите по порядку расположения ярлычков в открытой книге. Переместили листы — изменились их индексы.

Обращение к рабочему листу в коде VBA Excel:

Количество листов в рабочей книге Excel определяется так:

Переименование листов

В VBA Excel есть некоторые особенности в наименовании листов, так как у рабочего листа есть два свойства, связанных с именем: (Name) и Name. Откройте окно «Properties» в редакторе VBA, нажав клавишу «F4», и выделите любой лист в проводнике. Вы увидите, что в окне «Properties» свойству (Name) в скобках соответствует в проводнике уникальное имя листа без скобок, а свойству Name без скобок соответствует изменяемое имя листа в скобках. Оба имени в окне «Properties» можно редактировать.

С помощью кода VBA Excel можно редактировать только имя листа Name, отображаемое на ярлычке листа и в проводнике без скобок. Для этого используется свойство рабочего листа Worksheets.Name со следующим синтаксисом:

expression.Name

где expression — переменная, представляющая собой объект Worksheet. Смена имени осуществляется путем присвоения нового значения свойству Worksheets.Name.

Допустим, у нас есть лист с уникальным именем (Name) — Лист1, индексом — 1 и именем Name — МойЛист, которое необходимо заменить на имя — Реестр.

Скрытие и отображение листов

Для скрытия и отображения рабочих листов в VBA Excel используется свойство Worksheet.Visible со следующим синтаксисом:

expression.Visible

где expression — переменная, представляющая собой объект Worksheet. Свойству Worksheet.Visible могут присваиваться следующие значения:

Аналоги присваиваемых значений:

Источник

Нельзя установить свойство visible класса worksheet что делать

Обсуждаем вопросы только по Excel VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.

Вопросы по работе с MS Excel, не относящиеся к программированию, задаем в теме Excel FAQ

Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа «Напишите мне такой-то макрос, я VBA не знаю и знать не хочу» не приветствуются.
Древняя мудрость: «Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его.»(R)

Предыдущие ветки топика: Часть 1

Добавление в главное меню своего пункта, ассоциированного с макросом
Создание ярлыка на рабочем столе
Снятие защиты листа при забытом пароле
Смена раскладки клавиатуры
Скролл формы колесом прокрутки мыши
Оптимизация кода по быстродействию использованием массивов
Найти «чужое» окно и нажать в нем кнопку ( вписать текст в текстовое поле )
Работа с UNICODE-символами в VBA: запись, чтение из ячейки, перевод в ASС и обратно
Как программно подключить дополнительные библиотеки (например, «Microsoft Scripting Runtime» или «Microsoft ActiveX Data Objects 2.8 Library) через ReferencesВсего записей: 3954 | Зарегистр. 29-07-2003 | Отправлено: 01:58 23-04-2007 | Исправлено: JekG, 22:32 10-01-2010

ITradar Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Спасибо ОГРОМНОЕ за уделенное внимание. Всё отлично получилось! Привожу полностью завершенное решение, надеюсь табличка с этими макросами будет полезна при планировании покупок, расходов, или просто для планирования решения задач по степени их важности! Sub SelectedUP() ‘ ‘ SelectedUP Макрос ‘ Макрос записан 18.10.2008 (Radmir) ‘ ‘ Сочетание клавиш: Ctrl+Shift+J ‘ Dim UpRow As Integer Sub SelectedDown() ‘ ‘ SelectedDown Макрос ‘ Макрос записан 10.12.2008 (Radmir) ‘ ‘ Сочетание клавиш: Ctrl+Shift+M ‘ Источник Нельзя установить свойство visible класса worksheet что делать Помню тут уже была подобная тема но я что-то ее пока не сумел найти. Желательно что бы страницы соответствующие данному паролю были доступны для редактирования и просмотра другие не доступны для редактирования и просмотра. Помню тут уже была подобная тема но я что-то ее пока не сумел найти. Желательно что бы страницы соответствующие данному паролю были доступны для редактирования и просмотра другие не доступны для редактирования и просмотра. Помню тут уже была подобная тема но я что-то ее пока не сумел найти. Желательно что бы страницы соответствующие данному паролю были доступны для редактирования и просмотра другие не доступны для редактирования и просмотра. koyaanisqatsi Дата: Пятница, 15.04.2016, 10:08 | Сообщение № 2 Хороший пример только видны все страницы. Хотелось бы чтоб под каждым паролем были доступны свои страницы. Хороший пример только видны все страницы. Хотелось бы чтоб под каждым паролем были доступны свои страницы. koyaanisqatsi Pelena Дата: Пятница, 15.04.2016, 10:16 | Сообщение № 4 koyaanisqatsi Дата: Пятница, 15.04.2016, 10:20 | Сообщение № 6 _Boroda_ Дата: Пятница, 15.04.2016, 10:31 | Сообщение № 7 koyaanisqatsi Дата: Пятница, 15.04.2016, 10:38 | Сообщение № 8 koyaanisqatsi Дата: Пятница, 15.04.2016, 11:09 | Сообщение № 9 _Boroda_, На листе «доп» изобразил права доступа, помогите пожалуйста в соответствии с этим правилами раздать доступ. _Boroda_, На листе «доп» изобразил права доступа, помогите пожалуйста в соответствии с этим правилами раздать доступ. Сообщение _Boroda_, На листе «доп» изобразил права доступа, помогите пожалуйста в соответствии с этим правилами раздать доступ. SLAVICK Дата: Пятница, 15.04.2016, 11:34 | Сообщение № 10 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> «B2» Then Exit Sub On Error Resume Next p_ = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:B999], 2, False) shs = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:c999], 3, False) On Error GoTo 0 If Range(«B2») <> p_ Then MsgBox «Неверный пароль»: Exit Sub sk_ = ThisWorkbook.Sheets.Count sa_ = ActiveSheet.Name If Len(shs) = 0 Then For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = xlSheetVisible Next Else For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = IIf(InStr(1, shs, ThisWorkbook.Sheets(i).Name, vbTextCompare) = 0, xlSheetVeryHidden, xlSheetVisible) Next End If End Sub 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> «B2» Then Exit Sub On Error Resume Next p_ = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:B999], 2, False) shs = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:c999], 3, False) On Error GoTo 0 If Range(«B2») <> p_ Then MsgBox «Неверный пароль»: Exit Sub sk_ = ThisWorkbook.Sheets.Count sa_ = ActiveSheet.Name If Len(shs) = 0 Then For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = xlSheetVisible Next Else For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = IIf(InStr(1, shs, ThisWorkbook.Sheets(i).Name, vbTextCompare) = 0, xlSheetVeryHidden, xlSheetVisible) Next End If End Sub 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> «B2» Then Exit Sub On Error Resume Next p_ = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:B999], 2, False) shs = WorksheetFunction.VLookup(Range(«B1»), Лист4.[A2:c999], 3, False) On Error GoTo 0 If Range(«B2») <> p_ Then MsgBox «Неверный пароль»: Exit Sub sk_ = ThisWorkbook.Sheets.Count sa_ = ActiveSheet.Name If Len(shs) = 0 Then For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = xlSheetVisible Next Else For i = 2 To ThisWorkbook.Sheets.Count Sheets(i).Visible = IIf(InStr(1, shs, ThisWorkbook.Sheets(i).Name, vbTextCompare) = 0, xlSheetVeryHidden, xlSheetVisible) Next End If End Sub koyaanisqatsi Дата: Пятница, 15.04.2016, 11:42 | Сообщение № 11 koyaanisqatsi Дата: Среда, 18.05.2016, 14:00 | Сообщение № 12 SLAVICK, Здравствуй. Что-то я поломал. И не знаю куда искать где смотреть. При выборе пользователя и ввода пароля 444 Макрос выдает ошибку дебаг или ЕНД предлагает поискать проблему в этой строке. Что привело к поломке не знаю. Добавлял страницы удалял ненужные. Добавлял в список отображаемых еще страниц. Но уже в сломанном файле делал многое чтобы понять в чем причина и список страниц корректировал убавлял его до одной. Пока ничего не помогло. Ошибка: Нельзя установить свойство Visible класса Workshieet Причем если сначала зайти под админом а потом зайти под пользователем то ошибку не выдает. К сожалению файл уже вырос до 200кб. Кажется я понял что проблема в двух кодах из основания книги. 1 код для скрытия листов 2 код ля календаря 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open() If ActiveSheet.Name = «Лист5» Then Application.OnKey «^v», «»: Application.OnKey «^V», «» Application.OnKey «^x», «»: Application.OnKey «^X», «» End If 2-ой код (пытался что-то зарепортить чтобы хоть как-то подружить эти два кода. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘Option Explicit ‘Private WithEvents Appl As Application ‘ объявляем объект Application для того, чтобы можно было отлавливать события других книг ‘ Sub Reload_Appl(): Set Appl = Application: End Sub ‘ «патч» (у меня почему-то иногда теряется определение Appl) SLAVICK, Здравствуй. Что-то я поломал. И не знаю куда искать где смотреть. При выборе пользователя и ввода пароля 444 Макрос выдает ошибку дебаг или ЕНД предлагает поискать проблему в этой строке. Что привело к поломке не знаю. Добавлял страницы удалял ненужные. Добавлял в список отображаемых еще страниц. Но уже в сломанном файле делал многое чтобы понять в чем причина и список страниц корректировал убавлял его до одной. Пока ничего не помогло. Ошибка: Нельзя установить свойство Visible класса Workshieet Причем если сначала зайти под админом а потом зайти под пользователем то ошибку не выдает. К сожалению файл уже вырос до 200кб. Кажется я понял что проблема в двух кодах из основания книги. 1 код для скрытия листов 2 код ля календаря 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open() If ActiveSheet.Name = «Лист5» Then Application.OnKey «^v», «»: Application.OnKey «^V», «» Application.OnKey «^x», «»: Application.OnKey «^X», «» End If 2-ой код (пытался что-то зарепортить чтобы хоть как-то подружить эти два кода. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘Option Explicit ‘Private WithEvents Appl As Application ‘ объявляем объект Application для того, чтобы можно было отлавливать события других книг ‘ Sub Reload_Appl(): Set Appl = Application: End Sub ‘ «патч» (у меня почему-то иногда теряется определение Appl) Сообщение SLAVICK, Здравствуй. Что-то я поломал. И не знаю куда искать где смотреть. При выборе пользователя и ввода пароля 444 Макрос выдает ошибку дебаг или ЕНД предлагает поискать проблему в этой строке. Что привело к поломке не знаю. Добавлял страницы удалял ненужные. Добавлял в список отображаемых еще страниц. Но уже в сломанном файле делал многое чтобы понять в чем причина и список страниц корректировал убавлял его до одной. Пока ничего не помогло. Ошибка: Нельзя установить свойство Visible класса Workshieet Причем если сначала зайти под админом а потом зайти под пользователем то ошибку не выдает. К сожалению файл уже вырос до 200кб. Кажется я понял что проблема в двух кодах из основания книги. 1 код для скрытия листов 2 код ля календаря 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open() If ActiveSheet.Name = «Лист5» Then Application.OnKey «^v», «»: Application.OnKey «^V», «» Application.OnKey «^x», «»: Application.OnKey «^X», «» End If 2-ой код (пытался что-то зарепортить чтобы хоть как-то подружить эти два кода. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘Option Explicit ‘Private WithEvents Appl As Application ‘ объявляем объект Application для того, чтобы можно было отлавливать события других книг ‘ Sub Reload_Appl(): Set Appl = Application: End Sub ‘ «патч» (у меня почему-то иногда теряется определение Appl) Источник ← код окз врач стажер Неспецифический кольпит что это такое → Вам также понравится код отдела 50061 адрес 11.01.202405.06.2022 admin 0 коды reward robux 2021 05.01.202406.06.2022 admin 0 Никель сернокислый что это 07.01.202411.06.2022 admin 0 Добавить комментарий Ваш адрес email не будет опубликован. Обязательные поля помечены * Комментарий * Имя * Email * Сохранить моё имя, email и адрес сайта в этом браузере для последующих моих комментариев.