user formda (x) işaretini kaldıramıyorum.

[mehmet25]

Merhaba değerli hocalarım.user formda (x) sağ üst köşediki işareti kaldıramıyorum.Propertiesde controlbox gözükmüyo.Acaba ne yapmalıyım.?Teşkkürler saygılar.

 

[zafer]

Merhaba

Aşağıdaki linkleri inceleyiniz.
userformun sağ üst köşesindeki "X" kapatma butonu nasıl iptal edilir.
userform kapanmasın

2 - View menüsünden Toolbox'ı iaşaretleyiniz.

 

[mehmet25]

Sorun ÇÖzÜlmedİ

Sn Zafer cevabınız için teşkkürler ama (x) işareti user formdan kalkmadı.Başka kodlarda var acaba bunlar etkiliyor olabilir mi?

 

[mehmet25]

Sorun Çözülmedi

Sn Zafer cevabınız için teşkkürler ama (x) işareti user formdan kalkmadı.Başka kodlarda var acaba bunlar etkiliyor olabilir mi?

 

[zafer]

Merhaba



userformun sağ üst köşesindeki "X" kapatma butonu nasıl iptal edilir.

linkindeki 8 ve 9 numaralı mesajlara baktınızmı

kendi userformunuzda kullanacaksanız userform kod sayfasındaki kodları kendinize göre uyarlamanız gerekebilir.

 

[mehmet25]

Sn:Zafer Hocam

Sevgili hocam kullandığım userformda aşağıdaki kodlar mevcut ve istediğim şekilde çalışıyor ,(X) önerdiğiniz kodları bu kodlara ekliyorum fakat (x) işareti kalkmıyor.Kodlar aşağıdaki şekilde.

Dim e As Integer
Private Sub CommandButton16_Click()
For X = 0 To 200
DoEvents
If e = 1 Then
d = d + 280
yuk = 345
mak = 65
Else
d = d - 280
yuk = 345
mak = 65
End If
UserForm1.Height = yuk + d
If UserForm1.Height >= mak And e = 1 Then GoTo 10
If UserForm1.Height <= mak And e = 0 Then GoTo 20
Next
10 CommandButton16.Caption = "ANA MENÜYÜ GİZLE"
e = 0
Exit Sub
20 CommandButton16.Caption = "ANA MENÜYÜ GÖSTER"
e = 1
End Sub
Private Sub CommandButton15_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Sheets("1").Select
End Sub

Private Sub UserForm_Activate()
On Error Resume Next
For a = 0 To 535 Step 1
DoEvents
Me.Height = a
Next
Do
UserForm1.Label1 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Şu en sondaki kodu kullandığımda yine (X) işareti var ama aktif değil.Ben bu işaretin formda görünmemesini istiyorum.
Teşşekürler Saygılar.

 

[Korhan Ayhan]

Selamlar,

Sn. Zafer beyin size &#246;nerdi&#287;i linkteki a&#351;a&#287;&#305;daki kodu formunuzun kod sayfas&#305;nda ilk sat&#305;ra gelecek &#351;ekilde uygulay&#305;p denermisiniz. &#304;lk sat&#305;ra uygulamazsan&#305;z sonu&#231; alamazs&#305;n&#305;z.

Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
    Dim hwnd As Long
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[mehmet25]

Sn Cost Control

İlginize teşekkür eder saygılarımı sunarım.Efendim söylediğiniz şekilde denedim karşıma şu mesaj çıktı

Compile error

Only commends may apppear after end sub end function or end property

doğrusu ben bu mesajdan pek bir şey çıkaramadım.Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Eğer kendi dosyanıza uygulayamazsanız dosyanızı eklerseniz yardımcı olmaya çalışırız.

 

[mehmet25]

Sn Cost Control teşekkürler

Sn Hocam teşekkürler amacıma ulaştım fakat forma yukarda belirttiğim kodlarda ana menüyü göster kodu çalışmıyor bu şekilde gene nerde yanlış yapıyorum acaba

 

[Korhan Ayhan]

Selamlar,

Dosyan&#305;z&#305; eklermisiniz.

 

[mehmet25]

Buyrun Hocam

Merhaba hocam öncelikle hakkınızı helal edin bayağı uğraştınız.Dosya ekte ana menü butonuna tıkladığınızda userform açılıyor amacım (X) userformdan kalksın.İzniniz ile 2 sorum daha olacak
1-Acaba eklenen modüller ve userformlar nasıl siliniyor.Bu konuda da beni aydınlatırsanız sevinirim.
2-Excel sayfalarında sutünları gösteren harfler satırları gösteren rakamlar ve kaydırma çubuğunun solundaki sayfa isimleri nasıl kaldırılıyor.
.Çok teşekkür ederim sağolun iyi çalışmalar.

 

[mehmet25]

Buyrun Hocam

Merhaba hocam hakınızı helal edin bayağı uğraştınız.Hocam dosya ekte anamenü butonuna tıkladığımızda usrform açılıyor amacım (x) işareti olmasın.
İzniniz ile 2 sorum daha olacak
1-Eklanen modüller ve userformlar nasıl siliniyor?
2-Excelde satırları gösteren rakamlar ve sütünları gösteren harfler birde kaydırma çubuğunun solundaki sayfa isimleri nasıl kaldırılıyor.
Teşekkür eder saygılarımla iyi çalışmalar dilerim.

 

[Korhan Ayhan]

Selamlar,

Formunuza ait kodları silip aşağıdaki kodu uyguladığınızda formunuzdaki (X) işareti kaybolacaktır.

1. Sorunuzun cevabı aşağıdaki linkte inceleyiniz.

http://www.excel.web.tr/showthread.php?t=22103

2. Sorunuzun cevabı ise ARAÇLAR-SEÇENEKLER menüsünü açın. GÖRÜNÜM sekmesini tıklayın. Alt kısımda Pencere Seçenekleri kısmındaki işaretli kısımların işaretlerini kaldırarak sayfa görünümünüzü istediğiniz formata getirebilirsiniz.

Dim e As Integer

Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
    Dim hwnd As Long
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Private Sub CommandButton16_Click()
    For X = 0 To 200
    DoEvents
    If e = 1 Then
    d = d + 280
    yuk = 345
    mak = 65
    Else
    d = d - 280
    yuk = 345
    mak = 65
    End If
    UserForm1.Height = yuk + d
    If UserForm1.Height >= mak And e = 1 Then GoTo 10
    If UserForm1.Height <= mak And e = 0 Then GoTo 20
    Next
10     CommandButton16.Caption = "ANA MENÜYÜ GİZLE"
    e = 0
    Exit Sub
20     CommandButton16.Caption = "ANA MENÜYÜ GÖSTER"
    e = 1
End Sub
Private Sub CommandButton15_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    On Error Resume Next
    For a = 0 To 535 Step 1
    DoEvents
    Me.Height = a
    Next
    Do
    UserForm1.Label1 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
    DoEvents
    Loop
End Sub

 

[mehmet25]

TeŞekkÜrler

Değerli hocam çok sağolun teşekkür ederim.Saygılarımla iyi çalışmalar.