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.

Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A1:M100"
End Sub
ile kilitleyebilirsiniz, alanı daha küçük yada büyük olarak da ayarlayabilirsinizPrivate 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 acabilirsinizActiveWindow.DisplayHorizontalScrollBar = False
kodu da kullanılabilir, kodlari deneyemedim teorik
ActiveWindow.DisplayWorkbookTabs = False
gizlemek için