Sayfalara Şifre Koymak

[esavas]

Sayfalara Þifre Koymak

Merhabalar;

Excel' de kullandığımız sayfalara şifre koymak istiyorum. Ã?yle bir kod olmalı ki bu sayfalara ulaşılmak istendiğinde şifre sorarak yanlış olduğunda ise sayfayı açmamalı. Kodlarla bunu nasıl yapabilirim? Teşekkür ederim.

 

[higzos]

farklı kaydeti tıklayın açılan pencerede "araçlar" ı açın. araçlar içerisinde"genel seçenekleri" tıkladığınızda açılan pencerede açma ve değiştirme parolasını yazabilirsiniz.

 

[Hüseyin]

Selam,
yabancı bir sitede aynı soruya verilen aşağıdaki kodu görmüştüm;
Bu kodu VBA editörde şifreleyeceğiniz sayfanın kod bölümüne yazın.

Private Sub Worksheet_Activate()

Range("A65536").Select
If InputBox("Þifre Gir?", "Þifre") = "123" Then
Range("A1").Select
Else
MsgBox ("Þifre Yanlış")
Sheets("Sayfa1").Select
End If

End Sub

Burada "123" ü girilmesini istediğiniz şifre olarak değiştirin.
Sondan bir önceki satırda da "Sayfa1" ifadesini çalışma kitabındaki var olan ancak gizli olmayan bir sayfa ismiyle değiştirin.
Ancak bu temel kullanıcılara karşı bir çözüm.
Eğer kullanıcı break ile kodu durdurursa veya açılışta macro güvenliği sorusuna "makro etkinleştirme" seçerse...güvenlik gitti demektir.... :hey:

 

[warez]

Sayfayı gizleyin. (Biçim/Sayfa/Gizle)
sonra açılış makrusuna şu kodu ekleyin

Sub Auto_Open()
    [b]Sheets("Gizli Sayfa").Visible = True[/b]
End Sub

Burada mantık şu Makrolar etkinleştirlmesse sayfa görünmez.
Etkinleştirldiğinde ise o sayfaya tıklandığında sayfanın kod böülümüne şu kodu ekleyin

Private Sub Worksheet_Activate()
Dim sifre
Dim durum
git:
sifre = Application.InputBox("Lütfen Kullanıcı Kodunu Giriniz", _
"Sayın ; " & Application.UserName, "Þifre")
If sifre = Empty Then Sheets("DiğerSayfa").Select
If sifre <> "Þifre" Then
durum = MsgBox("Girdiğiniz Þifre Yanlıştır " _
& vbNewLine & "Lütfen doru şifre giriniz." _
& vbNewLine & "Tekrar şifre Girmek İstiyormusunuz", vbYesNo, Application.UserName)
If durum = vbYes Then GoTo git
Else
MsgBox "Þifre Doğrudur.....!", vbInformation, Application.UserName
Exit Sub
End If
Sheets("DiğerSayfa").Select
End Sub

 

[esavas]

Değerli arkadaşlar;

Vermiş olduğunuz bilgiye teşekkür ederim. Bana yol göstermiş oldunuz.
Vermiş olduğunuz kodları biraz daha değiştirerek istediğim işlemi yapabildim.

İlginize ve yardımınıza teşekkür ederim.

 

[esavas]

Bilgilerin paylaşıldıkça arttığını düşünen bir kişi olarak, sizlerin yol göstermesi ile hazırladığım kodları sunuyorum:

Ã?ncelikle Sayfa1' de bir buton yaptım ve bu butona Sayfa2'yi aktif etmesi için aşağıdaki kodu yazdım.

Worksheets("Sayfa2").Activate

Sorasında ise;

Sayfa2' ye Worksheet_Activate Prosedürüne aşağıdaki kodu ekledim;

Sheets("Sayfa2").Visible = False
q = InputBox("Þifreyi Giriniz")
If q = "1" Then
Sheets("Veriler").Visible = True
Else:
Application.Goto Reference:=Worksheets("Sayfa1").Range("a1"), Scroll:=True
End If


Bu bilgilere ihtiyacı olanlara yardımcı olabileceği ümidiyle, şimdilik hoşçakalın, :hey:

 

[esavas]

Düzeltme:

Yukarıdaki kod da Veriler ile ifade ettiğim Sayfa2 dir.

 

[Hüseyin]

Çözümü de paylaştığın için teşekkürler. :bravo:

Sorunu çözülen tüm kullanıcılar bu tarz veya en azında "Sorunu çözdüm"
şeklinde bir geri bildirimde bulunursa daha faydalı olur kanaatindeyim. :dua: