AccessTr.neT

Bul · 30/05/2020, 18:00

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.

Bul · 30/05/2020, 18:23

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

Bul · 30/05/2020, 18:32

Hocam Çalışma sayfalarının adlarını kapatan yatay çubuğu kilitlemek istiyorum sayfa isimleri görünmesin.

Bul · 30/05/2020, 18:34

Ozaman sorunuz neden o şekilde sormadınız?

Bul · 30/05/2020, 18:37

Kusura bakmayın Hocam eksik açıkama yapmışım sayfa isimlerini kapatan yatay çubuk yazabilirdim.

Bul · 30/05/2020, 18:41

Visual Basic Code

ActiveWindow.DisplayWorkbookTabs = False

gizlemek için
Göstermek için ise False yerine True olmalı
deneyemedim.

AccessTr.neT

Kaydırma Çubuğunu Kilitlemek

Kaydırma Çubuğunu Kilitlemek

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

Giriş yap

Hesap oluştur

Konu Linkleri