Снятие защиты на макросах

[sasha_prof]

Подскажите пожалуйста.
Как снять защиту с макросов, макросом?

[Aent]

http://www.mrexcel.com/forum/showpos...12&postcount=7
http://www.ozgrid.com/forum/showpost...7&postcount=20
http://www.pcreview.co.uk/forums/thread-989191.php
http://www.standards.com/Office/SetV...tPassword.html

И если у вас Windows 7, обратите внимание на то куда попадает фокус после Alt-F11...

Ещё рекомендую почитать http://www.cpearson.com/excel/vbe.aspx

[sasha_prof]

Сообщение от Aent

http://www.mrexcel.com/forum/showpos...12&postcount=7
http://www.ozgrid.com/forum/showpost...7&postcount=20
http://www.pcreview.co.uk/forums/thread-989191.php
http://www.standards.com/Office/SetV...tPassword.html

И если у вас Windows 7, обратите внимание на то куда попадает фокус после Alt-F11...

Ещё рекомендую почитать http://www.cpearson.com/excel/vbe.aspx

Извини, я просто в макросах не силен и в англ тоже(((

Можеш сбросить код для снятия и блокировки макросов???

[sasha_prof]

Кто-нибудь помогите плиз. А то не могу обновить макрос без разблокировки(((

[sasha_prof]

не знаю что но вот этим макросом чтото не получается разблокировать VBA(((

Sub TestUnprotectProject()
Workbooks.Open "C:\Your\File\Path\YourFileName.xls"
With Application
'Go to the VBE
.SendKeys "%{F11}", True
'Activate Project Explorer window
.SendKeys "^r", True
'Tab your way to the workbook project
'Note - - when I tested this, it was in a separate workbook,
'following 6 add-in projects.
'"YourFileName" was the 8th project in my PE window,
'so 9 tab hits were required.
'You could also down-arrow using .SendKeys "{DOWN}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
'Simulate the Enter key
.SendKeys "~", True
'Enter your password - - this example is "Password"
.SendKeys "Password"
'Enter again
.SendKeys "~", True
End With
End Sub

Помогите плиз.

[kluger]

Sub TestUnprotectProject()
Application.ScreenUpdating = False
With Application
'Go to the VBE
.SendKeys "%{F11}", True
'Activate Project Explorer window
.SendKeys "^r", True
'Tab your way to the workbook project
'Note - - when I tested this, it was in a separate workbook,
'following 1 add-in projects.
'"YourFileName" was the 1th project in my PE window,
'so 1 tab hits were required.
'You could also down-arrow using .SendKeys "{DOWN}", True
.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'.SendKeys "{TAB}", True
'Simulate the Enter key
.SendKeys "~", True
'Enter your password - - this example is "Password"
.SendKeys "123"
'Enter again
.SendKeys "~", True
'return to excel
.SendKeys "%{q}", True

End With
Application.ScreenUpdating = True
End Sub
работает