По этой ссылки есть описание минздрава  
http://www.google.ru/url?sa=t&rct=j&q=%D1%80%D0%B5%D0%B3%D0%B8%D0%BE%D0%BD%D0%B0%D0%BB%D1%8C%D0%­BD%D0%B0%D1%8F+%D0%BB%D1%8C%D0%B3%D0%BE%D1%82%D0%B0+%D1%88%D­1%82%D1%80%D0%B8%D1%85+%D0%BA%D0%BE%D0%B4%D0%B8%D1%80%D0%BE%­D0%B2%D0%B0%D0%BD%D0%B8%D0%B5&source=web&cd=1&cad=rja&ved=0CCAQFjAA&url=http%3A%2F%2Fmz.mosreg.ru%2Fuserdata%2F31794.doc&ei=eEKSUOm-Aon_4QTMz4GoDg&usg=AFQjCNHBjWW-NtxyjOdZRCReN7UTAI3m8A  
там в принцепи и есть на предпоследней странице сам рецепт со штрих кодом  
 
вот то что выдает сканер  
pADuxKNFnDAwMTA0NAAAO7Eo0WcNDPBMDEgIDUyIDY3MzUwMzMAAAAAAAAAA­AAARzQwLjkAAIAAAAACORxMMdzZgWGoAAAAAAAAAAAAAAAAAAAAAAAK/IWhG­NQAU=

Сканирую при помощи сканера

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

{quote}{login=KukLP}{date=01.11.2012 06:20}{thema=}{post}Имеется возможность прочитать правила форума.{/post}{/quote}  
по форуму не нашел такой темы.

Имеется ли возможность распознать средствами VBA pdf417 ?

{quote}{login=Alex_ST}{date=13.04.2011 02:08}{thema=}{post}Ну ттак используйте события    
TextBox1_Enter  
и  
TextBox1_Exit{/post}{/quote}  
спасибо

В excel 2003 у Combobox нет событий Gotfocus и LostFocus.    
Хотелось бы сделать, когда фокус попадает на Combobox, раскладка клавиатуры менялась    
на английскую, при потере на русскую.    
Можно ли это осуществить ?

{quote}{login=Z}{date=08.04.2011 05:32}{thema=Re: Отдельные дистрибутивы}{post}{quote}{login=valdemar_ru}{date=08.04.2011 04:49}{thema=Отдельные дистрибутивы}{post}Существуют ли отдельные дистрибутивы Excel, без остальных приложений офиса ?{/post}{/quote}  
А в чем проблемы? В поиск "Скачать Excel 2010" - получите среди всего прочего и этот адресок - http://en.softonic.com/s/microsoft-excel... А вот по поводу всего прочего - на других сайтах... ;)  
-81868-{/post}{/quote}  
Спасибо идея понятна

{quote}{login=}{date=08.04.2011 05:03}{thema=}{post}а что при установке офиса галки снять не предлагается?{/post}{/quote}  
 
Да вот в том то и дело зачем мне весь пакет сколько там 200-300 метров.  
Имеется чисто отдельно excel желательно 2003.

Существуют ли отдельные дистрибутивы Excel, без остальных приложений офиса ?

У меня похожая проблема. В Combobox постаил MatchRequired=True.  
Если что нибудь напечатать в Combobox после чего попытаться нажать Enter, Tab или просто перевести курсор появляется ошибка Invalid Property Value.    
Пытался перехватить с помощью On error Goto в событии Change, сообщение On error Goto появляется при любом наборе символа, а если нажать Enter, Tab или просто перевести курсоропять пояляется Invalid Property Value.    
Подскажите как перехватить это сообщение, что бы сообщить пользователю что он ввел данные не из списка ???

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

Подскажите пожалуйста, мне надо защитить лист, разрешить удаление только строк  
+ чтобы данные можно было вносить с помощью UserForm. Ставил защиту листа и поставил голочку удаление строк, Excel всеранво ругается и не дает удалять строки ну и соот-но данные не вносятся с помощью UserForm.

смысл понял спасибо. Буду думать дальше

Есть форма с помощью которой вносятся данные в Excel.  Хотелось бы закрыть данные на редкатирование и редактировать с помощью формы. Подскажите как средствами VBA, по событию на ячейке (Двойной клик мышкой или нажатие кл. Enter) открывалась форма на редактирование данных этой строки ?. Т.е. есть строка с данными я щелкаю на любую ячейку в этой строке и открывается форма с данными этой строки на редактирование.

Const MaskFiller As String = "__.__.__"  
'  
Private Sub TextBox1_Enter()  
With Me.TextBox1  
If Not (.Text Like "##.##.##") Then  
.Text = MaskFiller  
End If  
If Len(.Tag) = 0 Then  
Application.SendKeys "{INSERT}"  
.Tag = "-1"  
End If  
End With  
End Sub  
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
Me.Tag = vbNullString  
End Sub  
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
Dim iPos As Integer  
Dim iL As Integer  
Dim iR As Integer  
Dim s As String  
With Me.TextBox1  
s = .Text  
iPos = Int(.Tag) 'Позиция курсора  
Select Case iPos  
Case -1  
iPos = 0  
GoTo SetPos  
Case 0  
If KeyCode < Asc("0") Or KeyCode > Asc("3") Then  
GoTo NavigateKey  
Else  
Mid$(s, iPos + 1, 1) = Chr$(KeyCode)  
iPos = 1  
End If  
Case 1  
Select Case Left$(.Text, 1)  
Case "0"  
iL = Asc("1")  
iR = Asc("9")  
Case "1", "2"  
iL = Asc("0")  
iR = Asc("9")  
Case "3"  
iL = Asc("0")  
iR = Asc("1")  
End Select  
If KeyCode < iL Or KeyCode > iR Then  
GoTo NavigateKey  
Else  
Mid$(s, iPos + 1, 1) = Chr$(KeyCode)  
iPos = 3  
End If  
Case 3  
If KeyCode = Asc("0") Or KeyCode = Asc("1") Then  
Mid$(s, iPos + 1, 1) = Chr$(KeyCode)  
iPos = 4  
Else  
GoTo NavigateKey  
End If  
Case 4  
If Mid$(Me.TextBox1.Text, 4, 1) = "0" Then  
iL = Asc("1")  
iR = Asc("9")  
Else  
iL = Asc("0")  
iR = Asc("2")  
End If  
If KeyCode < iL Or KeyCode > iR Then  
GoTo NavigateKey  
Else  
Mid$(s, iPos + 1, 1) = Chr$(KeyCode)  
iPos = 6  
End If  
Case 6, 7  
If KeyCode < Asc("0") Or KeyCode > Asc("9") Then  
GoTo NavigateKey  
Else  
Mid$(s, iPos + 1, 1) = Chr$(KeyCode)  
iPos = IIf(iPos = 6, 7, 0)  
End If  
End Select  
GoTo Repaint  
NavigateKey:  
Select Case KeyCode  
Case 37 'Left  
Select Case iPos  
Case 1, 4, 7  
iPos = iPos - 1  
Case 3, 6  
iPos = iPos - 2  
End Select  
Case 39 'Right  
Select Case iPos  
Case 0, 3, 6  
iPos = iPos + 1  
Case 1, 4  
iPos = iPos + 2  
End Select  
Case 27 'Esc  
iPos = 0  
Case 9 'Tab  
Exit Sub  
End Select  
Repaint:  
KeyCode = 0  
.Text = s  
SetPos:  
.SelStart = iPos  
.SelLength = 1  
.Tag = Format$(iPos, "0")  
End With  
End Sub

Нашел код ,но его надо редактировать под себя

Спасибо, если ничего не найду лучше, то воспользуюсь этим кодом.  
Надо просто обезопасить ввод значений пользовалтеля по максиммуму.  
по этой Маске поcле полного ее заполнения перемещать курсор стрелками нельзя, а если удалить последний символ и добавить в первый значение уже изменяется  
т. е. будет ####-###-### # и если ошибся на одну циру и захочешь ее отредактировать с редактированием уже возникают пролемы.

Здравствуйте!!! Нужна помощь  
как можно обойтись без MaskEdBox, чтобы сделать маску ввода в TextBox  
___-___-___ __ (111-111-111 11)  
самому написать код нехватает пока еще заниний в VBA.