Прошу прощения за назойливость, но по прежнему вижу 502 Bad Gateway в темах где более 3-х сообщений. Куки удалил эффект тот же самый.    
ПОМОГИТЕ!!!!!!!!!!!!!!!!!

Спасибо ikki за быстрый ответ, а те темы для меня не открываются, 502 Bad Gateway  
 
Не является ли это способом защиты макроса от просмотра?

Здраствуйте!  
Поиск исследовал а ответа не нашел.  
 
Проблем такая. Написал программку. Прошел по меню Сервис-Защита-Защитить общую книгу  
Сделал общий доступ с исправлениями. Сохранилось. После этого программа работает а к коду доступа нет. Можно это каким то образом исправить?

Спасибо! Пошел пробовать...

У меня имена создаются из текущей даты и номера, пробовал их отформатировать в текст, результат тот же

Здравствуйте Уважаемые Мастера!  
 
Есть достаточно большой список файлов. Они имеют названия от 1 до фига.  
При выводе этого списка в ListBox получаю  такую картину в смысле список    
1  
10  
11  
12  
13  
14  
....  
2  
20  
21  
22  
23  
...  
3  
30  
31  
 
и т.д.  
 
Вопрос, можно ли этот список заставить выглядеть просто от 1 до 1000  
С Уважением!

Das ist fatastisch!!!!  
 
Спасибо!!!!!!!!!!!!!

Кавычки не подпапка, а название записываемого файла.  
Если Вы создадите у себя на диске С папку 88888, нажмете поочереди кнопки то все и увидите....

прилагаю пример

Уважаемый KukLP!!!!    
Прочитал Ваше второе сообщение, к сожалению в моей задаче его применить трудно.  
Такая переменная это единичный случай. Есть столбец в Экселе состоящий из этих названий (около500), а там эти кавычки стоят как попало а могут вовсе не стоять...

Здравствуйте! Помогите пожалуйста.  
 
Есть текстовая переменная, например ООО"Фирма "Рога и Копыта".  
Я сохраняю ее файле последовательного доступа.  
Она сохраняется в таком вот виде "ООО""Фирма ""Рога и Копыта""  
А извлекается из файла не одна а три переменных "ООО"  "Фирма "  "Рога и Копыта""  
Убирать кавычки не хочет заказчик.  
Можно ли как нибудь избавиться от этой проблемы???  
Заранее благодарен

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

Ну а если без шуток?

Здравствуйте!  
Помогите пожалуйста разобраться...  
Лист, на листе легкая графика, табличка и 6 ТекстБоксов  
 
Программка написана давно, но вот только сегодня заметил как ТекстБоксы, после введения в них информации начинают потихоньку расти, увеличиваясь при каждом клике. При этом увеличивается и символ который в него введен.  
А если уменьшить ТекстБокс, значение начинает уменьшаться  
Уж очень не хотелось бы уходить от ТекстБоксов, на них много завязано  
 
ПОМОГИТЕ!!!!!!!

Значит проблема не разрешима?

Здравствуйте! Помогите пожалуйста в решении проблемы.  
Есть ЛистБокс. 8 столбцов. В него закачивается из массива много информации. ЛистБокс растянут практически на весь экран. Текст в самой длинной ячейке иногда не помещается. Сокращать не хочется.  
 
Возможна ли запись текста в определенную ячейку ЛистБокса с разбивкой в 2 строки?

Слэн, спасибо большое, это я идиот. Массивы дважды объявил в модуле и на странице  
 
Пользуясь случаем хочу поблагодарить всех модераторов за ваши КОНСУЛЬТАЦИИ !!!  
 
Спасибо!

Здравствуйте! Помогите пожалуйста  
Что происходит?  
 
Массивы объявлены ...  
 
Public S01(1000), S03(1000), S04(1000), S05(1000), S06(1000) As Variant  
Public S1(1000), S3(1000), S4(1000), S5(1000), S6(1000) As Variant  
 
И заполняются со страницы  
============================================  
i = 0  
'Do Until Sheets("АРХИВ").Cells(4 + i, 1) = ""  
For ii = s To ss - 1  
 
S1(i) = Val(Sheets("АРХИВ").Cells(ii, 5)) 'код  
S3(i) = Sheets("АРХИВ").Cells(ii, 6) 'наименование  
S4(i) = Sheets("АРХИВ").Cells(ii, 7) 'кол  
S5(i) = Sheets("АРХИВ").Cells(ii, 10) 'цена  
S6(i) = Sheets("АРХИВ").Cells(ii, 8) 'ball  
 
i = i + 1  
 
'Loop  
Next ii  
 
V  
============================================  
Несколько раз проверил, массивы заполнены.  
 
И отправляются на сортировочный модуль…….  
===============================================  
Sub V( )  
S01(0) = S1(0): S03(0) = S3(0): S04(0) = S4(0): S05(0) = S5(0): S06(0) = S6(0)    
 
i = 1: d = 0: q = 0  
Do Until S1(i) = 0  
 
d1 = 0  
d2 = 0  
…………………………….  
End Sub  
 
При попадании в  Sub V( ) (сортировочный модуль) они вдруг сразу обнуляются  
Что могло произойти?????  
В этой программе я применяю это 4 раза, но заполняется во время работы с Формами.  
А в этом случае заполнение идет с Листа.  
В чем глюк ???????????

Здравствуйте уважаемые БРАТЬЯ по РАЗУМУ!  
Случилась проблема...  
У меня в программе данные, предварительно сохраненные в файле в виде массива (9х1000) переменных Variant, закачиваются в ЛистБокс1. Закачиваются маленькими порциями, по необходимости. В ЛистБос1 они распределяются как целые числа, текст и десятичные числа.  
 
Я выбираю необходимые мне из ЛистБокс1, умножаю на какое нибудь целое число и размещаю в ЛистБокс2 (Естественно речь идет о числах).  
А сегодня заметил вот такую бодягу. В ЛистБокс1 десятичные числа пишутся с запятой, а в Листбокс2 с точкой. На первый взгляд вроде ничего - запятая или точка, числа то получились правильные, но при дальнейших расчетах, на других Формах стала набегать погрешность в расчетах.  
 
Снизойдите с Высоты Вашей МУДРОСТИ и подскажите пожалуйста что делать?