I have a worksheet that has and auto_open script to enable Outlining. I need
help on the command that will allow me to change Row and column widths.

Sub auto_open()
With Worksheets("Passive Safety")
.Protect Password:="password", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

This is using the snippets from the VBA help file.
It is pretty simple. You can also use specific
numbers in place of the .RowHeight * 2 Or the
..ColumnWidth * 2.

Sub wdthNhgt()
With Worksheets("Sheet1").Rows(1)
.RowHeight = .RowHeight * 2
End With
With Worksheets("Sheet1").Columns("A")
.ColumnWidth = .ColumnWidth * 2
End With
End Sub

"Ram B" wrote:

> I have a worksheet that has and auto_open script to enable Outlining. I need
> help on the command that will allow me to change Row and column widths.
>
> Sub auto_open()
> With Worksheets("Passive Safety")
> .Protect Password:="password", userinterfaceonly:=True
> .EnableOutlining = True
> End With
> End Sub
>

JLGWhiz: The code you have works as a stand alone. Also what i am looking for
is to allow the user to dynamically change the height and width on a
protected sheet. I can do this by checking "Format Columns" & "Format Rows"
when I protect the sheet manually Since I have the following in a code

With Worksheets("Passive Safety").Protect Password:="password" in any script.

Once this is executed the manual checks are over ridden. I tried recording a
macro
while protecting which gives me


AllowFormattingColumns:=True
AllowFormattingRows:=True

I tried to incert this but I got an error.

Any suggestions????????


"JLGWhiz" wrote:

> This is using the snippets from the VBA help file.
> It is pretty simple. You can also use specific
> numbers in place of the .RowHeight * 2 Or the
> .ColumnWidth * 2.
>
> Sub wdthNhgt()
> With Worksheets("Sheet1").Rows(1)
> .RowHeight = .RowHeight * 2
> End With
> With Worksheets("Sheet1").Columns("A")
> .ColumnWidth = .ColumnWidth * 2
> End With
> End Sub
>
> "Ram B" wrote:
>
> > I have a worksheet that has and auto_open script to enable Outlining. I need
> > help on the command that will allow me to change Row and column widths.
> >
> > Sub auto_open()
> > With Worksheets("Passive Safety")
> > .Protect Password:="password", userinterfaceonly:=True
> > .EnableOutlining = True
> > End With
> > End Sub
> >