Проблема с формой пароля

[almus]

Добрый день.
Возникла такая вот ситуация, имееться база в екселе. доступ в базу осуществляеться через ввод пароля. Функция пароля прописана в макросах. При вводе пароля даёться доступ к функциям редактирования, учёта и добавления информации. Также после ввода пароля, действия пользователя логируються. Но в один прекрасный день, место формы ввода пароля выбило ошибку. Скрин проложен.
Далее, что самое интересное, база на части компов раблотает абсолютно нормально, на части нет.
офис 2003.
11.8169.8172 (работает) 11.5612.5606 (неработает)
11.5612.8172 (работает)
В чем проблема, не подскажите, и как без переписания макросов єто вылечить?)
Судя по всему тут пробелема толи в обновлениях, толи...
Самое интересное, что явной причины для этого нет.

[slan]

модуль не может быть скомпилирован

видимо используется метод, неприменимый к активному объекту..

но это вывод на пределе телепатических способностей..

новых листов, диаграммм не добавляли?..

[IgorGO]

passFrm - это общий модуль для всех?
или файл, с которого доступаются к базе у каждого индивидуальный?
пользователи не могут влезть в этот скрытый модуль?
в любом случае надо идти passFrm определить строку, где компилятор запутался в синтаксисе, дальше по обстоятельствам...

[almus]

Новых форм не добавлял.
passFrm - общий для всех
Да, пользыватели не могут влезть в скрытый модуль
строка

Sub Auto_Open()
'ThisWorkbook
passFrm.Show

ну и сам код

"Dim pass As String
Dim UsrName(100)
Dim Cnt

Private Sub CommandButton1_Click()
pass = TextBox1.Text

For q = 1 To Cnt - 99
If UsrName(q) = pass Then
Лист4.Unprotect ("test7")
Лист4.Cells(1, 21) = Лист7.Cells(q + 99, 11)
login.Show
Exit For
End If

TextBox1.Text = ""
TextBox1.SetFocus
Next q


End Sub

Private Sub UserForm_Activate()

For q = 100 To 110
If Лист7.Cells(q, 10) = "" Then Exit For
UsrName(q - 99) = Лист7.Cells(q, 10)
Cnt = q
Next q


End Sub
"

[almus]

Только вот в чём проблема, чот на части компов работает, на части нет. файл один и тот-же... Ексель удалял-устанавливал, кеши чистил, с бубном ходил...

[slan]

Сообщение от almus

Новых форм не добавлял.
passFrm - общий для всех
Да, пользыватели не могут влезть в скрытый модуль
строка

Sub Auto_Open()
'ThisWorkbook
passFrm.Show

ну и сам код

"Dim pass As String
Dim UsrName(100)
Dim Cnt

Private Sub CommandButton1_Click()
pass = TextBox1.Text

For q = 1 To Cnt - 99
If UsrName(q) = pass Then
Лист4.Unprotect ("test7")
Лист4.Cells(1, 21) = Лист7.Cells(q + 99, 11)
login.Show
Exit For
End If

TextBox1.Text = ""
TextBox1.SetFocus
Next q


End Sub

Private Sub UserForm_Activate()

For q = 100 To 110
If Лист7.Cells(q, 10) = "" Then Exit For
UsrName(q - 99) = Лист7.Cells(q, 10)
Cnt = q
Next q


End Sub
"

вы не все показали( например, процедура auto_open у вас не завершена)

мож лучше файлом?

[almus]

файлом к сожелению не получиться.

Такс, еще раз акцентирую внимание на том, что на некоторых компьютерах файл работает корректно. Раннее файл также работал корректно, но по не извесной причине перестала работать форма, при том что не на всех машинах, а только на части... в внутреностях файла никто не копался

[EducatedFool]

Самый простой способ узнать причину - на том компе, где проявляется неисправность, нажать Debug / Compile и посмотреть, на какой строке компилятор ругается.

У меня было нечто подобное - передавал в функцию аргумент с ошибкой
(функция принимает только значение типа Boolean) - вместо "False" передавал "Falsу" (видимо, при наборе кода сработал PuntoSwither). Так вот компилятор на моём домашнем компе не замечал этой ошибки (сколько не компилировал), а на машинах юзеров сразу же вылетала ошибка компиляции... Так и не понял, почему мой компилятор так лояльно относится к очевидным ошибкам... Может, у Вас нечто подобное?