I protect sheet - Macro will not run now

[Marcus Analyst]

I have written a Macro that automatically hides rows on a sheet upon opening
the file. When I protect the sheet, I get a run-time error 1004 "Unable to
set the hidden property of the Range Class". QUESTION: How do I get this
macro to run and protect most of the cells on the sheet? Here is the code.

Sub Auto_open()
'
' Auto_open Macro
' Hides rows 8 through 28 on "Current" worksheet
'
' Keyboard Shortcut: Ctrl+h
'
Sheets("CURRENT").Select
Rows("8:28").Select
Selection.EntireRow.Hidden = True
Sheets("Cover").Select
End Sub

 

[C Brehm]

WorkSheets("Current").unprotect "password"
and
WorkSheets("Current").protect "password"

 

[Gord Dibben]

Sub Auto_open()
'
' Auto_open Macro
' Hides rows 8 through 28 on "Current" worksheet
'
' Keyboard Shortcut: Ctrl+h
'
Sheets("CURRENT").Select
ActiveSheet.Unprotect Password:="justme"
Rows("8:28").EntireRow.Hidden = True
ActiveSheet.Protect Password:="justme"
Sheets("Cover").Select
End Sub


Gord Dibben MS Excel MVP

 

[Marcus Analyst]

Thanks Gord! I'll try this now!
--
Marc

Sub Auto_open()
'
' Auto_open Macro
' Hides rows 8 through 28 on "Current" worksheet
'
' Keyboard Shortcut: Ctrl+h
'
Sheets("CURRENT").Select
ActiveSheet.Unprotect Password:="justme"
Rows("8:28").EntireRow.Hidden = True
ActiveSheet.Protect Password:="justme"
Sheets("Cover").Select
End Sub


Gord Dibben MS Excel MVP

 

[Marcus Analyst]

Thanks! I'll give this a shot!
--
Marc

WorkSheets("Current").unprotect "password"
and
WorkSheets("Current").protect "password"

 

[Marcus Analyst]

Thanks so much! This worked terrifically!

 

[Gord Dibben]

Glad to hear it did the trick.

Gord

 

[Gary Keramidas]

if you use this to protect it, you won't have to worry if the sheet is protected
or not when you run your code,

Worksheets("Sheet1").Protect UserInterfaceOnly:=True