VBA Глобальные переменные больше не объявляются после удаления рабочего листа

Question

У меня есть переменные общедоступного рабочего листа, которые сначала инициализируются при открытии книги. У меня есть кнопка, которая делает это по существу:

Dim Response As Variant 

Response = MsgBox("Are you sure you want to delete this worksheet?", vbYesNo + vbExclamation, "Confirm Action") 
If Response = vbNo Then 
    GoTo exit sub 
End If 

'Save workbook prior to deletion as a precaution 
ThisWorkbook.Save 

ActiveSheet.Delete 

По какой-то причине после этого не работает, эти переменные рабочий лист больше не объявлено, и я должен переинициализировать их каждый раз. Я попытался добавить мой вызов макроса InitVariables после .Delete, и он все еще не работает.

Любая причина, по которой это может произойти?

Answer 1

Причина на самом деле очень проста: рабочий лист является классом в VBA, а его модуль кода компилируется вместе с остальной частью вашего проекта , даже если он пуст. Когда вы удаляете рабочий лист и прекращаете выполнение кода, при следующем запуске некоторого кода VBE должен перекомпилировать проект, потому что вы удалили модуль кода. Это приводит к тому, что пользовательские расширения классов теряют свое состояние.

Обратите внимание, что это не происходит, если код не работает и перекомпилирован. Это прекрасно работает:

Sheet1.foo = 42  'foo is a public variable in Sheet1 
Sheet2.Delete 
Debug.Print Sheet1.foo 'Prints 42 

Answer 2

Я только что протестировал его, используя Comintern foo. Интересно, что стандартный модуль foo потеряет его значение, но переменная public foo в модуле рабочего листа не теряет значения.