Buton Şifreleme

[ahmzlm]

Merhaba;

Personel performans tablosu hazırlıyorum, istiyorum ki;

-Hazırladığım Excel her zaman anasayfa ile açılsın(son giren kişinin bıraktığı sayfa ile değil)
-Anasayfa'daki kişilerin sayfasına yönlendiren botunların her birine şifre koymak istiyorum, amacım sayfa sekmelerini kaldırıp birbirlerinin sayfalarını görmelerini engellemek.

Nasıl yapabilirim?

Tşk

 

[ulutanas]

Öncelikle aynı konuyu 2. kez açmanıza gerek yoktu eski konunuz dan tekrar destek isteyebilirdiniz.

Örnek dosya eklersen yardımcı olunacaktır muhakkak.

İyi çalışmalar...

 

[Muzaffer Ali]

Dosyanızın Thisworkbook kod editörüne aşağıdaki kodları kopyalayın

Dosya açıldığında AnaSayfa dışındaki tüm sayfalar gizlenir

Private Sub Workbook_Open()
    Dim Bak As Integer
    For Bak = 1 To Worksheets.Count
        If Not Worksheets(Bak).Name = "AnaSayfa" Then
            Worksheets(Bak).Visible = False
        End If
    Next
End Sub

Tıklayınca şifre sorulmasını istediğiniz butona aşağıdaki kodları kopyalayın.

    Dim Parola As String
    Parola = "Giriş parolası" 'Giriş Parolası yerine kullanıcının parolasını yazınız.
    If InputBox("Paroıla girtiniz") = Parola Then
        Worksheets("SayfaAdı").Visible = True ' SayfaAdı yerine açılacak sayfa adını yazınız
    Else
        MsgBox "Parola yanlış."
    End If

 

[ahmzlm]

Dosyanızın Thisworkbook kod editörüne aşağıdaki kodları kopyalayın

Dosya açıldığında AnaSayfa dışındaki tüm sayfalar gizlenir

Private Sub Workbook_Open()
    Dim Bak As Integer
    For Bak = 1 To Worksheets.Count
        If Not Worksheets(Bak).Name = "AnaSayfa" Then
            Worksheets(Bak).Visible = False
        End If
    Next
End Sub

Tıklayınca şifre sorulmasını istediğiniz butona aşağıdaki kodları kopyalayın.

    Dim Parola As String
    Parola = "Giriş parolası" 'Giriş Parolası yerine kullanıcının parolasını yazınız.
    If InputBox("Paroıla girtiniz") = Parola Then
        Worksheets("SayfaAdı").Visible = True ' SayfaAdı yerine açılacak sayfa adını yazınız
    Else
        MsgBox "Parola yanlış."
    End If

Kodlar için çok teşekkür ederim ama anasayfa kodunda çözemediğim bir problem var.

Kitaba ricalarım ile ilgili iki not düştüm.

 

[Muzaffer Ali]

Kitaba ricalarım ile ilgili iki not düştüm.

Örnek dosya mı ekleyeceksiniz?

 

[ahmzlm]

Örnek dosya mı ekleyeceksiniz?

Dosyayı ekledim. Tşk

 

[Muzaffer Ali]

Ben A ve B butonları için yaptım gerisini onlara bakarak siz yaparsınız.

 

[ahmzlm]

Ben A ve B butonları için yaptım gerisini onlara bakarak siz yaparsınız.

Çok güzel olmuş ellerinize sağlık
Çok teşekkürler

 

[Muzaffer Ali]

İyi çalışmalar.

 

[ahmzlm]

Peki Developer-Visual Basic yaptığımda kodlara direk ulaşabiliyorum ve herkesin şifresi okunabiliyor kodlar içinden.

Bunu engellemek için alabileceğim bir güvenlik önlemi var mı?

 

[Muzaffer Ali]

VBA aç / Tools / VBA Project Properties tıklat

Açılan pencerede Protection sekmesini aç

Look project ... işaretle

Parola yaz Tamamı tıklat. Artık kod sayfası da şifrelenmiş oldu.

 

[ahmzlm]

VBA aç / Tools / VBA Project Properties tıklat

Açılan pencerede Protection sekmesini aç

Look project ... işaretle

Parola yaz Tamamı tıklat. Artık kod sayfası da şifrelenmiş oldu.

dalgalıkur,

Çok teşekkür ederim.
Şimdilik tüm istediklerim gerçekleşmiş oldu

 

[ahmzlm]

Bir sorum daha olacak.

Butonları şifreledim, yanlış giriş için bloke koyabilir miyim?

En fazla 3 yanlış girişe izin versin mesela?

Tşk.

 

[levo26]

Sayın Dalgalikur;

Aşağıdaki kodları nereye yapıştıracağız. Başına Sub.... sonuna end sub denmeyecek mi?

Dim Parola As String
Parola = "Giriş parolası" 'Giriş Parolası yerine kullanıcının parolasını yazınız.
If InputBox("Paroıla girtiniz") = Parola Then
Worksheets("SayfaAdı").Visible = True ' SayfaAdı yerine açılacak sayfa adını yazınız
Else
MsgBox "Parola yanlış."
End If