Şifreleme

[zafer45]

Bir dosyadaki veri değişikliklerin , kopyalanmanın engellemesini , hatalı veri girişinin giderilmesi için diğer kullanıcıların sadece bakabileceği fakat hiç bir değişiklik yapamayacağı hatta ekleme/çıkarama/kopyalama gibi sair işlemlerinde sınırlandırıldığı bir yardım rica ediyorum

 

[Ahmet ÖZGÜR]

Merhaba site içinde arama yaparsanız bu tarz konularda birçok örnek bulabilirsiniz.


http://www.excel.web.tr/f48/excel-sayfasyna-ifre-koyma-t77447.html

Ömer Beyin yanıtı 5. konuda

Private Sub Worksheet_Activate()
'Application.Visible = False
Şifre = "abc"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("AnaSayfa").Select
'Application.Visible = True
End Sub