ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Все что заключено в # добавил я

Начнем ломать!!!!!!!!

************************************************** ************************************************** **************
В модуле формы UserForm2

после 'Устанавливаем время

Переделываем строку
If (ActiveWorkbook.Sheets("Ответы").Cells(18, 3).Value = "") Then

В
#
If (ActiveWorkbook.Sheets("Ответы").Cells(18, 3).Value = "") Or (ActiveWorkbook.Sheets("Ответы").Cells(18, 3).Value <> "") Then
#

Для того чтобы не было ругани насчет того что несколько раз проходить один и тот-же тест нельзя
************************************************** ************************************************** **************

************************************************** ************************************************** **************
Дальше

В модуле формы UserForm1

после
C = ActiveSheet.TextBoxNum.Value

добавляем
#
H = ActiveSheet.Cells(24, I)
#
Затем после
If (((A * B) + (A + B + B)) * C) = ActiveSheet.Cells(24, I) Then 'Cells(24 +1 26.08.04
ActiveSheet.Cells(24, I).Value = "+"
N = N + 1
Else
ActiveSheet.Cells(24, I).Value = "-"
End If

Добавим
#
J = (H / C - A) / (A + 2) ' Вот собственно формула обратного расчета т.е J должна быть = правильному ответу
ActiveSheet.Cells(29, I) = J ' Собственно здесь в цикле в каждую ячейку 29 строки листа "ответы" добавляем правильный ответ
#
Вобщем во время прохождения теста можно и не отвечать на вопросы, ответы все равно будут проставлены, только при условии
что в 24 строке стоят цифры, а ни минусы или плюсы

После коментируем строку

ActiveWorkbook.Save

Должно получиться

'ActiveWorkbook.Save
Это чтобы после окончания теста результаты не сохранялись

************************************************** ************************************************** **************
Теперь самое важное
С листа "ответы" в обязательном порядке нужно снять защиту
чтобы ответы могли проставится в 29 строке


Да и еще значение "С" мне впринципе больше и не нужно. гыыыыыыыы )))))))))))))))))))))

************************************************** ************************************************** **************
Ну вот и все удачного взлома))))))))))))))))))))))
************************************************** ************************************************** **************