AllowFormattingColumns Property

expression.AllowFormattingColumns

expression    Required. An expression that returns a Protection object.

Example

This example locks all cells on Sheet1, and then it enables the user to resize rows and columns, and then protects Sheet1.

Sub Protect_Worksheet()
    Dim ptProtSheet1

    ' Lock all cells on the worksheet.
    Spreadsheet1.Worksheets("Sheet1").Cells.Locked = True

    Set ptProtSheet1 = Spreadsheet1.Worksheets("Sheet1").Protection

    ' Allows user to resize rows while Sheet1 is protected.
    ptProtSheet1.AllowFormattingRows = True

    ' Allows user to resize columns while Sheet1 is protected.
    ptProtSheet1.AllowFormattingColumns = True

    ' Protect Sheet1.
    ptProtSheet1.Enabled = True
End Sub