Ширина столбца не изменяется для общих рабочих книг

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

Дело в том, что для любого пользователя, кроме genericUser, столбец будет отображаться как 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

Надеюсь, эта помощь.