DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Auto_Open()
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
Range("a1").Select
Sheets("Sayfa1").Protect Password:="123"
End Sub
'***********Dosyayı kapatırken ise***********************
Sub Auto_Close()
Sheets("Sayfa1").Unprotect Password:="123"
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("a1").Select
End Sub