Autoexpand Row Height on a Password Protected Spreadsheet

[Chris Waller]

Morning All,

I am using Excel 2010 which I am experiencing a small problem with. I have a spreadsheet which is password protected, this spreadsheet contains a large number of formulae lifting data from another spreadsheet. When I make a selection from cell O2 I would like rows X5:Y11 to autoexpand row height to accommodate all the text picked up by the formula. I am reluctant to remove the password protection as I can imagine that some of the formulae will be overtyped or worse, someone makes changes to the formulae. TIA

 

[jim may]

Not sure I'm getting all that you are looking for BUT here's a Starting point.

First My Sample Activesheet IS PROTECTED with Password Secret and I created Data In cells F7 and G8 that needs "Expansion". Note that when
I SELECT cell C4 the Macro Fires...

Excel 2010

	A	B	C	D	E	F	G	H	I	J
This is a test of
This is a test of

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]2[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]3[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]4[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="bgcolor: #FFFF00, align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]5[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]6[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]7[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]8[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

</tbody>

Sheet1​

Paste the following code into Sheet1's Event code sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
ActiveSheet.Unprotect Password:="Secret"
Target.Offset(3, 0).Rows("1:2").EntireRow.AutoFit
ActiveSheet.Protect Password:="Secret"
End Sub

 

[Chris Waller]

Jim,

Thanks for your response. Sorry it has taken a while to get back to you, but I am innundated with work at the moment. I did send a response yesterday, but for some reason it appears to have disappeared. I did try your code above with amendments to fit my scenario, but it didn't quite work out. I changed the reference from C4 to O2. I canged the password to the one I am using and the rows I need to expand (height) are from cells X5 to Y11. When I pick a different choice in O2 I need the cells in X5 to Y11 to resize for the new selection rather than the cells staying expanded after the first search. HTH