Доброго времени суток.
Начал освоение VB. Нужно по работе. В дебри пока не лезу, но уже на самой поверхности упёрся в проблемку, которая упорно не желает решаться.
Ситуация такова: на сетевом диске находится книга, к которой имеют доступ несколько пользователей. Планирую оборудовать эту книгу полезными макросами. На данном этапе требуется следующее. При открытии книги (Excel 2003) тем или иным пользователем в первую очередь проверяется его имя. В зависимости от имени, переменной (например User) присваиваются значения от 0 до 10. Все прочие макросы книги должны будут использовать эту переменную (в основном для того чтобы ограничивать свободу действий каждого пользователя сообразно его служебным функциям). Как я понимаю, необходимо создать глобальную переменную. В объекте ЭтаКнига пишу код:
Workbook_open()
Public Usr As Integer
If Environ("username") = "Ivanov_II" Then
User = 0
End If
If Environ("username") = "Petrov_PP" Then
User = 1
End If
........
If Environ("username") = "Sidorov" Then
User = 10
End If
End Sub
При открытии книги получаю сообщение "Compile Error: Invalid attribute in Sub or Function"
с выделением в коде слова Public.
Каюсь, не штудировал матчасть от корки до корки, однако удивлён, почему Excel не позволяет сделать такую, казалось бы, простую вещь. Прошу помочь советом.
Начал освоение VB. Нужно по работе. В дебри пока не лезу, но уже на самой поверхности упёрся в проблемку, которая упорно не желает решаться.
Ситуация такова: на сетевом диске находится книга, к которой имеют доступ несколько пользователей. Планирую оборудовать эту книгу полезными макросами. На данном этапе требуется следующее. При открытии книги (Excel 2003) тем или иным пользователем в первую очередь проверяется его имя. В зависимости от имени, переменной (например User) присваиваются значения от 0 до 10. Все прочие макросы книги должны будут использовать эту переменную (в основном для того чтобы ограничивать свободу действий каждого пользователя сообразно его служебным функциям). Как я понимаю, необходимо создать глобальную переменную. В объекте ЭтаКнига пишу код:
Workbook_open()
Public Usr As Integer
If Environ("username") = "Ivanov_II" Then
User = 0
End If
If Environ("username") = "Petrov_PP" Then
User = 1
End If
........
If Environ("username") = "Sidorov" Then
User = 10
End If
End Sub
При открытии книги получаю сообщение "Compile Error: Invalid attribute in Sub or Function"
с выделением в коде слова Public.
Каюсь, не штудировал матчасть от корки до корки, однако удивлён, почему Excel не позволяет сделать такую, казалось бы, простую вещь. Прошу помочь советом.
