Code Error When Sheet Is Protected

**twofootgiant** · 08-13-2008, 05:40 AM

Hi Everyone

I am using a button on a worksheet to excecute the following code:

Private Sub HideExamples()

If Rows("6:7").EntireRow.Hidden = False Then
    Rows("6:7").EntireRow.Hidden = True
    
    Sheet2.Shapes("Button 15").TextFrame.Characters.Text = ("View Examples")
    
Else
    Rows("6:7").EntireRow.Hidden = False
    
    Sheet2.Shapes("Button 15").TextFrame.Characters.Text = ("Hide Examples")
    
End If

End Sub

It works perfectly when the sheet is unprotected but not when it is protected. the rows are not locked and neither is the button.

Any ideas whats going on??

**Stuie** · 08-13-2008, 05:47 AM

Hi twofootgiant,

Add the line of code below:

Sheets("Sheet Name").Unprotect

and then after all of the code is complete put this at the end

Sheets("Sheet Name").Protect

(If sheet is passworded then use)

Sheets("Sheet Name").Unprotect "Password HERE"

Sheets("Sheet Name").Protect "Password HERE"

**royUK** · 08-13-2008, 05:51 AM

The best way is to use Worksheet Protection with UserInterFace Only, see the details & example workbook here

http://www.excel-it.com/vba_examples.htm