Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как снять закрепление областей во всей книге?
 
#1
26.01.2012 18:31:46
Выделение всех листов и снятие закрепления через меню не помогает. В plex кажется такой функции нет.. Листов сотня. Руками - убиться.. :(    
Спасибо заранее!
 
 
 
#2
26.01.2012 18:42:20
может так:  
Sub Test()  
   Dim w As Window, sh As Worksheet  
   Application.ScreenUpdating = False  
   Set w = ActiveWindow  
   For Each sh In ThisWorkbook.Worksheets  
       sh.Activate  
       ActiveWindow.FreezePanes = False  
   Next sh  
   w.Activate  
   Application.ScreenUpdating = True  
End Sub
Редко но метко ...
 
 
 
#3
26.01.2012 18:46:02
Намудрил с Window  
Вот так лучше:  
Sub Test()  
   Dim actsh As Worksheet, sh As Worksheet  
   Application.ScreenUpdating = False  
   Set actsh = ActiveSheet  
   For Each sh In ThisWorkbook.Worksheets  
       sh.Activate  
       ActiveWindow.FreezePanes = False  
   Next sh  
   actsh.Activate  
   Application.ScreenUpdating = True  
End Sub
Редко но метко ...
 
 
 
#4
26.01.2012 18:46:21
не успел(((  
Sub iFreezePanes()  
Dim sh As Worksheet  
Application.ScreenUpdating = False  
For Each sh In Worksheets  
sh.Activate: ActiveWindow.FreezePanes = False  
Next  
Application.ScreenUpdating = True  
End Sub
 
 
 
#5
26.01.2012 18:52:29
спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх