Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2019, 15:53   #11
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

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

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

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

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

вы правы НО работает !
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 18.11.2019, 16:45   #14
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

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

Цитата:
Сообщение от 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 в 17:11.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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