minimize edilen ekranın otomatik olarak maximize olması

[karakaçan]

Arkadaşlar ortak olarak kullandığımız bir dosyamız var.Bu dosya belirli aralıklarla kendi kendine bizi hatırlatma amacıyla açılıyor. (denetim masası,zamanlanmış görevler bölümünden) açılan bu dosyayı diğer kullanıcılar kapatır ise belli bir süre sonra kendi kendine açılıyor. Burada sorun yok. Ancak diğer kullanıcılar dosyayı kapatmak yerine simge durumuna küçültür ise o zaman dosya görevini yapmıyor. Benim yapmak istediğim şey kullanıcı dosyayı simge durumuna küçültmek istediğnde otomatik olarak tekrar normal haline dönmesi. Kendimce aşağıdaki kodu yazdım eksik olan yeri bulamadım.Yardımcı olurmusnuz ?

Sub Makro2()
If Application.WindowState = xlMinimized Then

Application.WindowState = xlMaximized
End If
End Sub

 

[Mahir64]

Merhaba,

Simge durumuna küçültmeyi engellemek işinizi görürmü?

 

[karakaçan]

olabilir tamam

 

[Emir Hüseyin Çoban]

olabilir tamam

Kodlarda hata çıktığı için, sildim.
Son hali 8.mesajdadır.

 

[Mahir64]

Merhaba,

Eki inceleyiniz.
Kodlar alıntıdır.

 

[karakaçan]

Sayın mahir kodları denedim teşekkürler. Çalışıyor ancak dosya açılınca simge durumuna küçült tuşu aktif durumda oluyor. Bir defa basınca ekran küçülüyor ancak normal konuma geltirildikten sonra bu tuş kayboluyor. İlk denemeye izin veriyor yani. İlk sefere de izin vermemesi lazım kusura bakmayın yoruyoruz.

 

[karakaçan]

sayın hüseyin çoban teşekkür fakat aşağıdaki hatayı verdi
only comments may appear after end sub

 

[Emir Hüseyin Çoban]

sayın hüseyin çoban teşekkür fakat aşağıdaki hatayı verdi
only comments may appear after end sub

Aşağıdaki kodları bir modüle

Sub auto_open()
Dim BigSize As Boolean
Dim SmallSize As Boolean
BigSize = True
Call ShowMinMax(SmallSize, BigSize)
    Application.WindowState = xlNormal
    Application.WindowState = xlMaximized
End Sub

Bu kodları başka bir modüle yapıştırarak deneyiniz.

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal HWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal HWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Sub ShowMinMax(ShowMin As Boolean, ShowMax As Boolean)
Dim WinInfo As Long
WinInfo = GetWindowLong(Application.HWnd, GWL_STYLE)

If ShowMin = True Then
WinInfo = WinInfo Or WS_MINIMIZEBOX
Else
WinInfo = WinInfo And (Not WS_MINIMIZEBOX)
End If
If ShowMax = True Then
WinInfo = WinInfo Or WS_MAXIMIZEBOX
Else
WinInfo = WinInfo And (Not WS_MAXIMIZEBOX)
End If
SetWindowLong Application.HWnd, GWL_STYLE, WinInfo
End Sub

 

[karakaçan]

çok teşekkür ederim sorun çözüldü