Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » k7778
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Защита от взлома пароля на проект VBA, Есть ли какие-нибудь идеи или алгоритмы такой защиты.
 
#
29.05.2019 11:41:02
Выходит что все смирились ?
 
Перейти    
Чем защищена настройка от взлома?, Нужна такая же защита
 
#
07.09.2017 15:09:36
Всем привет.

Нужна защита разработок на подобии примененной для защиты этой настройки.
Видел VBAProtect, но  работает только с 2003 офисом.

А тут что то другое. Вопрос что это? Сколько стоит и где взять?

Я понимаю что все применяемые к VBA разработкам защиты, только от ленивых и честных людей. Но все же хотелось бы иметь эту мнимую защиту.
 
Перейти    
Выпадающий список с данными из другого файла
 
#
06.09.2017 17:32:39
ссылку сами найдёте
выглядит это примерно так:
- Записать в реестер
Код
SaveSetting 'Имя раздела (по суте это имя программы или любой текст).', 'Секция', 'Ключ', 'Значение ключа'

Прочитать данные
Код
Значение = GetSetting ('Имя раздела', 'Секция', 'Ключ', 'По умолчанию')
+ есть еще команды на удаление записей

дальше сами
дверку я приоткрыл )))

ЗЫ
Есть еще другой вариант работы с реестром. С любой веткой
 
Перейти    
Выпадающий список с данными из другого файла
 
#
06.09.2017 16:23:57
Вариант реестера не рассматривали?
Один раз происходит запись данных в реестер и далее идет обращение не к файлу который надо держать открытым а к реестру.
Ну и соответственно изменять "список" в одном месте.
 
Перейти    
Отсортировать таблицу и скопировать на новый лист VBA
 
#
06.09.2017 16:01:21
потому что строка условия должна быть такой
If LCase(Cells(i, 1).Value) Like "магазин*" Then
 
Перейти    
Как объединить несколько файлов в одну большую таблицу
 
#
06.09.2017 15:52:32
Цитата
Lisa1441 написал:
а как поработать с макросами?
Написал в личку
 
Перейти    
Как объединить несколько файлов в одну большую таблицу
 
#
06.09.2017 15:16:01
Цитата
raitnax написал:
я не вижу смысла в ваших сообщениях. вообще
Полностью с Вами согласен.
Вместо того чтобы давать дельные советы Вы предлагаете пустые решения.
Которые работать не будут.
Разве это не флуд.
 
Перейти    
Как объединить несколько файлов в одну большую таблицу
 
#
06.09.2017 15:07:09
Цитата
raitnax написал:
сначала надстройкой, потом запись макроса
)))
Это как в анеке:
- Как пройти туда-то?
- А ну это просто. Идете прямо, потом на лево. Далее до перекрестка, потом на право и через квартал опять на лево. Ну и там еще у кого нибудь спросите.

Использование настроек это значит часть сделать вручную.
Тогда макросы и не нужны, можно все сделать руками.

Если это на постоянной основе проще всего сделать макросом за один раз.
 
Перейти    
Как объединить несколько файлов в одну большую таблицу
 
#
06.09.2017 14:54:29
Цитата
raitnax написал:
Мне кажется это оно.
Пожалуй нет
Судя по описанию этой платной надстройки она тупо скопирует все листы в одну книгу.
А тут речь шла об объединение в одну таблицу однотипных данных
 
Перейти    
Как объединить несколько файлов в одну большую таблицу
 
#
06.09.2017 14:41:20
Другие способы если позволяют работать с файлами скорее всего тоже подойдут.
Макросом это делается без особых проблем.
Не за что.
 
Перейти    
Как вернуться на лист excel после ухода с него в другое приложение
 
#
06.09.2017 14:08:55
Цитата
ZVI написал: Application.Visible = True
Этот вариант "не работает". Excel как был на заднем плане так и остался.
Обратная операция (.Visible = False) отрабатывает, книга прячется, но сам Excel так же на заднем плане.

Возврат осуществляется только вручную по клику мышки или alt+tab.
 
Перейти    
Макросы не сохраняются
 
#
04.09.2017 21:11:27
такое сообщение появляется при закрытии Excel после добавление макроса в личные
соответственно если нажать нет то будет ваш описанный ранее вариант
 
Перейти    
Как вернуться на лист excel после ухода с него в другое приложение
 
#
04.09.2017 17:29:44
пробовал и .Activate
вот кусок кода.
удалось только фокус перекинуть
Код
Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set MailItem = objNamespace.Application.ActiveExplorer.Selection.Item(1)    ThisWorkbook.ActiveSheet.Activate
    
    ActiveCell.Value = MailItem.entryID
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Value = MailItem.Parent.FolderPath
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Value = MailItem.Subject
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Value = MailItem.SentOn
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Value = MailItem.SenderName
    ActiveCell.Offset(0, -4).Activate    
    
    Set MailItem = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing       
    AppActivate ("myExcel.xlsm")
Изменено: k7778 - 04.09.2017 20:07:12
 
Перейти    
Как вернуться на лист excel после ухода с него в другое приложение
 
#
04.09.2017 16:27:30
Всем привет.

Алгоритм возникновения проблемы (все делается на VBA)
Из Excel осуществляется обращение OutLook
получаю значение письма при этом "актируется" OutLook задает вопрос разрешать доступ к почте или нет.
На этом все. В лист Excel возврат не происходит. Только вручную.

Как вернуться на лист ? Вот такая задачка.

Что пробовал
- выбор листа (.select)
- активация книги (.active)
- AppActivate("имя файла")
 
Перейти    
Страницы: 1
Наверх