I protect sheet - Macro will not run now

  • Thread starter Thread starter Marcus Analyst
  • Start date Start date
M

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
 
WorkSheets("Current").unprotect "password"
and
WorkSheets("Current").protect "password"
 
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
 
Thanks Gord! I'll try this now!
--
Marc


Gord Dibben said:
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
Click to expand...
 
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
 
Back
Top