Excel gözükmesin makrosu çalışmıyor

[muratgunay48]

Arkadaşlar, sayın hocalarım. Aslında ben bu soruyu daha önce sormuştum ama hem tam anlatamadım hem de başka soruyla karıştı.
Benim iş yerinde kullandığım dosya vardı, sorunsuz çalışıyor yani hâlâ çalışıyor.
Bunu evdeki bilgisayarıma aldım.
Modülde

Sub Auto_Open()
Application.Visible = False
UserForm1.Show 0
End Sub

Kodu var. Ancak fotoğraftaki gibi excel açılıyor.
Ev bilgisayarım Windows 10 - 64 bit - Office 2016
İş yeri bilgisayarım Window 8 - 32 bit - Office 2010

Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Kodda bir sorun görünmüyor..

Belki ofis ayarlarınızda bir farklılık olabilir. Bunu kontrol etmeniz gerekebilir..

 

[muratgunay48]

Kodda bir sorun görünmüyor..

Belki ofis ayarlarınızda bir farklılık olabilir. Bunu kontrol etmeniz gerekebilir..

Hocam ilginize teşekkür ederim. O kadar çok ayar var ki! Sizin kadar konuya hâkim olmadığımı da biliyorum. En azından hangi bölüme bakacağım. Bir yol gösterebilirseniz müteşekkir olurum.

 

[muratgunay48]

Lütfen yardımcı olabilecek bir hocamız yok mu? Benim için çok önemli.
Ayarlarda hangi bölüme bakacağım.
Teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Kullandığınız bir eklenti varsa onları pasif yaptıktan sonra deneme yapabilirsiniz.

 

[muratgunay48]

Kullandığınız bir eklenti varsa onları pasif yaptıktan sonra deneme yapabilirsiniz.

Yok hocam.

 

[muratgunay48]

Yok değişik bir talep ama uzaktan bağlanıp ayarlara bakabilecek bir hocamız var mı acaba?
İnanın her ayarlarda her yere baktım. Yok olmuyor.
Ya da en azından bu ayar nerede. Yani böyle bir ayar var mı?
Şimdiden teşekkür ederim.

 

[asdsxx]

Yok değişik bir talep ama uzaktan bağlanıp ayarlara bakabilecek bir hocamız var mı acaba?
İnanın her ayarlarda her yere baktım. Yok olmuyor.
Ya da en azından bu ayar nerede. Yani böyle bir ayar var mı?
Şimdiden teşekkür ederim.

Belki bir ihtimal ama evdeki bilgisayarda makro güvenlik ayarlarında sorun olabilir.
Excel-Dosya- Seçenekler'i açtıktan sonra aşağıdaki ayarları yap

 

[Korhan Ayhan]

Belki ofisi kalıntısız kaldırdıktan sonra yeniden kurarsanız sorunlar kökünden çözülebilir..

Office'i otomatik olarak kaldırma - Microsoft Desteği

Office otomatik olarak nasıl kaldırılır

support.microsoft.com

 

[muratgunay48]

Hocam, kızacaksınız ama. Ben bu dosyanın bir benzerini kendi bilgisayarımda yaptığım zaman, excel açılmıyor.
Acaba, iş yeri bilgisayarım (orada hazırladım, söylemiştim zaten) 32, evdeki 64 bit.
Farz edelim bu yüzden. Nasıl uyumlu hale getirilir.

 

[Korhan Ayhan]

Evdeki sürümüde 32 bit olarak yeniden kurarak deneyebilirsiniz.

 

[asdsxx]

Hocam, kızacaksınız ama. Ben bu dosyanın bir benzerini kendi bilgisayarımda yaptığım zaman, excel açılmıyor.
Acaba, iş yeri bilgisayarım (orada hazırladım, söylemiştim zaten) 32, evdeki 64 bit.
Farz edelim bu yüzden. Nasıl uyumlu hale getirilir.

UserForm'un kod kısmının en başına aşağıdaki kodu yapıştırın çalışabilir. Aşağıdaki kod hem 32 bit hemde 64 bit te çalışması içindir.
Eğer devamlı 64 bitte çalışacaksa form'un kod kısmında
"Private Declare Function" olan yerleri "Private Declare PtrSafeFunction" olarak değiştirin. yada aşağıdaki gibi yapıp her iki versiyonda da çalışıabilir.

#If Win64 Then
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

 

[muratgunay48]

Evdeki sürümüde 32 bit olarak yeniden kurarak deneyebilirsiniz.

Evdeki sürümüde 32 bit olarak yeniden kurarak deneyebilirsiniz.

Evde hazırladıklarım da var hocam. Bu en son seçenek olabilir. Teşekkür ederim.

 

[muratgunay48]

UserForm'un kod kısmının en başına aşağıdaki kodu yapıştırın çalışabilir. Aşağıdaki kod hem 32 bit hemde 64 bit te çalışması içindir.
Eğer devamlı 64 bitte çalışacaksa form'un kod kısmında
"Private Declare Function" olan yerleri "Private Declare PtrSafeFunction" olarak değiştirin. yada aşağıdaki gibi yapıp her iki versiyonda da çalışıabilir.

#If Win64 Then
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Hocam emeğinize sağlık ama olmadı.

 

[muratgunay48]

Sayın hocalarım yaptım
Her modüle son iki satırdan önce bir satır ekledim. Şöyle oldu.

Application.Visible = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Excel gözükmüyor. Emekleriniz için teşekkür ederim. Saygılarımla.

 

[Korhan Ayhan]

Örnek dosya olmayınca maalesef çok fazla yorum yapamıyoruz. İnceleyip sorunuz tespit etme şansımız olamıyor.

Çözüme ulaşmanız sevindirici bir haber.. Tebrikler..

 

[muratgunay48]

Örnek dosya olmayınca maalesef çok fazla yorum yapamıyoruz. İnceleyip sorunuz tespit etme şansımız olamıyor.

Çözüme ulaşmanız sevindirici bir haber.. Tebrikler..

Hocam rica ederim. Sizlerden öğrendiklerimiz sayesinde. Şöyle ki bizim dosyalarımızın çoğu kurumsal. Onun için paylaşamıyorum. İçinde 34 tane modül var. Kopyaladım. Hepsinin alttan 3. Satırına yağıştır, yapıştır, yapıştır.... yaptım.