DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Auto_Open()
With Application
.WindowState = xlNormal
.Width = 130
.Height = 28.5
.Left = 0
.Top = 0
End With
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
With Application
.WindowState = xlNormal
.Width = 130
.Height = 28.5
.Left = 0
.Top = 0
End With
End Sub
Private Sub Workbook_Activate()
Application.Visible = False
End Sub
Private Sub Workbook_Deactivate()
Application.Visible = True
End Sub