Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос: снять защиту листов
 
#1
25.03.2010 15:22:54
подсакжите пожалуйста    
 
есть много книг и тонна листов  
книги запаролены+ все листы запаролены  
пароли есть    
я снял пароли с книг - вручную    
чтобы внести корректировки (замена текса) в листы мне приходится снимаать с каждого защиту  
 
подскажие  
макрос который снимет защиту листов -  во всех файлах пароль на листы одинаковый
 
 
 
#2
25.03.2010 15:26:36
See here:  
http://www.planetaexcel.ru/forum.php?thread_id=10559
MyExcelWorld One World One Dream!
Microsoft MVP Excel from 2012
Aydin Aliyev
 
 
 
#3
25.03.2010 15:26:56
Ну, если знаете пароль на листы и он для всех листов одинаковый, то попробуйте так  
 
Sub UnProtectSheets()  
Dim iSht As Worksheet  
 
   For Each iSht In Worksheets  
       iSht.Unprotect "1" '1 - это пароль  
   Next iSht  
End Sub
 
 
 
#4
25.03.2010 15:44:28
как запустить макрос?
 
 
 
#5
25.03.2010 15:50:53
The_Prist как применить сразу ко всем книгам
 
 
 
#6
25.03.2010 16:03:47
The_Prist  
файлы находяться в папке C:\книги  
во всех файлах надо проиграть данный макрос
 
 
 
#7
25.03.2010 16:14:22
The_Prist - Вы волшебник!!!!  
 
макрос остановился на 32 файле: посмотрел оказалось что есть лист с другим паролем - это можно как то обойти?
 
 
 
#8
26.03.2010 10:22:14
Useful - спасибо  
Somebody - спасибо  
The_Prist - спасибо!!!  
 
а можно аналогичный макрос который ставит защиту на все листы  
 
The_Prist   - .InitialFileName = "*.xls*" - видимо это должно быть в типах файла или это в качестве подсказки
 
 
 
#9
26.03.2010 11:00:53
спасибо
 
 
 
#10
30.03.2010 15:43:32
The_Prist помогите пожалуйста  
 
правильно ли я написал Ваш код?  
 
макрос - снять защиту с книг:  
Sub Update_Links1111()  
   Dim oFile, wsSh As Worksheet  
   With Application.FileDialog(msoFileDialogFilePicker)  
       .AllowMultiSelect = True  
       .InitialFileName = "*.xls"  
       .Title = "Выбрать файлы"  
       If .Show = False Then Exit Sub  
       For Each oFile In .SelectedItems  
       Workbooks.Open oFile, , , , "250"  
 
       Next oFile  
   End With  
End Sub
 
 
 
#11
30.03.2010 15:57:12
{quote}{login=The_Prist}{date=30.03.2010 03:46}{thema=}{post}Визуально - нормально. А что проверить не можете на своих файлах?{/post}{/quote}  
 
если ручками то все ок    
макросом - не хочет ..понять не могу  
 
может есть другой вариант? как у листов - Unprotect ...
 
 
 
#12
30.03.2010 17:16:38
спасибо  The_Prist
 
 
 
Страницы: 1
Читают тему
Наверх