vba regulate row height

[john_cash]

Hello,
in a workbook it is possible to adjust the height of the rows only if clicked
in the cells of column C / F / G not selecting the whole row?
I hope I explained myself
john

 

[Michael M]

You can't adjust height of individual cells !
When a cell height is adjusted the whole row is affected.

 

[john_cash]

Hi Michael.
I have a macro

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


   If Not Intersect(Target, Range("C:C, F:F, G:G")) Is Nothing Then
       ActiveSheet.Unprotect "987654"
        ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
       , AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFiltering:=True
   Else
        ActiveSheet.Unprotect "987654"
        ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowFormattingRows:=False, AllowFormattingCells:=False, AllowFiltering:=True
    End If
    
   End Sub

this macro only in the cells of the columns C/F/G
you can change the text size, in the other columns you can only write

This macro works in this range A1: I200
What I ask is a change:
only by clicking in the cells ol column C/F/G is it possible to adjust the height of the rows Selection.Rows.AutoFit



Or create this macro:
select a column cell C/F/G > Selection.Rows.AutoFit
if it is a different cell notice you cannot adjust


I hope I explained myself
john

 

[john_cash]

A help for this?

select a column cell C/F/G > Selection.Rows.AutoFit
if it is a different cell notice you cannot adjust

john

 

[Michael M]

Maybe this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("C:C, F:F, G:G")) Is Nothing Then
       ActiveSheet.Unprotect "987654"
        ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
       , AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFiltering:=True
        [color=red]ActiveCell.EntireRow.AutoFit[/color]
   Else
        ActiveSheet.Unprotect "987654"
        ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowFormattingRows:=False, AllowFormattingCells:=False, AllowFiltering:=True
    End If
 End Sub

 

[john_cash]

Hi Michael,
I think it is not accurate to insert the functionin ActiveCell.EntireRow.AutoFit in the macro that I insert
hould only work if I click in a cell
Must be 2 separate macros