Sheets makrosu

[talebeyim]

Arkadaşlar Aşağıdaki sheets gösterme ve gizleme makrosudur, fakat ben sayfayı göstermek isterken bana şifre sormasını istiyorum, şifrede "xxy" olsun.
İvedi desteklerinizi bekliyorum.


Sub ali_Quit()
Sayfa7.Visible = xlSheetVeryHidden
End Sub

Sub ali_Open()
Sayfa7.Visible = xlSheetVisible
End Sub

 

[halit3]

Sub ali_Open()
şifre = InputBox("Sayfayı görüntülemek için şifre giriniz.", "UYARI!", "şifreyi yazınız.")
If şifre = 123 Then
Sayfa7.Visible = xlSheetVisible
Else
msbox "şifre hatalı"
Exit Sub
End If
End Sub