非表示の「列幅保存用」シートを用意しておき、
以下のマクロでセーブしてロードする。
┌──────────────────────────────────────┐
│Sub 列幅セーブ()                                                            │
│    ActiveSheet.Cells.Copy                                                  │
│    ThisWorkbook.Worksheets("列幅保存用").Cells.PasteSpecial _              │
│        Paste:=xlPasteColumnWidths                                          │
│End Sub                                                                     │
├──────────────────────────────────────┤
│Sub 列幅ロード()                                                            │
│    ThisWorkbook.Worksheets("列幅保存用").Cells.Copy                        │
│    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteColumnWidths               │
│End Sub                                                                     │
└──────────────────────────────────────┘