Buton ile gizlenmiş Sayfa'nın şifreleme ile açılması

[Araştırıcı]

Değerli Uzmanlarımız,
Merhaba

ilgili excel dosyası açıldığında 2. sırada bulunan "aktarılan info" sayfasının gözükmemesin isteniyor. Yani ilk açımda Excel dosyasıda "aktarılan info" sayfasının gizlenmiş olarak açılması seneryosu var. Aktarılan işler sayfasının içersine konulacak bir buton ile ilgili gizli drumdaki bu dosyanın açılabilmesi için aşağıdaki kodlama içersindeki şifre sorgu tarzında bir şifrelemenin devreye girmesini istiyorum. Bunun olabilmesi içn nasıl bir kodlama düzenlemek gerekecek.

Saygılarımla
İyi çalışmalar


Private Sub Worksheet_Activate()

ActiveWindow.WindowState = xlMinimized

sor = InputBox("Girme yetkiniz varsa, şifrenizi giriniz.", "Onay", "****")

If sor = 1453 Then
Sheets("aktarılan info").Activate
ActiveWindow.WindowState = xlMaximized
Else
Sheets("teklif aşamasındakiler").Activate
ActiveWindow.WindowState = xlMaximized
End If

End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Örneği inceleyiniz.

Sub auto_open()
Sheets("aktarılan info").Visible = False
ActiveWorkbook.Protect "123"
End Sub
Sub sayfaac()
sor = InputBox("Şifrenizi giriniz")
sifre = "123"
If sor = sifre Then
ActiveWorkbook.Unprotect "123"
Sheets("aktarılan info").Visible = True
Else
MsgBox "Yanlış şifre girdiniz."
End If
End Sub