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.
Kaydırma Çubuğunu Kilitlemek
Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A1:M100"
End Sub
ile kilitleyebilirsiniz, alanı daha küçük yada büyük olarak da ayarlayabilirsinizTekrar serbest bırakmak icin
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 acabilirsinizYada aktif sayfanın açılma kodu olarak
ActiveWindow.DisplayHorizontalScrollBar = False
kodu da kullanılabilir, kodlari deneyemedim teorik
Hocam Çalışma sayfalarının adlarını kapatan yatay çubuğu kilitlemek istiyorum sayfa isimleri görünmesin.
Ozaman sorunuz neden o şekilde sormadınız?
Kusura bakmayın Hocam eksik açıkama yapmışım sayfa isimlerini kapatan yatay çubuk yazabilirdim.
ActiveWindow.DisplayWorkbookTabs = False
gizlemek içinGöstermek için ise False yerine True olmalı
deneyemedim.
Konuyu Okuyanlar: 1 Ziyaretçi