הקפאת חלונית

[אלוורדו]

איך ניתן להקפיא חלונית למס' רב של גיליונות בבת אחת ?
המטרה להקפיא כותרת. בכל הגיליונות היא באותה השורה.
(7,2010)

 

[מיכאל אבידן]

איך ניתן להקפיא חלונית למס' רב של גיליונות בבת אחת ?
המטרה להקפיא כותרת. בכל הגיליונות היא באותה השורה.
(7,2010)

Sub FreezeAll()
    On Error Resume Next
    For Each SH In ActiveWorkbook.Sheets
       Application.GoTo SH.[K2]
       ActiveWindow.FreezePanes = 1
    Next
End Sub

 

[אלוורדו]

אפשר לבצע את הלולאה על גיליונות מסוימים שנבחרים ?
כלומר לבחור מספר גיליונות (אבל לא את כל הגיליונות) ולהפעיל עליהם את הקוד...
לפי השמות של הגיליונות - הסתדרתי, רק שאני צריך להגדיר בתוך הקוד, רשימה של שמות ו- select ... וזה לא ממש נוח.

 

[ziv98]

For Each SH In ActiveWindow.SelectedSheets

 

[אלוורדו]

תודה רבה