Excel Sayfasına Şifre Koyma Nasıl Yapılıyor?

[mmertcelebi]

excel dosyası içinde ki sayfa1, sayfa2, sayfa3...... çalışma sayfalarına nasıl şifre koyabilirim?( excel dosyasına şifre koymaktan bahsetmiyorum)
yardımcı olursanız sevirinirim.

 

[Ömer]

Merhaba,

Şifre nasıl işleyecek. Sayfa1 den iken Sayfa2 ye geçmek istediğiniz zaman şifre mi soracak. Daha detaylı bilgi verir misiniz.

 

[mmertcelebi]

Merhaba,

Şifre nasıl işleyecek. Sayfa1 den iken Sayfa2 ye geçmek istediğiniz zaman şifre mi soracak. Daha detaylı bilgi verir misiniz.

Sayfa1 den Sayfa2 ye geçmeye çalıştığım zaman önüme şifre sorucak şifreyi girdiğim zaman şifreyi girince sayfayı ben açabileceğim şekilde

 

[Ömer]

VBA ekranına geçip "Buçalışmakitabı" sayfasına yapıştırınız. Kodlarda her sayfa için farklı şifre tanımladım, sayfa adlarını ve şifreleri kendinize göre uyarlarsınız.

Public d As String, c As String
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    d = Sh.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
    Dim sor As String, syf(), sfr(), sifre, i As Byte

    If ActiveSheet.Name = c Then
        c = ""
        Exit Sub
    End If
   
    syf = Array("Sayfa1", "Sayfa2", "Sayfa3") 'şifre sorulacak sayfa adları
    sfr = Array("1", "2", "3") 'adlara karşılık gelen şifreler.
   
    For i = 0 To UBound(syf)
        If Sh.Name = syf(i) Then
            sifre = sfr(i)
            Exit For
        End If
    Next i
       
    If sifre = "" Then Exit Sub
    sor = Application.InputBox("Şifre Girmeniz Gerekir", "!!!")

    If sor <> sifre Then
        MsgBox "Hatalı Şifre. Geri Döndüm.", vbInformation
        c = d
        Sheets(d).Select
    End If
   
End Sub

 

[mmertcelebi]

VBA ekranına geçip "Buçalışmakitabı" sayfasına yapıştırınız. Kodlarda her sayfa için farklı şifre tanımladım, sayfa adlarını ve şifreleri kendinize göre uyarlarsınız.

Public d As String, c As String
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    d = Sh.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  
    Dim sor As String, syf(), sfr(), sifre, i As Byte

    If ActiveSheet.Name = c Then
        c = ""
        Exit Sub
    End If
  
    syf = Array("Sayfa1", "Sayfa2", "Sayfa3") 'şifre sorulacak sayfa adları
    sfr = Array("1", "2", "3") 'adlara karşılık gelen şifreler.
  
    For i = 0 To UBound(syf)
        If Sh.Name = syf(i) Then
            sifre = sfr(i)
            Exit For
        End If
    Next i
      
    If sifre = "" Then Exit Sub
    sor = Application.InputBox("Şifre Girmeniz Gerekir", "!!!")

    If sor <> sifre Then
        MsgBox "Hatalı Şifre. Geri Döndüm.", vbInformation
        c = d
        Sheets(d).Select
    End If
  
End Sub

teşekkür ederim yardımlarınız için sizi yordum ama çok başarılı bir çalışma olmuş tekrardan teşekkür ederim