Поиск
Автор: dhead. A-Soft, на всякий случай добавлю. Есть еще такой вариант:
если есть опыт программирования на компилируемых языках (или желание такой опыт получить), можно часть кода (функции, процедуры) помещать в dll. Будет на порядок сложнее разбирать и модифицировать ваш код, плюс для больших и дорогих проектов открывается простор для защиты от копирования. Плюс в некоторых случаях можно получить прирост производительности.
Изменен: 08.03.2024
Читать сообщение на форуме или сайте.Автор: Бахтиёр. Добрый день.
Иногда возникает такая необходимость:
а) Пользователь не должен увидеть некие данные на определенных диапазонах ячеек, а должен только работать с предоставленным ему диапазонами ячеек.
б) Пользователь не должен увидеть формулу расчета, а должен видеть только результат этой формулы.
Стандартные защиты диапазона и листа Excel'я легко сломать.
1) Этот инструмент даёт реализовать вышеуказанные 2 функционала, или это немного о другом?
2) Если ответ на 1-й вопрос & ...
Изменен: 18.01.2024
Читать сообщение на форуме или сайте.Автор: Sanja. Зачем Вы через строчку снимаете/устанавливаете защиту листа?
Снимите защиту в начале итерации цикла прохода по листам, а перед Next опять установите.
"Antag написал:
Полагаю, ошибка в синтаксисе кода, приведённого выше."
Нет, не правильно полагаете. Этот код, сам по себе, рабочий.
Попробуйте так
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q3")) Is Nothing Then
Target.Offset(3, -10).Select
End If
If Not Intersect(Target, ...
Изменен: 11.01.2024
Читать сообщение на форуме или сайте.Автор: PoToLoK™. bedvit, нет! Защита VBAProject хоть и дырявая, но есть свои плюсы, а именно игнорирование программных BreakPoints (Stop), ассертов (Assert) и метода Debug в случае ошибки!
Дело не в ошибочном коде, но раскрывать что, да как, пока не имеет смысла! Возможно кто-то из специалистов на данной площадке получит GUID или сейчас занимается данным исследованием! Обламывать не буду!
Изменен: 18.12.2023
Читать сообщение на форуме или сайте. ... !!!
Появились случаи снятия пароля VBA, нужна нормальная защита VBA.
Рабочих задач миллион, времени ... на изучение процесса защиты катастрофически нет ... , снимать и ставить защиту не нужно, установить защиту один раз и навсегда ... EXCEL файлов.
- нужно как-то защитить листы на которые "Запросы ... и подключения" выгружает базы (защитить от просмотра и копирования, но ... и макросы необходимые данные брали)
- защита не должна мешать обновлению через ...
Изменен: 17.11.2023
Читать сообщение на форуме или сайте.Автор: Antag. " написал:
лично я против его как основного, ибо индекс меняется от перемещения листов относительно друг друга. В этом случае или привязываться к имени листа более стабильный метод, или к каким-либо признакам на листе."
Спасибо всем за помощь и дискуссию!
Применительно к моим задачам и концепции "шаловливых ручек":
1. проще этим ручкам объяснить, что листы можно двигать внутри диапазона 1-14, иначе "по попе тыщ-тыщ", "ничего не получится", & ...
Изменен: 10.11.2023
Читать сообщение на форуме или сайте.Автор: sam11188. " написал:
Добавьте в Ваш код снятие защиты и постановку ее обратно: https://www.excel-vba.ru/chto-umeet-excel/kak-zashhitit-list-ot-polzovatelya-no-ne-ot-makrosa/ https://www.planetaexcel.ru/techniques/5/64/
Изменено: evgeniygeo - 17.10.2023 09:23:56"
Спасибо! буду пробовать. Решение оказалось и проще чем казалось.
Изменен: 17.10.2023
Читать сообщение на форуме или сайте.Автор: Дмитрий(The_Prist) Щербаков. "IvanVictorovich2 написал:
Только защита для входа в файл"тогда читайте выше - Вы эту защиту никак не затрагиваете своим кодом. Если хотите менять код открытия книги - там одна строка всего и я её уже показал. Снимать пароль при этом никакой не надо - надо просто задать новый, т.к. открывая книгу Вы как бы уже вводите корректный пароль.
Изменен: 16.08.2023
Читать сообщение на форуме или сайте. ... ("Снять пароль с проекта VBA данной книги ?", vbInformation + vbYesNo ... "Проект VBA не защищен.", vbInformation, "Статус защиты"
End ... If
End Sub
' Снимает защиту проекта.
' Идея: http://www.rondebruin ... Function
End If
Set Application.VBE.ActiveVBProject = vbProj
DoEvents2
If Application ... .VBE.ActiveVBProject.Name vbProj.Name Then
...
End If
Set vbCtl = Application.VBE.CommandBars(1).FindControl(ID:=2578 ...
Изменен: 11.08.2023
Читать сообщение на форуме или сайте.Автор: guest99. "
2: https://www.excel-vba.ru/chto-umeet-excel/dialogovoe-okno-vybora-fajlovpapki/"
Подскажите пожалуйста, почему выдает ошибку?? Sub test()
Dim sFolder As String
Dim wb As Workbook
Dim x
Dim sFiles
sFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Âûáðàòü ôàéëû", , True)
If VarType(sFiles) = vbBoolean Then
Exit Sub
End If
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Range("B7").Select
...
Изменен: 10.07.2023
Читать сообщение на форуме или сайте.Автор: Stanislavsky7. Спасибо большое, webley - ваше решение помогло!
Но теперь я задался вопросом: получается, что необходимо заходить в каждый запрос PQ и отключать фоновое обновление вручную. Если запросы будут добавляться, то это опять же надо отключать вручную...
Возможно ли как-то добавить в код макроса отключение фонового обновления всех запросов в Книге? Не нашел пока такого решения, но зато нашел, что можно заменить паузу Application.Wait на Application.CalculateUntilAsyncQueriesDone, ...
Изменен: 05.05.2023
Читать сообщение на форуме или сайте.Автор: Dez089. Добрый день!
Собрал корявый макрос (как умею), который с задачей справляется - "формирует" презентацию из данных с листа (файл пример).
Но после создания файла Power Point, пользователи зачем-то используют колесико и макрос прерывается с ошибкой (скриншот).
Отключение обновления экрана не помогает, таймаут тоже. Как можно защитить? Отключить колесо или есть ещё варианты?
P.s. Код корявый, зато почти свой.
Изменен: 22.03.2023
Читать сообщение на форуме или сайте.Автор: Ігор Гончаренко. " написал:
Совсем защиту листа снимать нельзя"
можно)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a
If Target.Address(0, 0) "A15" Then Exit Sub Else Cancel = True
Me.Unprotect
If Me.FilterMode Then
Range("B15:G" & Rows.Count).AutoFilter Field:=1
Else
Range("B15:G" & Rows.Count).AutoFilter Field:=1, Criteria1:=""
End If
Me.Protect
End Sub
Изменен: 26.12.2022
Читать сообщение на форуме или сайте.