Хочу поделиться с Вами приладой для учета флешек.
Постановка задачи была следующая: существует утвержденный список сертифицированных флешек, которыми можно пользоваться и есть специалист по безопасности, который за это отвечает. С помощью этой прилады можно: спалить кого угодно на предмет втыкания в комп левых флешек, настроить все компы на использование флешек необходимым образом, удалить всю информацию из реестра об установленных флешках (тем самым прикрыв свою задницу в случае грядущей проверки из вышестоящей инстанции) и еще кое-что.

автор: dab00

Скачать VBA и HTA версии можно здесь: http://da440dil.narod.ru

VBA версию попробую вложить.
Код, конечно, некрасивый – не оптимизированный – тем не менее работает.

тема на форуме

Здравствуйте, уважаемые форумчане!
Представляю вашему вниманию скрипт для удаления комментариев – апострофа (символа » ‘ «), пробелов, табуляций из файлов исходного кода на VB – в вашем случае модулей .bas – нет на форуме темы VB – Excel (VBA) самая подходящая.
Скрипт создает новый файл с префиксом «New-». Работает в графическом и консольном режиме. Использует регулярные выражения, поэтому довольно шустрый. (читать всё…)

В этой статье я расскажу, как написать простенький локер, что называется, на коленке. (читать всё…)

Однажды, в студеную зимнюю… заинтересовал меня вопрос мониторинга ресурсов Windows, а конкретно (хочется добавить «чисто» конкретно) мониторинга объема свободной памяти (физической и виртуальной), процента использования файла подкачки и загрузки процессоров. (читать всё…)

Наверное каждый разработчик, написав несколько тысяч строчек некомпилируемого кода рано или поздно начинает задумываться о том, как защитить свои «уникальные» творения .
В один прекрасный день пришел и мой черед. (читать всё…)

(читать всё…)

(читать всё…)

(читать всё…)

(читать всё…)

у меня есть текст, который вставляется в TextBox ,а затем в поле Variables, а это поле содержит пробелы и вот я хотел убрать пробелы из этого поля и присвоить этот текст в другое, вот что получилось, что не так? (читать всё…)

(читать всё…)

есть такая кнопочка которая вызывает стандартное диалоговое окно «сохранить как» и подставляет туда текущую дату+имя открытой книги

Private Sub CommandButton5_Click()
iFileName$ = ActiveWorkbook.Name
iSaveTime$ = Format(Now, «dd/mm/yy»"г. «)
SaveName = iSaveTime & iFileName$
Application.Dialogs(xlDialogSaveWor kbook).Show Arg1:=SaveName, Arg2:=»1″
End Sub

имя открытого файла всегда примерно такого вида «16.10.11г. отчёт.xls»
вопрос как в коде прописать чтобы старая дата стиралась (заменялась) текущей? только дата! что бы текст оставался не тронутым но при этом в окне была возможность его изменить вручную (читать всё…)

а если там шаблон будет не найден, то открывать его в одной папке где сам файл excel? (читать всё…)

Люди, знает ли кто как вернуть из функции 2 и более аргумента, не используя глобальные переменные (читать всё…)

Две Книги «imena_f» «imena_m», когда я кликаю по кнопке с нижепреведенным кодом, находясь в книге «imena_m» и при этом ячейки G3:G все пустые, то выводит ошибку, т.е. строка. Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые. (читать всё…)

Подскажите, как в Экселе сделать так, чтобы элемент управления (кнопка или картинка) при скроллинге оставалась зафиксированной на экране (то есть была привязана к экрану, а не к ячейке)? (читать всё…)

Формат ячеек ТЕКСТОВЫЙ (читать всё…)

(читать всё…)

Задача такая. Есть одна книга которая содержит лист, который нужно скопировать во все книги в определенной папке (сохраняя формулы). (читать всё…)

Подскажите плз, как в таблице вставить 5 (не факт может и 50 и 400) строк после каждой заполненной уже строки. Т.е. существует таблица (очень большая), но допустим, что она состоит из 10 строк. Мне нужно простым действием вставить после каждой строки 5 (50-400) пустых строк. Как это сделать быстро? (читать всё…)

У меня на открытие книги стоит макрос – закрытие книги, если что-то не так (зачем, спрашивается, я это наворотила?).
Не могу войти в книгу – сразу же закрывается! Останов выполнения макроса не помогает – книга почему-то пустая? (читать всё…)

Вопрос следующего характера. Можно ли как то поработать с внешним видом параметра .body в макросе, то бишь, вывод в несколько строк, шрифт, цвет и прочие красивости. (читать всё…)

подскажите, как найти символ » в текстовом файле с помощью vba? (читать всё…)

Столкнулась с такой проблемой. Для расчета различных цен и скидок необходимо было прописать зависимости значений одних ячеек от других, например, если заполнена такая и такая колонка, то такую-то цену считаем так-то, а если такая-то колонка не заполнена – цену пересчитываем по другому. Код реализовала на событие листа Change (читать всё…)

Помогите пожалуйста.
Необходимо сделать программу с авторским дизайном
Имеется обычная пользовательская форма. Она будет замощена специальным рисунком с дизайном.
Смысл в том что вид ужасно портит само окно Windows. То есть строка заголовка (где кнопки свернуть,развернуть окно и закрыть). И обводка вокруг формы. Если видели интерфейс OS X то знаете, что там вокруг окна нет обводки.
Существует ли возможность избавиться от этого. (читать всё…)

Подскажите пример кода VBA который бы сворачивал или разворачивал группу столбцов, если такое возможно. (читать всё…)

A1: помидор
A2: помидор
A3: огурец
A4: фасоль
A5: огурец
A6: банан
A7: банан

требуется получить строку, содержащую, к примеру «огурец». (читать всё…)

Как сделать, чтобы можно было добавлять новые элементы в ячейках с D1 по D10? (читать всё…)

вопрос состоит в следующем, есть несколько слов, которые встречаются в строках таблицы, нужно удалить все строки, в которых есть эти слова. (Вся сложность в том, что там 12 слов и больше 220 000 строк). (читать всё…)

Уважаемые профессионалы, хочу написать макрос (Excel 2003), который бы по клику по ячейке скрывал столбец. Но не знаю как описать в макросе сам клик по ячейке. Не могли бы Вы, пожалуйста, подсказать? (читать всё…)