wowick,
спасибо за Ваш ответ.

Я правильно понимаю, что не могу меня защиту листа при общем доступе?

На самом деле, я пытаюсь установить защиту разных ячеек листа в зависимости от юзера.

Из Вашего ответа, я сделал вывод, что это сделать невозможно.

Уважаемые форумчане,
доброе утро!

Разрешил общий доступ к книге.
При открытии книги в общем доступе выдает ошибку Run-time error 1004 "Application or object defined error" на следующей строке кода:
Application.ThisWorkbook.Worksheets(1).Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:= _
       False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
       AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowSorting:= _
       True, AllowFiltering:=True, AllowUsingPivotTables:=True, Userinterfaceonly:=True
Пожалуйста, помогите решить эту задачу.

Спасибо, решил задачу с помощью Chr().

Уважаемые Икселеведы, добрый день.  
 
Подскажите, пожалуйста, какая Worksheetfunction в VBA  соответствует функции СИМВОЛ().  
Возможно, где-то есть таблица соответствий?

Лист 1 ячейка А1  
 
Worksheets(1).Cells(1, 1).FormulaLocal = "=(EJ7/EM7)*(РАЗНДАТ(K7;'31.12.2010';'y')*12+РАЗНДАТ(K7;'31.12.2010';'ym'))"

Спасибо. Понимание обрел :)

Справился с проблемой так:  
 
в коде к форме была процедура обработки события нажатия на кнопку.  
Option explicit в коде к форме не объявлял.  
 
я саму процедуру вынес в стандартный модуль - в рамках стандартного модуля значение переменной не "теряется". Сейчас попробую Option explicit написать в начале всех модулей.  
 
Если не сложно, пожалуйста, маленький ликбез - а что значит Option explicit, знаю что необходимо это прописать перед объявлением переменных Public, но зачем, так и не знаю.  
 
Точно - детские шаги.

в стандартном модуле переменные, в том же, где и fff.  
nnn - находится в коде к форме1 (view code).

x объявлена.  
Все переменные объявлены Public  
 
nnn находится в модуле1,  
fff находится в коде к форме  
 
я неверно написал пример, извиняюсь, правильно так:  
 
Option Explicit  
Public a As Long, x As Long  
 
Sub nnn  
For x=1 to 3  
a=a+1  
Next x  
End sub  
 
Sub fff  
Call nnn  
If a=3 then  
...  
End if  
End sub  
 
не работает

Добрый день, уважаемые Икселеведы!  
 
Прошу совета.  
 
Option Explicit  
Public a As Long  
 
Sub nnn  
For x=1 to 3  
a=a+1  
Next x  
Call fff  
End sub  
 
Sub fff  
If a=3 then  
...  
End if  
End sub  
 
Проблема: значение переменной "а" не переносится в fff.

Спасибо.  
 
При использовании предложенного решения ячейки в Листбоксе, которые должны содержать данные из ячеек листа, имеющих формат "Финансовый", представляются пустыми.

Да...  
Придется предупредить пользователя, что в случае возникновения такого рода "неполадок" следует менять формат ячейки... Возможно есть иное решение?  
Ведь чем больше предупреждалок, тем чаще предупреждалки не читаются...

Замечательно, все заработало. Даже со сложными форматами, выраженными китайскими иероглифами.    
Большое спасибо.

Уточнение: Данные заполняются из ячеек листа книги Иксель. Формат указанных ячеек необходимо "переносить" в ячейки листбокса.

Здравствуйте, многоуважаемые Икселеведы!  
 
Помогите, пожалуйста.  
 
Есть ячейки, каждая со своим форматом. Необходимо при создании листбокса и заполнении значений в нем, сохранять формат данных. Заранее определить конкретный формат для конкретной "ячейки" листбокса не представляется возможным.

For y = 3 To WS2.Cells(3, Columns.Count).End(xlToLeft).Column  
If WS2.Cells(y , 3).Value = WS1.Range("B" & x).Value Then  
MsgBox Good  
End If  
Next y  
 
Всем спасибо, разобрался.

Здравствуйте!  
Подскажите, пожалуйста, как правильно указать номер столбца в Range:  
 
y - номер столбца  
WS1 и WS2 - листы книги  
 
For y = 3 To WS2.Cells(3, Columns.Count).End(xlToLeft).Column  
If WS2.Range(y & 3).Value = WS1.Range("B" & x).Value Then  
MsgBox Good  
End If  
Next y

Вот так проскочило (заработало). Спасибо Вам - благодаря Вашим советам мини-задача решена.  
 
   wDoc.Tables.Add Range:=wbApp.Selection.Range, NumRows:=4, NumColumns:= _  
       4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _  
       wdAutoFitFixed

{quote}{login=Казанский}{date=02.12.2010 03:58}{thema=}{post}Еще,  
wDoc.Tables.Add Range:=Selection.Range  
должно быть  
wDoc.Tables.Add Range:=wDoc.Selection.Range{/post}{/quote}  
 
 
Object doesn't support this property or method  
wDoc.Tables.Add Range:=wDoc.Selection.Range, NumRows:=4, NumColumns:= _  
       4, DefaultTableBehavior:=1, AutoFitBehavior:= _  
       0

Вставил числа, все равно ругается: wrong number of arguments or invalid property assingment  
 
А библиотеку надо подключать на каждом компьютере куда попадает документ? или можно подключить кодом? Как это делается, подскажите пожалуйста?

Добрый день!  
Помогите, пожалуйста, со вчерашнего дня бьюсь с этой штукой.  
В модуле книги Excel есть следующий код:  
 
Sub Create_Word_Doc()  
Dim wbApp As Object, wDoc As Object, sStr As String  
Set wbApp = CreateObject("Word.Application"): wbApp.Visible = True  
Set wDoc = wbApp.Documents.Add  
'создаем таблицу - если вместо wDoc (ниже) ставим ActiveDocument тоже ругается  
   wDoc.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _  
       4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _  
       wdAutoFitFixed  
   With Selection.Tables(1)  
       If .Style <> "Сетка таблицы" Then  
           .Style = "Сетка таблицы"  
       End If  
       .ApplyStyleHeadingRows = True  
       .ApplyStyleLastRow = True  
       .ApplyStyleFirstColumn = True  
       .ApplyStyleLastColumn = True  
   End With  
 
nomerdoc = nomerdoc + 1  
wDoc.SaveAs Filename:=ThisWorkbook.Path & "\запрос" & nomerdoc & ".doc"  
wDoc.Close: wbApp.Quit  
Set wDoc = Nothing: Set wbApp = Nothing  
End Sub  
 
Ругается на создание таблицы.

Спасибо за ответ.  
Понял свою ошибку - я пытался открыть ранее созданный документ, которого нет.  
А мне надо было создать документ.  
Ответ на вопрос: "Как создать документ ворд из эксель?" нашел здесь:  
 
http://www.planetaexcel.ru/forum.php?thread_id=14168

Добрый день.  
Нашел в форуме код. Не работает. Код прописываю в модуле вба эксель.  
Посмотрите, пожалуйста, что не так в коде?  
 
Option Explicit  
Dim objWord As Object  
Dim objDoc As Object  
 
Public Sub PD()  
Set objWord = CreateObject("Word.Application")  
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.docm")  
'Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.doc") - так таже не работает  
 
objDoc.Save  
objDoc.Close  
objWord.Quit  
End Sub

Me.SaveCopyAs Mid(Me.FullName, 1, Len(Me.FullName) - 4) & Format(Time, "_hh_mm_ss") & Format(Date, "_dd_mm_yy") & ".xls"

Спасибо ОГРОМНОЕ!  
Вот в чем подвох!  
Все работает теперь!  
 
P.S.: Очень странно, что в 2003-м на защищенном листе работает, а в 2007-м - нет...

Подскажите, пожалуйста, а это как-то можно исправить?  
Может быть если у меня получится исправить эту ошибку - все будет работать...

Спасибо Вам.  
 
Подскажите, пожалуйста, а почему Вы говорите, что ошибка возникает на ActiveChart.Axes(xlCategory).Select.  
 
Ведь на листе USD все работает как положено. У меня ошибка выскакивает когда обработка кода осуществляется на листе EURO.

Вы успели скачать файл.  
На соседних компьютерах тоже не работает на Excel 2007.  
Что за глюк такой...

Именно Chart.Select, потому что я все остально закомментировал, а дальше дело не пошло...

Желтым выделяет Chart.Select