Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Page 2 of 2 FirstFirst 12
Results 11 to 16 of 16

Thread: Help needed with office quiz

  1. #11
    Board Regular
    Join Date
    Apr 2002
    Location
    Midlands, UK
    Posts
    217
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.

  2. #12
    Board Regular
    Join Date
    Apr 2002
    Location
    Midlands, UK
    Posts
    217
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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(n)
    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.

  3. #13
    Board Regular
    Join Date
    May 2002
    Location
    wirral uk
    Posts
    104
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Thanks lian looks very interesting will try it out

  4. #14
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.


    Free Excel based Web Toolbar available here.

    Jack in the UK
    J & R Excel Solutions
    "making Excel work for you"

  5. #15
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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(n)
    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(n)
    Exit Sub
    End If
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    End Sub
    '---------------------

  6. #16
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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


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


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

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •