Скрыть глобальные переменные

[chillUA]

Доброе время суток.

Подскажите пожалуйста как в Excel 2003 используя VBA можно создать и сохранить глобальные переменные. Можно конечно и на отдельном листе, но тогда нужно спрятать эти значения от пользователя и сохранить их. Собственно это будет количество заполненых строк и номера 1й и последней строки. Заранее спасибо.

[doober]

Самое простое,спрячте записью в реестре

Public Const APPNAME As String = "Переменные"
Public Const DEVNAME As String = "Мои"

Public Нач_диапазона  As Integer 
Public Кон_диапазона  As Integer 
-------------------------------------------------
применение
Считывание,при отсутствии данных равно 0
Нач_диапазона = GetSetting(DEVNAME, APPNAME, "Нач_диапазона",0)
Кон_диапазона = GetSetting(DEVNAME, APPNAME, "Кон диапазона",0) 

Запись
SaveSetting DEVNAME, APPNAME, "Нач диапазона", Нач_диапазона
  
SaveSetting DEVNAME, APPNAME, "Кон диапазона", Кон_диапазона

[chillUA]

Не понимаю зачем тут реестр. Перефольмулирую:

1-е Как обьявить глобальную переменную которую можно инициализировать и использовать в разных модулях (или хотя бы в одном модуле но разными функциями), тоесть чтобы она сохраняла значение для всех?

У меня почему-то переменная обьявляется для всех модулей (функций), но в каждом модуле должна инициилизироватся отдельно иначе выдает ошибку.



2-е Сохранить значение, так чтоб пользователь его не видел, но оно было при следующем открытии документа?

Это проще сделать, сохранив данные на листе, но как их спрятать (чтоб не редактировали)?. Можно, наверное, записывать перед закрытием и считывать только раз после открытия. Тогда нужна глобальная переменная.

[chillUA]

Извините, не увидел код. Наверное, прочитал перед правкой.

Спасибо. Щас гляну в Гугл.

[Aent]

chillUA, да в общем то реестр тут действительно не очень нужен (если не ставится задача передачи данных между книгами).
1)Объявляйте переменную на уровне модуля как Global

Global МакcимальныйНомерСтроки as long

2)Но удобнее использовать Property для сохранения/извлечения информации из невидимого элемента коллекции Names.
В модуль кода добавляете

Public Property Let НомерСтроки(i As Long)
   On Error Resume Next
   With ActiveWorkbook.Names
       .Item("НомерСтроки").Delete
       .Add "НомерСтроки", Format$(i, """=""#"), False
   End With
End Property

Public Property Get НомерСтроки() As Long
   On Error Resume Next
   With ActiveWorkbook.Names
       НомерСтроки = CLng(Mid$(.Item("НомерСтроки"), 2))
       If Err.Number <> 0 Then
           НомерСтроки = 0
       End If
   End With
End Property

В коде на VBA можно после этого писать просто

НомерСтроки = НомерСтроки+1

И разумеется нужно сохранять книгу при выходе.
Этот вариант более мобилен так как информация сохраняется непосредственно в книге.
Кроме того, так как мы определяем имя, на любом рабочем листе вы можете просто писать в ячейку формулу =НомерСтроки.

[chillUA]

Использовал в коде ваш совет. Работает, но после окрытия книги выдает такое:



С чем это может быть связано?