INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

How to access hidden sheets

How to access hidden sheets

(OP)
I've looked at thread 770-139249 for some help but I need more assistance. I have a couple of sheets that are hidden and they are set to "0 - xlSheetHidden" in the VBA project editor and when I try to set them to "-1 - xlSheetVisible, I get an error "Unable to set the Visible property of the Worksheet class".

I've also looked at Excel help sites on the Web and still no help. Any ideas?

RE: How to access hidden sheets

The hidden sheets are probably password protected.

RE: How to access hidden sheets

On Excel 2003, Format/Sheet/Unhide
On Excel 2007/2010, Home Ribbon, Format/Hide & Unhide

RE: How to access hidden sheets

(OP)
You may be right, the workbook was password protected and I used the following subroutine.

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com

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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

This gave me access to the formulas, but not to the sheets that have the data used in the calculations.

RE: How to access hidden sheets

(OP)
Thanks CarlB, but as I stated in my original post the visibility is set to "0 - xlSheetHidden". I'm able to view the pull down tab to change to "-1 - xlSheetVisible" then I get the error "Unable to set the Visible property of the Worksheet class".

RE: How to access hidden sheets

If I make a worksheet hidden, then protect the workbook with PW, I get the exact same notice when I try to make the sheet visible.
Did you run your PWBreaker on the worksheet or the workbook? Both can be protected with different PWs.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources


Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close