Necati bey;
İlginiz için teşekkür ederim,
ScrollArea satırı temiz durumda, olmadı maalesef,
Not: Mause tekerleği arızalı değil bu dosyayı kullanan bir çok kişide bu var, sayfaya özel bazı ayarların değişmiş olmasından şüpheleniyorum. Ctrl+Tekerlek çevrildiğinde yakınlaşıp uzaklaştırma yapıyor.
Merhaba,
* Alt+F11
* İlgili sayfa ismi üzerinde iken F4 yapın, o sayfanın özellikler penceresi açılır.
* Açılan pencerede ScrollArea satırında bir hücre aralığı yazıyor olmalı.
Sadece yazılı olan bu aralıkta hareket edebilirsiniz. Buradaki değeri değiştirebilir veya tamamen silebilirsiniz.
...Kullandığınız ofis versiyonu 16384 sütuna kadar izin verir.
Bu durumda 256. sütunu ekleyemiyorsanız
1-Sayfa/Çalışma kitabı korumalı olabilir. (Gözden Geçir/Sayfa Korumasını Kaldır)
2-Sayfa özellikleri/ScrollArea ile sınırlandırılmış olabilir
3- Yukarıdaki işlemler kod ile oluşturulmuş olabilir.
...Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("J7:K7, H8:K9"), Target) Is Nothing Then
Sheets("Sayilar").ScrollArea = "Sayilar!H7:K10"
Application.EnableEvents = False
If [H7] = "" Or [I7] = "" Then GoTo 99
If [C1] = "" Or [C1] = 0 Then...
.
Sub AUTO_OPEN()
ActiveSheet.ScrollArea = "$A$1:$B$20"
End Sub
Sub KOD()
sifre = "123"
sor = InputBox("Şifre girin metin", "şifre girin başlık")
If sor <> sifre Then Exit Sub
ActiveSheet.ScrollArea = ""
End Sub
.
Merhaba Arkadaşlar,
İmleç, sadece D9:J9 arasında dolaşabiliyor.
Sheets("Sayfa1").ScrollArea = "sayfa1!D9:J9"Her hücredeki girişten sonra enter 'e basılıyor. Hangi hücreye geldiği nasıl anlaşılır?
Saygılarımla
Dosyadaki kodlar açık, güvenlik ile ilgili bir durum yok.
Scrollarea özelliği kullanılarak B ve H kolonları dışına çıkılması engellendi.
İçerik silindiğinde renk ve çerçeve ayarı yapıldı.
Renk kodunu sayfa kod içinde boya bölümünde tanımlayabilirsiniz.
Kullanıcının tüm alanları doldurması...
autoopen makrosuna aşağıdaki kodu girerseniz yalnızca sayfa1 de B:Z aralığına veri girebilirsiniz.
Autoclose olayınada aralığı "" yaparsanız tekrar eski durumuna döner.:cool:
Dim sh As Worksheet
Set sh = Sheets("Sayfa1")
sh.ScrollArea = "sayfa1!B:Z"
...B5:H20 aralığı na ilaveten k5:n10 ve p5:t10 aralıklarınıda makroya eklemem gerekiyor.Ayrıca şifre ekleyebilirmiyiz makroyu çalıştırmak için.Yardımlarınızı rica ederim. selamlar
Sub LimiteDefilement()
Sayfa1.ScrollArea = ("B5:H20")
End Sub
Sub RetablitDefilement()
Sayfa1.ScrollArea = ""
End Sub
Ekteki dosyada A1 ile S8 arasında çalışma alanı belirledim ve sarıya boyadım.
Makroda ScrollArea = "A1:S34" dedim. Sadece bu sarı alanın görünmesini istiyorum, sayfanın sağa ve aşağı kaymasını istemiyorum.
Bu sarı alanda herhangi bir hücreye tıklanmazsa veya ok tuşları veya TAB tuşu ile hücre...
...Area kodunun yekpare (bütünsel) alan için kullanabiliyorum. Ancak parçalı alan için nasıl kullanılacağını bilmiyorum.
BÜTÜNSEL ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1:A10"
End Sub
PARÇALI ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1, A3, A8"
End Sub
olmasını nasıl sağlayabilirim ?
Merhaba,
Scrollarea değeri ile kısıtlanan bir sayfada zoom azaltarak seçilemeyen alanlar da görüntülenebiliyor. Bunu engelleyebilir miyiz acaba?
Yakınlaştırma kaydırıcısını kaldırsam bile farenin topuyla ya da ctlr tuşuyla yine küçültülebiliyor. örnek dosya ektedir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.