Question about worksheet protection?

[mattbird]

Hi,

I have protected my workbook and have found one of my button is not working. The button un-hides a tab normally when the sheet protection is on by now I have protected the workbook it gives a run-time error '1004' unable to set the visible properties of the worksheet class. I can't work out how to get it to work the code I am currently using is below:

Sub BCMDatabase_ViewStats_TextBox1_Click()    Sheets("Stats 1").Visible = True
    Application.Goto Worksheets("Stats 1").Range("B5")
    
End Sub

One the sheet opens I then have another button on the new sheet (Stats 1) which returns the user to the main sheet (BCM Database) and hides the tab gain, But again I get the same message run-time error '1004' unable to set the visible properties of the worksheet class. The code I am using for the return is below:

Sub Stats1_Return_TextBox1_Click()    Application.Goto Worksheets("BCM Database").Range("L15")
    Sheets("Stats 1").Visible = False
    
End Sub

Why is this happening and how do I get the codes to work when the workbook is protected?

Matt

 

[jim may]

I tried your latest code, without incident (meaning no problems). It worked fine passing right thru the code line .Visible = True

 

[mattbird]

Is that with the Tab hidden and workbook and worksheet protection on on both sheets? even when I play the code it comes up with the same error.

 

[jim may]

Here's the First Macro (used)..

Sub Foo()  'Standard Macro to Make the Sheet "Stats 1" visible and unprotected
With Sheets("Stats 1")
             .Unprotect Password:="meme"
             .Visible = True
             .Application.Goto Worksheets("Stats 1").Range("B5")
        End With
End Sub

Then the code placed in the code sheet of "Stats 1"...

Private Sub Worksheet_Deactivate()   ' when you leave the Stats sheet this macro automatically runs..
If Me.Name = "Stats 1" Then
        With ActiveSheet
            .Protect Password:="meme"
            .Visible = False
        End With
    End If
End Sub

 

[jim may]

Correction... code should be...

Private Sub Worksheet_Deactivate()   ' when you leave the Stats sheet this macro automatically runs..
If Me.Name = "Stats 1" Then
        With Me
            .Protect Password:="meme"
            .Visible = False
        End With
    End If
End Sub

 

[mattbird]

Still getting same error and debug highlights .Visible = True. sorry for the problem, but do appreciate your help.