---

Sub ВернутьсяНазад()
    Dim пароль As String
    пароль = "200713"

    ' 1. Разблокирую титульный лист
    On Error Resume Next
    Sheets("Титульный - регистрация").Unprotect Password:=пароль
    On Error GoTo 0

    ' 2. Очищаю данные
    Sheets("Титульный - регистрация").Range("F4:F8").ClearContents

    ' 3. Блокирую обратно
    Sheets("Титульный - регистрация").Protect Password:=пароль

    ' 4. Очищаю вопросы
    Dim i As Integer
    For i = 1 To 30
        On Error Resume Next
        Sheets(i & " вопрос").Unprotect Password:=200713
        Sheets(i & " вопрос").Range("D22").ClearContents
        Sheets(i & " вопрос").Protect Password:=200713
    Next i

    ' 5. Возвращаю на начало
    Sheets("Титульный - регистрация").Activate

    ' 6. Сообщение
    MsgBox "Все данные очищены. Можно начинать новый тест.", vbInformation
End Sub