Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Удаление макроса с помощью другово макроса по условию.
 
#1
06.08.2009 17:59:23
Удаление макроса с помощью другово макроса по условию.
 
 
 
#2
06.08.2009 18:01:48
{quote}{login=Nik_1}{date=06.08.2009 05:59}{thema=Удаление макроса с помощью другово макроса по условию.}{post}Удаление макроса с помощью другово макроса по условию.{/post}{/quote}  
 
Слетело сообщение пишу, заново.  
 
Есть файл с макросами, нужно написать макрос который бы при наступлении скажем определённой даты удалил бы 1 или всё макросы из файла.  
Как это можно реализовать?
 
 
 
#3
06.08.2009 18:08:19
http://www.cpearson.com/excel/VBE.aspx
KL
 
 
 
#4
06.08.2009 18:11:21
{quote}{login=The_Prist}{date=06.08.2009 06:03}{thema=}{post}Это констатация факта?  
Опишите подробней, чего хотите. Удаление по какому условию? Какого макроса? Одного?{/post}{/quote}  
 
Хочу, что бы при наступлении даты 01.10.2010г из книги был удалён макрос отправляющий данные на печать. Имя макроса "Печать".  
Sub Печать()  
'  
' Печать Макрос  
' Макрос записан 04.08.2009 (ekozlova)  
'  
   Sheets("Лист1").Select  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
   Sheets("Форма").Select  
End Sub
 
 
 
#5
06.08.2009 18:20:25
The_Prist, огромнейшее спасибо.  
Теперь нас так просто не возьмёшь.:)
 
 
 
#6
06.08.2009 18:21:30
{quote}{login=KL}{date=06.08.2009 06:08}{thema=}{post}http://www.cpearson.com/excel/VBE.aspx{/post}{/quote}  
 
KL, выражаю благодарность, очень занимательный сайт.
 
 
 
#7
06.08.2009 18:22:04
Первый вирус готов... :-)
 
 
 
#8
06.08.2009 18:28:52
Надо бы уточнить, что для того, чтобы макросы манипулирующие объектами VBEProject могли работать, необходимо поставить галку в опции "Доверять доступ к объектной модели VBAProject" или как там в русском варианте ;-)
KL
 
 
 
#9
06.08.2009 18:39:57
XL2003 Меню Сервис-Макрос-Безопасность..., закладка "Надежные издатели", опция "Доверять доступ к Visual Basic Project"  
 
XL2007 на русском у меня не установлен, а на английском:  
Круглая кнопка с логотипом Office слева в самом верху, Excel Options, слева закладка "Trust Center", кнопка "Trust Center Settings...", опция "Trust acces to the VBA project object model"
KL
 
 
 
#10
09.08.2010 17:10:15
Столкнулся с тем, что самому понадобилась такая 'фича'. B связи с этим и пара вопросов.  
 
The_Prist, пожалуйста, подскажите, как корректно прописать удаление только определённого макроса(ов), листа(ов)?  
 
If ThisWorkbook.VBProject.Protection = 1 Then '???'  
 
'???'  
 
И в случае защиты VBA Project, как поставить (известный) пароль и выполнить процедуру?  
 
Заранее благодарен.
[*]<a href="mailto:info@ledrex\";>
 
 
 
#11
09.08.2010 20:00:20
полюбому такая штука используеться например для предоставления демоверсии файла, а например через 5 дней макрос уничтожиться, и вуаля файл становиться бесполезен...
Оружие не убивает Человека! Человек убивает Человека!!!
 
 
 
#12
10.08.2010 13:06:39
Добрый день, спасибо за подсказку. Да, Вы правы The_Prist имел в виду процедуру(ы). У меня после генерации отчётов файлы разбухают до нескольких Mb, вот я подумал, что после определённого срока, когда макросы уже не нужны, а информация требуется, лишнее удалять. Mожно через ComboBox-ы на листе ставить дату когда срок будет уже не актуален. Удобно, и для менеджера и для  
агента (работника).  
P.S. снятие пароля дома посмотрю, здесь кроме как на "Планету", доступа нет.
[*]<a href="mailto:info@ledrex\";>
 
 
 
#13
23.03.2011 17:29:43
А можно ли еще удалить выпадающие списки в ячеках ?
 
 
 
#14
23.03.2011 17:35:43
А это какое отношение имеет к затронутой теме? :)  
 
Поиск "удалить выпадающий список", сразу первая тема - http://www.planetaexcel.ru/forum.php?thread_id=14230
<FONT COLOR="CadetBlue">
 
 
 
#15
24.03.2011 06:53:35
хотелось бы все сразу удалить и макросы и выпадающие списки по наступлению определенной даты :)
 
 
 
#16
31.03.2011 14:27:04
А если книга защищена и пароль известен ? можно ли вписать в работу макроса ?
 
 
 
#17
31.03.2011 14:32:51
т.е. не книга защищена, а VBA модуль. Пароль известен.
 
 
 
#18
31.03.2011 15:06:31
Sub Delete_All_Code_And_Macro_in_ActiveBook()    
Dim wb As Workbook    
   Dim vbp As VBProject    
 
   Set wb = ThisWorkbook    
   Set vbp = wb.VBProject    
 
   If vbp.Protection <> 1 Then Exit Sub    
   Set Application.VBE.ActiveVBProject = vbp    
 
   SendKeys "password" & "~~"    
       
   Application.VBE.CommandBars(1).FindControl(ID:=2578, _    
     recursive:=True).Execute  
End If  
Dim oVBComponent As Object  
For Each oVBComponent In ThisWorkbook.VBProject.VBComponents  
On Error Resume Next  
With oVBComponent  
Select Case .Type  
Case 1 'Модули  
.Collection.Remove oVBComponent  
Case 2 'Модули Класса  
.Collection.Remove oVBComponent  
Case 3 'Формы  
.Collection.Remove oVBComponent  
Case 100 'ЭтаКнига, Листы  
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines  
End Select  
End With  
Next  
End Sub
 
 
 
#19
31.03.2011 17:25:49
Не работает вот эта конструкция, подскажите пожалуста, что тут может быть не правильно.  
Public Sub UnprotectVBAProject()    
   Dim wb As Workbook    
   Dim vbp As VBProject    
 
   Set wb = ThisWorkbook    
   Set vbp = wb.VBProject    
 
   If vbp.Protection <> 1 Then Exit Sub    
   Set Application.VBE.ActiveVBProject = vbp    
 
   SendKeys "password" & "~~"    
       
   Application.VBE.CommandBars(1).FindControl(ID:=2578, _    
     recursive:=True).Execute    
   MsgBox ("Защита проекта отключена")  
End Sub
 
 
 
#20
04.04.2011 17:06:28
Огромное спасибо The_Prist. Если бы не Вы, я бы не сделал) Хоть у меня и ушло 3 дня на догадки, но все таки лучше самому делать медленно и учиться чем пользоваться готовым)  
 
Sub Auto_Open()  
If Date >= DateValue("10.08.2008") Then Call DeleteModulesAndCode  
End Sub  
 
 
Sub DeleteModulesAndCode()  
 
Dim wb As Workbook  
Dim vbp As Object  
 
Set wb = ThisWorkbook  
Set vbp = wb.VBProject  
 
If vbp.Protection <> 1 Then Exit Sub  
Set Application.VBE.ActiveVBProject = vbp  
 
SendKeys "aku333taf" & "~~"  
 
Application.VBE.CommandBars(1).FindControl(ID:=2578, _  
recursive:=True).Execute  
 
DoEvents  
Dim oVBComponent As Object  
For Each oVBComponent In ThisWorkbook.VBProject.VBComponents  
On Error Resume Next  
With oVBComponent  
Select Case .Type  
Case 1 'Модули  
.Collection.Remove oVBComponent  
Case 2 'Модули Класса  
.Collection.Remove oVBComponent  
Case 3 'Формы  
.Collection.Remove oVBComponent  
Case 100 'ЭтаКнига, Листы  
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines  
End Select  
End With  
Next  
ActiveWorkbook.Save  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх