Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations pierreick on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to access hidden sheets

Status
Not open for further replies.

Clyde38

Electrical
Oct 31, 2003
533
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?
 
Replies continue below

Recommended for you

The hidden sheets are probably password protected.
 
On Excel 2003, Format/Sheet/Unhide
On Excel 2007/2010, Home Ribbon, Format/Hide & Unhide
 
You may be right, the workbook was password protected and I used the following subroutine.

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of
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.
 
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".
 
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.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor