共享工作簿的列宽不变

Question

因此，我将这段代码设置为每天在特定时间自动添加一个新列。我将此宏设置为仅适用于一个用户，因此不会创建重复的列。

If Environ("Username") = genericUser Then
    If Range("G11").Value <> Date Then
        Range("G1").EntireColumn.Insert
        Range("G11").Select
        ActiveCell.FormulaR1C1 = LDate
        Range("G12").ColumnWidth = 70
        Range("G12").Select
    End If
End If

该问题适用于泛型用户以外的任何用户，该列将显示为14而不是70。我通过添加一个检查（针对所有用户）来解决此问题，但我很好奇这是否是共享工作簿中的问题一般，或者可以通过更改上面的宏来解决。

注意，我提到的解决方法。我在打开的工作簿和自动更新中添加了此内容：

If Range("G12").ColumnWidth <> 70 Then
    Range("G12").ColumnWidth = 70
End If

Answer 1

您是否尝试为genericUser以外的任何用户包括工作表？ 如果您有一张以上的纸，我认为这是必要的。

If Worksheets("NameOfWorksheet).Range("G12").ColumnWidth <> 70 Then
    Worksheets("NameOfWorksheet).Range("G12").ColumnWidth = 70
End If

希望获得帮助。