Kaydırma Çubuğunu Kilitlemek

[yavuz829]

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.

 

[Emir Hüseyin Çoban]

.

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

.

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık.