Ekranı dondurma

[qbilay06]

Merhaba ,
Açılan sayfadaki köprülerin kullanılmasını fakat sayfa görüntüsünün herhangi bir yöne hareket ettirilememesini istiyorum.
Diğer konulardan okuduğum, satır - sütun dondurma ya da sayfa koruma işlemleri isteğimi karşılayamadı.
Konu hakkında bilgi paylaşacak arkadaşlara şimdiden teşekkür ederim.
Saygılar...

 

[muygun]

Merhaba;
1-sayfada iken sayfa ismine sağ tıkla;
2-kod görünlüle sekmesine bas;
3-açılan vb sayfasında sol tarafta categorized sekmesini tuşla
4-açılan seçeneklerden scrollArea kısmına $A$1:$I$13 yaz.
vb sayfasından çık.
Tamam.
İyi çalışmalar.
Not: denemelerimde dosya açık iken sorun yoktu. Ama oluşturduğum dosyayı yeniden açınca çözüm bozuldu. (benim excel ayarlarımda yada kullandığım kodlardan kaynaklanmış olabilir. Tam olarak çözemedim)

 

[otufan]

Sayın muygun Autpen makrosu içine ActiveSheet.ScrollArea = "$A$1:$I$13"
Şeklinde yazıldığında çalışır.

 

[qbilay06]

merhaba;
1-sayfada iken sayfa ismine sağ tıkla;
2-kod görünlüle sekmesine bas;
3-açılan vb sayfasında sol tarafta categorized sekmesini tuşla
4-açılan seçeneklerden scrollarea kısmına $a$1:$ı$13 yaz.
Vb sayfasından çık.
Tamam.
Iyi çalışmalar.
Not: Denemelerimde dosya açık iken sorun yoktu. Ama oluşturduğum dosyayı yeniden açınca çözüm bozuldu. (benim excel ayarlarımda yada kullandığım kodlardan kaynaklanmış olabilir. Tam olarak çözemedim)

günaydın ,
öncelikle sayın muygun ve otufan'a ilgileri için teşekkür ediyorum.
Fakat işlemi yaptıktan sonra sayfa görünümünde sıkıntı olmasa da ana sayfasındaki köprüler çalışmıyor.köprülerinde aktif olması için ne yapılabilir?
Saygılar...

 

[qbilay06]

Sayın muygun Autpen makrosu içine ActiveSheet.ScrollArea = "$A$1:$I$13"
Şeklinde yazıldığında çalışır.

Yeni bir dosyada denedim ve muygun 'un yönlendirmesi çözüm sağladı.Fakat ben de dosyayı kapatıp açtıktan sonra yine eski haline döndü.
Autpen() makrosunu, kod bölümü açıldıktan sonra Sayfa1 kısmında mı , yoksa thisworkbook kısmında mı yazmalıyım ?
Option Explicit
Sub Autpen()
ActiveSheet.ScrollArea = "$A$1:$O$25"
End Sub

Saygılar...

 

[muygun]

Merhaba;
Ekteki yöntem açıklama ve kod chip dergisi ağustos 2001 sayısından alıntıdır.
Eki inceleyin.
sayfa koruma şifresi (hiçbirşey yazmadan enter tuşuna basın)

İyi çalışmalar.

 

[otufan]

Ben denedim, Açılışta aktif edilen sayfada çalışıyor. Aynı kodun ilk satırına
Sheets("Sayfa adı").Select şeklinde yazarsanız söz konusu sayfada çalışıyor.

 

[muygun]

Ben denedim, Açılışta aktif edilen sayfada çalışıyor. Aynı kodun ilk satırına
Sheets("Sayfa adı").Select şeklinde yazarsanız söz konusu sayfada çalışıyor.

Syn otufan'ın çözümü doğru ve oldukça sade. Ayrıca;
Thisworbook kısmına;

Private Sub Workbook_Open()
Sheets("Sayfa2").Select
ActiveSheet.ScrollArea = "$A$1:$Z$10"
Sheets("Sayfa1").Select
ActiveSheet.ScrollArea = "$A$1:$I$10"
End Sub
şeklinde düzenleyerek diğer sayfalarınızada kısıtlama koyabilirsiniz.

 

[qbilay06]

Ben denedim, Açılışta aktif edilen sayfada çalışıyor. Aynı kodun ilk satırına
Sheets("Sayfa adı").Select şeklinde yazarsanız söz konusu sayfada çalışıyor.

En son belirtilen şekilde dosyayı düzenledim fakat kapatıp yeniden açınca bozuluyor.Benim güvenlik ayarlarım ya da farklı bir noktada farklılığım olabilir mi ?

muygun'un ilk mesajında categorized kısmındaki ScroolArea kısmına yazılmasını belirttiği $a$1:$O$25 ifadesi , dosya kapatılıp açıldıktan sonra silinmiş olarak geliyor ????
Saygılar...

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.
Not: Bu tablo istediğiniz sonucu vermiyorsa Eklentilerde farklı bir uygulama vardır. Yada 2007 ile ilgilidir. (ben 2003 kullandığım için 2007 de deneme şansım yok)

 

[qbilay06]

Merhaba;
Eki inceleyin.
İyi çalışmalar.
Not: Bu tablo istediğiniz sonucu vermiyorsa Eklentilerde farklı bir uygulama vardır. Yada 2007 ile ilgilidir. (ben 2003 kullandığım için 2007 de deneme şansım yok)

ilginize tekrar teşekkür ediyorum. Sizin 8 nolu mesajdaki çözümünüzü sonradan görüp denedim ve dediğiniz gibi 2003 sürümünde sorunsuz çalıştı. Fakat 2007 nin makro içerebilen formatında hata veriyor. Güvenlik ayarlarıyle ilgili olabilir.
2007 kullanıp da yardım edebilecek kişiler için 2007 makrolu versiyonunu yüküyorum. Tekrar teşekkür ederim MUYGUN.
Saygılar...