Merhabalar,
Aşağıdaki Kod normal exceller de sayfalara şifre koyma kodu olarak buldum.
Ben bunu e-tabloya uyarlayamadım.
Bana bu konu da desteklerinizi rica ederim.
Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then Sheets("ANA SAYFA").Select
Application.Visible = True
End Sub
Aşağıdaki Kod normal exceller de sayfalara şifre koyma kodu olarak buldum.
Ben bunu e-tabloya uyarlayamadım.
Bana bu konu da desteklerinizi rica ederim.
Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then Sheets("ANA SAYFA").Select
Application.Visible = True
End Sub