Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.11.2019, 16:53   #11
DMITRIY_78
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 83
По умолчанию

пример в архиве
Вложения
Тип файла: rar пример.rar (494.8 Кб, 6 просмотров)
DMITRIY_78 вне форума Ответить с цитированием
Старый 18.11.2019, 17:22   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,263
По умолчанию

во-первых, поставьте Randomize в начале Генератор()
во-вторых, я не знаю, как у Вас это вообще работает - ошибок (причём принципиальных - выше крыши).

у меня как-то (подчёркиваю - именно КАК-ТО) заработало так:
Книга_с_генератором.xlsb.zip

но вообще, имхо, это не защита,а детский сад "Ромашка"....
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.11.2019, 17:41   #13
DMITRIY_78
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 83
По умолчанию

вы правы НО работает !
DMITRIY_78 вне форума Ответить с цитированием
Старый 18.11.2019, 17:45   #14
DMITRIY_78
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 83
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
... - ошибок (причём принципиальных - выше крыши)....
я только начинающий "чайник" укажите некоторые?
DMITRIY_78 вне форума Ответить с цитированием
Старый 18.11.2019, 18:07   #15
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,263
По умолчанию

Цитата:
Сообщение от DMITRIY_78 Посмотреть сообщение
я только начинающий "чайник" укажите некоторые?
я имел в виду те, что не давали запустить код.

ну, например, spp должна быть объявлена как публичная (Вы это сделали, но не написали об этом).
я в коде использую директиву
Код:
Option Explicit
которая требует обязательно объявлять переменные
99% переменных у Вас не были объявлены.
при этом странно, что две переменные ff и password были объявлены. с чего им такая честь - не понятно


в коде у Вас была строчка с переменной PassCorr которая нигде не объявлялась
и, разумеется, не работала.

в коде Вы закрывать пыталась книгу ПЕРЕОФОРМЛЕНИЕ.xlsm
Цитата:
Код:
        sName = "ПЕРЕОФОРМЛЕНИЕ.xlsm"
            Workbooks(sName).Close
допускаю, что именно так он и называется ваш файл в оригинале.

И тут у меня не компилировался строчка кода
Цитата:
Код:
                Documents.Close wdDoNotSaveChanges
и это вообще из другой оперы (похоже на код от MS Word VBA)

Цитата:
Код:
Open ThisWorkbook.Path & "\pass.txt" For Output As ff
книгу можно открыть с локации, куда вообще нет прав на запись (сетевой диск, CR-ROM, флешка с защитой от записи, папка, где права ограничены).
Там создать txt файл не получится вообще.

ну и последнее, повторю - грош цена защите, когда достаточно отключить макросы или нажать один раз Ctrl-Break
выскочит окно - там можно или нажать на End и прекратить выполнение макроса, или нажать Debug и попасть внутрь кода макроса (если сам проект VBA не закрыт паролем).
Потом нажать в верхнем меню кнопку "Вид", нажать кнопку "Отобразить" и всё - все листы доступны, делай с ними что хочешь.

Это защита, по вашему?
Это как сделать навесной замок из бумажного листа и повесить его на дверь.
и надеяться, что никто чужой не войдёт

Последний раз редактировалось Serge_Bliznykov; 18.11.2019 в 18:11.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
-программа в которой ввод осуществляется из текстового файла и вывод выполняется в текстовый файл; CeBpIk Помощь студентам 0 12.12.2016 21:46
Помощь с Pascal. Ввод инфы из текстового файла в массив указателей Casha12 Помощь студентам 6 05.05.2016 18:05
Ввод с текстового файла faiter_on Паскаль, Turbo Pascal, PascalABC.NET 3 25.12.2014 17:55
Ввод из текстового файла bygoga Паскаль, Turbo Pascal, PascalABC.NET 14 23.11.2008 14:37