DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
ActiveSheet.Name = "atadevrim"
End Sub
Private Sub Worksheet_Deactivate()
If Me.Name <> atadevrim Then
Me.Name = "atadevrim"
End If
End Sub