Help needed with office quiz

[gedclink]

Get a lot of " quizzes " into the office through e-mail from colleagues etc..We can't always complete them ( due to lack of knowledge ) and want to know how we can find out the answers that appear to be "hidden" in the worksheet.

Essentially it would appear that when you type in a correct answer, it checks it then allocates a point . Someone told me you could " reveal " the answers by copying the original sheet and pasting it into a new sheet. This doesn't work..Any help please...

If anyone wants the quiz to try out on just ask and I'll mail it.

Thanks

Ged

 

[Iain Lewis]

To make a sheet Very Hidden go into the VBE ( Visual Basic Editor - press Alt + F11 ).

Select the sheet you want to make Very Hidden in the Project Explorer window ( shows the mosules for open files, Add-Ins etc - Press Ctrl + R if not visible ). In the properties window ( F4 to view ) look at the options for Visible ( -1 xlSheetVisible, 0 xlSheetHidden & 1 xlSheetVeryHidden ). When it's Very Hidden you can't see it when you select Format...Sheet...Unhide, but you can see it in the VBE.

 

[Iain Lewis]

The code to remove the password from protected sheets is :

Sub sheet_BreakIt()

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr
If ActiveSheet.ProtectContents = False Then
Exit Sub
End If
Next n
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Next m
Next l
Next k
Next j
Next i
End Sub

Appologies to the person who originally wrote this code - I've forgotten who you are so I can't give you the proper credit. You can substitue ActiveSheet with Workbook if you have a file that can be opened as a Read-Only file. I'm afraid I can't explain how it works - it's a bit beyond my level of VBA.

 

[neills]

Thanks lian looks very interesting will try it out

 

[Jack in the UK]

this crack code works does anyone really know who did it....????

Thanks i guess who ever you are, even if you dont see this post.

 

[Chris Davison]

Bob McCormick ?

'----------------
Sub PasswordBreaker()
'by Bob McCormick on NG: microsoft.public.excel.misc
'on 22 May 2001.

'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) _
& Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _
& Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
'---------------------

 

[Mark O'Brien]

**** you Chris, I was going to post the header:

<pre>
'by Bob McCormick on NG: microsoft.public.excel.misc on 22 May 2001.
'Breaks worksheet password protection.
</pre>

You beat me to it matey. (yes the bubble bath)