1с бухгалтерия...ответы на тесты
 

кто знает как сломать файлы екселя с макросами.........точнее нада достать ответы к вопросам от 1С Бухгалтерии!

тоесть "сломать"? запароленный документ нужно открыть, или 4то?

Мне кажется он имел ввиду выдрать из макросов ответы....

вообщем автору тема явно не нужна, гадать не будем. закрыто

открыл по просьбе топикстартера

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



ктонить сталкивался с таким!?

ау!
 

неужели никто не вкурсе............?

А что сложно проверить условия ну типа

во блин называется привык к 1С

Ну вообщем смысл я думаю понятен

Public StartTime As Long
Public CurrentTime As Long
Public TimeBeforeEnd As Long
Public Const TimeLimit = 30 * 60


Private Sub ПредыдущийЛист()
'

' Макрос записан (Вася Пупкин)
'

' Проверяем, осталось ли еще время

CurrentTime = Timer()
TimeBeforeEnd = TimeLimit - (CurrentTime - StartTime)
If TimeBeforeEnd <= 0 Then
MsgBox ("Время экзамена истекло")
UserForm1.CommandButton3.Enabled = False
UserForm1.Show
End If

For i = 1 To ActiveWorkbook.Sheets.Count - 1
ActiveWorkbook.Sheets(i).Cells(1, 12).Value = Format(Int(TimeBeforeEnd / 60), "00") + ":" + Format(TimeBeforeEnd Mod 60, "00")
Next i

i = ActiveSheet.Index
If (ActiveSheet.Index = 1) Then
GoTo Out
Else
Sheets(ActiveSheet.Index - 1).Select
End If
Out:
End Sub

Private Sub СледующийЛист()
'

' Макрос записан (Вася Пупкин)
'
' Проверяем, осталось ли еще время

CurrentTime = Timer()
TimeBeforeEnd = TimeLimit - (CurrentTime - StartTime)
If TimeBeforeEnd <= 0 Then
MsgBox ("Время экзамена истекло")
UserForm1.CommandButton3.Enabled = False
UserForm1.Show
End If

For i = 1 To ActiveWorkbook.Sheets.Count - 1
ActiveWorkbook.Sheets(i).Cells(1, 12).Value = Format(Int(TimeBeforeEnd / 60), "00") + ":" + Format(TimeBeforeEnd Mod 60, "00")
Next i


'
If (ActiveSheet.Index >= Sheets.Count - 1) Then
GoTo Out
Else
Sheets(ActiveSheet.Index + 1).Select
End If
Out:
End Sub

Private Sub Закончить()
Dim Results(14) As String
Dim Person(6) As String
Dim Ans As String

Results(0) = "Вопрос" + Chr(9) + "Ответ"

With ActiveWorkbook.Sheets("Ответы")
For i = 1 To ActiveWorkbook.Sheets.Count - 1
If .Cells(22, i + 1).Value = "" Then
Ans = "НЕТ"
Else
Ans = Format(.Cells(22, i + 1).Value, "0")
End If
Results(i) = Format(.Cells(21, i + 1), " 0000") + Chr(9) + " " + Ans
Next
Person(0) = .Cells(2, 3).Value
Person(1) = .Cells(3, 3).Value
Person(2) = .Cells(4, 3).Value
Person(3) = ""
Person(4) = "Задание N" + Format(.Cells(1, 3).Value, "000000")
Person(5) = "Код АЦС " + .Cells(16, 3).Value
Person(6) = "Дата " + Format(.Cells(18, 2).Value, "Short date")
UserForm1.Person.List = Person

'Chr(10) + .Cells(3, 3).Value + Chr(10) + _
'.Cells(4, 3).Value Chr(10) + "Код АЦС " + .Cells(16, 3).Value + Chr(10) _
'+ "Дата " + .Cells(17, 3).Value
UserForm1.Caption = "1C:Профессионал. Задание N" + Format(.Cells(1, 3).Value, "000000")
End With
UserForm1.Results.List = Results
UserForm1.Show
End Sub
Private Sub Auto_Open()
Dim Person As String

With ActiveWorkbook.Sheets("Ответы")
Person = .Cells(2, 3).Value + " " + .Cells(3, 3).Value + " " + .Cells(4, 3).Value
UserForm2.Caption = "1C:Профессионал. Версия " + CStr(.Cells(1, 6)) + _
" Задание N" + Format(.Cells(1, 3).Value, "000000")
End With
UserForm2.Person.Caption = Person

UserForm2.Show
End Sub

нихчего не могу понять.....где могут лежать пароли!

Вот дополнение к твоему куску

Из модуля формы UserForm1

Расчет правильных ответов идет примерно так
В цикле
Проверяются строки 20 и 22 начиная со второй колонки (листа ответы)
Вот если это выражение тогда ответ правильный