DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim say As Integer
Private Sub Workbook_Open()
say = Sheets.Count
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.DisplayAlerts = False
If Sheets.Count > say And say <> 0 Then ActiveSheet.Delete
End Sub
Öncelikle rica ederim, yalnız sizi hayal kırıklığına uğratacak belki ama fikrimi söylemek durumundayım. Excel açık kaynak kodlu bir program olduğundan hiçbir zaman tam koruma sağlanamaz, dosyanızdaki yaptığınız işlem ancak VBA konusunda yeterli düzeyde bilgi sahibi olmayanlar için bir koruma sağlayabilir. VBE şifresi en kolay kırılan şifrelerdendir. Bu şifrenin tam olarak korunmasıda mümkün değildir. En zor kırılan şifre ise excelin açılışına konan şifredir bunuda bir bilgi olarak vereyim...............
Bu dosya sayesinde tam güvenlik sağladığımı düşünüyorum. Son zamanlarda dosyalarıma sayfa koruması koymama rağmen bazıları özel programlarla sayfa koruma şifremi kırıp verilerimi alıyorlardı. Oysa şimdi siz değerli ustalardan aldığım yardımlarla bunun önüne geçtiğimi düşünüyorum........