При смене версии MS Office на 2010 перестал работать макрос

Автор Mikhalya, 24.05.2012, 06:02

« назад - далее »

Mikhalya

При смене пакета Ms Ofice перестал работать макрос.
Открывает слудеющую ощибку;


Private Sub CommandButton3_Click()
   If fLocaleInfo(LOCALE_SDATE) <> "." And fLocaleInfo(LOCALE_SDECIMAL) <> "," Then
   Dim Response
       Response = MsgBox("Для работы программы нужно установить Россия(Russian) в региональных настройках. Пуск(Start)>>Установки(Settings)>>Контрольная Панель(Control Panel)>>Региональные и Языковые настройки(Regional and Language Options)", vbCritical, "Ошибка")
       Exit Sub
   End If
   Form.Show vbModeless
End Sub

Mikhalya