Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Kaydırma Çubuğunu Kilitlemek

m_demir
m_demir
Excel Cevaplanmış Soruları
9
318

Kaydırma Çubuğunu Kilitlemek

Çözüldü #1
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 62
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 03/02/2021,17:42
Yorumları: 583
Konuları: 116
Kayıt Tarihi: 03/06/2016
Rep Puanı: 0
Mesleğiniz: Grafiker
Merhaba Arkadaşlar
Excel kitabında kaydırma çubuğunu kod ile kilitlemek istiyorum.
Aktif sayfada butona tıkladığımda InputBox açılsın parolayı girip ok dedikten sonra kaydırma çubuğu çalışsın.
Bunu için nasıl bir kod eklemem gerekiyor.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
Visual Basic Code 
Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A1:M100"
End Sub
ile kilitleyebilirsiniz, alanı daha küçük yada büyük olarak da ayarlayabilirsiniz
Tekrar serbest bırakmak icin
Visual Basic Code 
Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = ""
End Sub
Bu kodlar sadece belli bir sayfa içi  isterseniz döngüye alıp tüm sayfaları kilitleyip acabilirsiniz
Yada aktif sayfanın açılma kodu olarak
Visual Basic Code 
ActiveWindow.DisplayHorizontalScrollBar = False
kodu da kullanılabilir, kodlari deneyemedim teorik
Son Düzenleme: 30/05/2020, 18:25, Düzenleyen: berduş.
Cevapla
#3
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 62
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 03/02/2021,17:42
Yorumları: 583
Konuları: 116
Kayıt Tarihi: 03/06/2016
Rep Puanı: 0
Mesleğiniz: Grafiker
Hocam Çalışma sayfalarının adlarını kapatan yatay çubuğu kilitlemek istiyorum sayfa isimleri görünmesin.
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
Ozaman sorunuz neden o şekilde sormadınız?
Cevapla
#5
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 62
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 03/02/2021,17:42
Yorumları: 583
Konuları: 116
Kayıt Tarihi: 03/06/2016
Rep Puanı: 0
Mesleğiniz: Grafiker
Kusura bakmayın Hocam eksik açıkama yapmışım sayfa isimlerini kapatan yatay çubuk yazabilirdim.
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
Visual Basic Code 
ActiveWindow.DisplayWorkbookTabs = False  
gizlemek için
Göstermek için ise False yerine True olmalı
deneyemedim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da