Снять защиту с листа excel 2016 в VBA

@igleb75 · Регистрация: 17.10.2019

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

Как снять защиту с листа excel 2016 в VBA

Остап Бонд · 18.10.2019, 21:44

Visual Basic
1
ActiveSheet.Unprotect "пароль"

@art1289 · 19.10.2019, 08:01

igleb75, привет ! в моей надстройке после выходных будет данный инструмент удалить пароли vba и excel

@igleb75 · 19.10.2019, 10:27 **[ТС]**

Спасибо Вам за информацию, буду ждать Вашей надстройки.

@art1289 · 19.10.2019, 10:37

igleb75, попробуйте старым инструментом пока я может сегодня или завтра выложу новый

Добавлено через 56 секунд
удалить пароли vba и excel

@igleb75 · 19.10.2019, 13:00 **[ТС]**

Сегодня у меня весь день на пробы по данному занятию.

Добавлено через 2 часа 18 минут
Пробовал два этих макроса

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Password_Cracker()
Dim t!
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Long
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim kennwort As String
t = Timer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66
    kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
    For n = 32 To 126
        ActiveSheet.Unprotect kennwort & Chr(n)
        If Err Then
            Err.Clear
        Else
            MsgBox "Done in " & Format(Timer - t, "0.0 sec")
            Exit Sub
        End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
 
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Password_Cracker()
 
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
 
Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect Kennwort
If ActiveSheet.ProtectContents = False Then
MsgBox "Done" & vbcr & "enjoy it )"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
 
End Sub

Результат нулевой.

Добавлено через 3 минуты
Пробовал надстройку MulTExplex и тоже безрезультатно. Голову уже сломал. Надо просто очень этот Excel файл открыть.

@Narimanych · 19.10.2019, 13:20

igleb75,
Если файл не секретный,
может выложите....

@art1289 · 19.10.2019, 16:20

igleb75, Привет обновил надстройку можешь скачивать, снимает пароли со всех версий Excel

Добавлено через 1 минуту
удалить пароли с листов и структуры книги excel

используйте снять пароли удалить XML

@igleb75 · 19.10.2019, 20:02 **[ТС]**

Сколько по времени он может или должен снимать пароль с листа?

@art1289 · 20.10.2019, 07:11

igleb75, привет!
должно быстро быть

вы используете снять пароли удалить XML
потому что другой инструмент с 2016 excel не снимет пароль

SoftIce · 20.10.2019, 08:16

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

снять пароли удалить XML

А если там нет xml ?

''''''''''''''''''
Решил всё-таки взглянуть на этот "инструмент", хотя оно мне и не надо.

Получил вот это (см.скрин). Охота "взглянуть" пропала.

@art1289 · 20.10.2019, 08:45

SoftIce, привет! проблема) у меня не возникает такой ошибки, сейчас попробую заменить файл проверите ?
не пойму что случилось

если нет XML это может быть с файлом формата *.xlsb, тогда нужно его сохранить в другом формате в теории

Добавлено через 1 минуту
на почту можно будет скинуть ? для оперативности

Добавлено через 8 минут
все не надо, но БОЛЬШОЕ ВАМ спасибо!)

Добавлено через 8 минут
Обновил)! проверте)

SoftIce · 20.10.2019, 09:00

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

Обновил)! проверте)

Проверил.

@igleb75 · 20.10.2019, 09:02 **[ТС]**

А файлы xlsb он вскроет?

@art1289 · 20.10.2019, 09:07

igleb75, нет, там нет XLM, но вы можете сохранить файл как xlsm, после удаления паролей можно пересохранить обратно

@igleb75 · 20.10.2019, 09:09 **[ТС]**

попробую.

@art1289 · 20.10.2019, 09:10

igleb75, я сейчас файл надстройки обновил раньше был не рабочий файл

Добавлено через 1 минуту
у вас нет проблем с файлом ?

@igleb75 · 20.10.2019, 09:13 **[ТС]**

Нет он нормально открывается, работает но есть ограничения и стоит защита листа.

@art1289 · 20.10.2019, 09:28

igleb75, получилось снять пароль?

@igleb75 · 20.10.2019, 09:31 **[ТС]**

Переименовал в xml и запустил. Теперь жду результата уже минут 7 как висит, думает наверно.

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15

	Снять защиту с листа excel 2016 в VBA 18.10.2019, 21:39. Показов 14148. Ответов 22 Метки нет (Все метки) Как снять защиту с листа excel 2016 в VBA 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	19.10.2019, 08:01
	igleb75, привет ! в моей надстройке после выходных будет данный инструмент удалить пароли vba и excel 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	19.10.2019, 10:27 [ТС]
	Спасибо Вам за информацию, буду ждать Вашей надстройки. 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	19.10.2019, 10:37
	igleb75, попробуйте старым инструментом пока я может сегодня или завтра выложу новый Добавлено через 56 секунд удалить пароли vba и excel 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,447
	19.10.2019, 13:20
	igleb75, Если файл не секретный, может выложите.... 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	19.10.2019, 16:20
	igleb75, Привет обновил надстройку можешь скачивать, снимает пароли со всех версий Excel Добавлено через 1 минуту удалить пароли с листов и структуры книги excel используйте снять пароли удалить XML 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	19.10.2019, 20:02 [ТС]
	Сколько по времени он может или должен снимать пароль с листа? 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	20.10.2019, 07:11
	igleb75, привет! должно быстро быть вы используете снять пароли удалить XML потому что другой инструмент с 2016 excel не снимет пароль 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	20.10.2019, 08:45
	SoftIce, привет! проблема) у меня не возникает такой ошибки, сейчас попробую заменить файл проверите ? не пойму что случилось если нет XML это может быть с файлом формата .xlsb, тогда нужно его сохранить в другом формате в теории Добавлено через 1 минуту* на почту можно будет скинуть ? для оперативности Добавлено через 8 минут все не надо, но БОЛЬШОЕ ВАМ спасибо!) Добавлено через 8 минут Обновил)! проверте) 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	20.10.2019, 09:02 [ТС]
	А файлы xlsb он вскроет? 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	20.10.2019, 09:07
	igleb75, нет, там нет XLM, но вы можете сохранить файл как xlsm, после удаления паролей можно пересохранить обратно 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	20.10.2019, 09:09 [ТС]
	попробую. 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	20.10.2019, 09:10
	igleb75, я сейчас файл надстройки обновил раньше был не рабочий файл Добавлено через 1 минуту у вас нет проблем с файлом ? 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	20.10.2019, 09:13 [ТС]
	Нет он нормально открывается, работает но есть ограничения и стоит защита листа. 0

@art1289 209 / 184 / 43 Регистрация: 02.08.2019 Сообщений: 586 Записей в блоге: 23
	20.10.2019, 09:28
	igleb75, получилось снять пароль? 0

@igleb75 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 15
	20.10.2019, 09:31 [ТС]
	Переименовал в xml и запустил. Теперь жду результата уже минут 7 как висит, думает наверно. 0