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
--
Marc

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

"Marcus Analyst" wrote in message
...
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
--
Marc

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


"C Brehm" wrote:

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

"Marcus Analyst" wrote in message
...
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
--
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

On Mon, 7 Jan 2008 14:24:03 -0800, Marcus Analyst
wrote:

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

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


"Gord Dibben" wrote:

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

On Mon, 7 Jan 2008 14:24:03 -0800, Marcus Analyst
wrote:

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

Thanks so much! This worked terrifically!
--
Marc


"Gord Dibben" wrote:

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

On Mon, 7 Jan 2008 14:24:03 -0800, Marcus Analyst
wrote:

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

Glad to hear it did the trick.

Gord

On Mon, 7 Jan 2008 15:44:03 -0800, Marcus Analyst
wrote:

Thanks so much! This worked terrifically!

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

--


Gary


"Marcus Analyst" wrote in message
...
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
--
Marc