How to keep the column with FIXED? When I use pivot refreshes in Excel 2007, it keep changes

Question

I use MS Excel 2007.
I want to keep the column fixed whenever I refresh data in pivot tables.
I tried even coding it with a macro:
    Columns("B:F").Select
    Columns("B:F").EntireColumn.AutoFit
    And, in another time I tried columnwidth value to a fixed number; both doesnt work.  
Please suggest a solution
Thanks in advance
Rafeek KBM

Answer 1

Hi Rafeek,
One solution is to set the column width after manually or programmatically refresh the PivotTable, for example:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim ws As Worksheet
Set ws = Application.ActiveWorkbook.ActiveSheet
ws.Columns("A").ColumnWidth = 10
End Sub
Another option is to set the column width, then protect the columns from been updated by the user, before refreshing the PivotTable, unprotect the worksheet. For example:
Public Sub LockColumnA()
Dim ws As Worksheet
Set ws = Application.ActiveWorkbook.ActiveSheet
ws.Columns("A").ColumnWidth = 10
ws.Columns("A").Locked = True
ws.Protect "123"
End Sub
Public Sub UnprotectWorksheet()
Dim ws As Worksheet
Set ws = Application.ActiveWorkbook.ActiveSheet
ws.Unprotect ("123")
End Sub
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.