Страницы: 1
RSS
Как создать макрос для шифрования файлов различными паролями?
 
Помогите пожалуйста те кто соображает!!!    
 
У меня есть файл учета всех позиций, при этом файлик настроен таким образом, чтобы все необходимые формы заполнялись автоматически при простановке символа "х" на соответствущей необходимой строке. Из этого же основного файла формируется и заполняется данными уведомление для клиента. Так вот необходимо чтобы этот файл для клиента был зашифрован, причем для каждого клиента свой пароль.      
 
Так вот, у меня вопрос как это запихнуть в макрос, чтобы не делать руками. И очень хочется чтобы макрос сам находил нужный пароль по названию клиента.    
Спасибо большое!
 
Помочь вам смогут только в одном из двух случаев:  
1) если вы обратитесь за помощью на форум телепатов  
2) если вы прикрепите к сообщению свой файл с макросом, и разъясните, откуда макрос должен брать пароль для каждого клиента
 
Как я понял - нужно заполненную форму сохранить в файл с паролем на открытие.  
Это элементарно записывается рекордером.  
Ну а всё остальное - сама форма, пароли, сохранение я так понимаю где-то уже есть. :)
 
Еще очень важно, чтобы макрос на формирование отдельного файла из всего портфеля не поломался, так как нельзя клиенту посылать всю инфу, при этом нужно где то на отдельной  странице сохранить пароли, и чтобы макрос при шифрованиии сам нашел нужный пароль. Я файлик вечером прикреплю, так как с рабочего компа не получается(
 
А вот и сам файл  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>  
 
<EM>http://www.planetaexcel.ru/forum.php?thread_id=8735</EM>
 
Fintiflushka, почитайте правила форума,  
и прикрепите файл размером не более 100кБ  
 
PS: Ваш файл всё равно открыть не удаётся - он повреждён
 
Игорь, а у меня нормально файл открылся.  
Не совсем вникал в тему, но думаю можно сделать доступ к листам по UserName
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
А так подойдет? Помогите пожалуйста, оочень очень нужно
 
А может без шифрования?  
 
Sub qqq()  
   Application.DisplayAlerts = False  
   kln = Sheets("Учет").Columns(1).Find("x").Offset(, 1).Value  
   ActiveSheet.Copy  
   ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value  
   ActiveWorkbook.SaveAs Filename:="C:\" & ActiveSheet.Name & "_" & kln  
   ActiveWorkbook.Close False  
   Application.DisplayAlerts = True  
End Sub  
 
И ничего лишнего. Особенно если макрос с листа убрать.
 
Не, тут самое главное зашифровать, еще бы в том же макрос что их лист книги в отдельный файл формирует...
Страницы: 1
Читают тему
Наверх