Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.74/74: Рейтинг темы: голосов - 74, средняя оценка - 4.74
1 / 1 / 0
Регистрация: 20.07.2011
Сообщений: 93

Как сделать запрет на просмотр листа?

26.02.2012, 14:55. Показов 16668. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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

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

Заранее спасибо.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.02.2012, 14:55
Ответы с готовыми решениями:

Как в VBA в поле Textbox сделать запрет на ввод более одного слова (или запрет на ввод пробелов)?
Добрый день. Нужно, чтобы в поле TextBox можно было ввести не более одного слова (в противном случае выводится сообщение). Приведенный ниже...

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

Запрет удаления листа
Как сделать чтобы нельзя было удалять листы через (ПКМ по названию > Удалить)

27
1 / 1 / 0
Регистрация: 20.07.2011
Сообщений: 93
29.02.2012, 11:58  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Tsvet
Уважаемый Evrodiller!
Я лично всего полгода интересуюсь VBA, но могу с уверенностью сказать, что достану пароль из вашего произведения.
Уповайте на то, что в вашей организации больше не найдется людей с начальными знаниями....
Доброго времени суток!
Уважаемый Tsvet!
Я понимаю, что то что я сделал не открытие Америки и не что-то из ряда вон выходящее, просто я мало знаком с VBA , а с учебниками как писал уже выше у нас проблемы Вот и приходится всех на форуме доставать порой и глупыми вопросами (. Если вы знаете или видите слабые места, то прошу помочь вас в их устранение.
Спасибо.
0
Сумрак
29.02.2012, 12:29
to Автор
Хранение, листа в одной книге для доступа 1 человека это не совсем безопасно.
1. Кто формипует данные на этом листе(или что формирует)?
2. Какого вида эти данные?
Может проще для защиты вообще держать этот лист в другой книге? И формировать данные через ссылки?
По сокрытию, уже было 1 или 2 топика, поищите по поиску.
1 / 1 / 0
Регистрация: 20.07.2011
Сообщений: 93
29.02.2012, 13:34  [ТС]
Цитата Сообщение от Сумрак
to Автор
Хранение, листа в одной книге для доступа 1 человека это не совсем безопасно.
1. Кто формипует данные на этом листе(или что формирует)?
2. Какого вида эти данные?
Может проще для защиты вообще держать этот лист в другой книге? И формировать данные через ссылки?
По сокрытию, уже было 1 или 2 топика, поищите по поиску.
В этом листе данные формируются начальником отдела, тоесть вводятся всякие расходы и т.д. ок которых оператор, который работает с другими листами не должен знать.
Данный типо :
Дата, Наименование,Литера, Ед. изм, Кол-во, Цена, Сумма
, но там может быть и аванс и зарплата и всякое другое.
В этой книге есть форма которая производит расчет за указанный период, если лист (защищаемый) поместить в другую книгу, то возникает вопрос как решить задачу по
Visual Basic
1
2
3
4
5
6
Private Sub UserForm_Activate()
With Sheets("Лист2")
Me.TextBox3.Value = WorksheetFunction.DSum(.Range(.Cells(4, 1), .Cells(10, 5)), _
"Доход", .Range(.Cells(1, 1), .Cells(2, 6)))
End With
End Sub
Ведь условия находятся в другой ниге и требуется ее активация, для того , чтобы получить результат.
Может есть что-то более продуктивное в этом плане, если знаете то прошу помочь.
Спасибо.
0
Сумрак
29.02.2012, 19:34
Вот к примеру ссылка на 1 ячейку другой книги.
[Книга1]Лист1!R1C1
т.е. получить ссылку вообще легко и работать с диапозонами как с родными.
1 / 1 / 0
Регистрация: 20.07.2011
Сообщений: 93
29.02.2012, 20:06  [ТС]
Цитата Сообщение от Сумрак
Вот к примеру ссылка на 1 ячейку другой книги.
[Книга1]Лист1!R1C1
т.е. получить ссылку вообще легко и работать с диапозонами как с родными.
Visual Basic
1
2
3
4
With Sheets("Главный")
TextBox8.Value = WorksheetFunction.DSum([Второстепенный.xls].Sheets("Лист").Range(Cells(6,1),.[Второстепенный.xls].Sheets("Лист").Range(.Cells(25,3) _
"t" , .Range(.Cells(4, 26), .Cells(5, 28)))
End With
Делаю так, но выходит ошибка.
Да и будет ли происходить обновление Книги "Второстепенный" без активации Книги "Главный" ??
0
0 / 0 / 0
Регистрация: 27.04.2009
Сообщений: 265
06.03.2012, 18:14
Я бы вообще в отдельном файле хранил закрытую инфу,пусть и в Ёксельном(хотя со знаниями даже ВБА,пароль на Ёксельную книгу при нормальном компе подбирается меньше чем за минуту,при 10-ти значном пароле). И чтоб эта закрытая книга брала данные из общего файла. А закрытый лист в общей книге только головной боли добавляет.
0
0 / 0 / 0
Регистрация: 27.04.2009
Сообщений: 265
06.03.2012, 18:15
Прошу прощения, не заметил что уже уже вторая страница идет...
0
CatsTail
17.03.2012, 13:56
Да можно и в Excel-е хранить. Только зашифровать ее, и весь разговор.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.03.2012, 13:56

Предварительный просмотр и печать листа Excel
Помогите, ничего нормального не нашел. Как реализовать печать и предварительный просмотр листа в книге exel, из формы. И если возможно,...

Просмотр листа Excel в области формы
Всем здравствуйте. Помогите решить проблему, 2 сутки гуглю - даже подобного решения не могу найти. Суть следующая. Есть книга...

Запрет редактирования листа Excel
Всем здрасте! Я с VBA недавно, поэтому появился такой вопрос (может кто знает): Как можно заблокировать лист от редактирования стандартными...

Как вытащить формулы из листа или более удобный просмотр и редактирование формул
Привет Имеется программа написанная в Excel с макросами, расчетов там на несколько листов, много логики, сравнений, одна ячейка...

Запрет просмотра листа
Ребят, вопросик: а можно ли защитить каким то образом лист в книге от просмотра? При защите листа с помощью рецензирования запрет идет...


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

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru