Dosyanin 2.kez acilmasini engelleme

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Dosyanin 2.kez acilmasini engelleme

İleti#1)  snoktas » 09 May 2018 15:36

Calismamda excel sayfalari gizli ve ilk acilista userform ekrana geliyor.Ancak ayni kitabi tekrar acmayi tikladigimizda zaten acik vs.....uyarisi geliyoe ve ben gizlemjs oldugum excel sayfasi aktif oluyor.Acik olan exceli tekrar acmayi engelleyebilirmiyiz.
Kullanıcı avatarı
snoktas
Yeni Başlamış
 
Kayıt: 16 Nis 2018 14:28
Meslek: gh
Yaş: 39
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#2)  hemso41 » 11 May 2018 00:21

çalışma kitabının open metoduna aşağıdaki kodu eklemeniz yeterli olacaktır.
Kod: Tümünü seç
If ThisWorkbook.IsInplace = True Then
        MsgBox "dosyanız açık"
        ThisWorkbook.Close (False)
     End If

Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 329
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#3)  snoktas » 11 May 2018 10:42

Üstad maalesef olmadı.
Kullanıcı avatarı
snoktas
Yeni Başlamış
 
Kayıt: 16 Nis 2018 14:28
Meslek: gh
Yaş: 39
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#4)  hemso41 » 11 May 2018 11:23

Kodu doğru yere yazdınız değil mi? Zira bende çalışıyor ve aynı dosyayı açtırmıyor 2.defa.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 329
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#5)  snoktas » 11 May 2018 11:32

Workbook open kısmına yazdım.
Kullanıcı avatarı
snoktas
Yeni Başlamış
 
Kayıt: 16 Nis 2018 14:28
Meslek: gh
Yaş: 39
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#6)  feraz » 11 May 2018 11:47

hemso41 yazdı:çalışma kitabının open metoduna aşağıdaki kodu eklemeniz yeterli olacaktır.
Kod: Tümünü seç
If ThisWorkbook.IsInplace = True Then
        MsgBox "dosyanız açık"
        ThisWorkbook.Close (False)
     End If



Merhaba karışmak gibi olmasın.Fikrimi söyleyeyim kodu denemedim lakin bende workbookun events (open,change vs...) gibi yerlerine kod yazınca bir tuhaf şekilde kodlar çalışmıyor bazen bu kod söz konusu değil.

Onun için belki alttaki kodun içine yazılısa çalışır zira çalıştı demişsiniz.Belki yanlış yazmış olabilirim.

Bunu boş bir modüle ekleyin.Workbooksopen ile aynı işi görüyor.Belki fayda sağlar.

Kod: Tümünü seç
Sub auto_open ()
Kod
End sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4780
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#7)  snoktas » 11 May 2018 14:09

Maalesef hiçbirşekilde çalışmıyor.Excel sayfası açılıyor yeniden açmak istermisiniz sorusu geliyor.
Kullanıcı avatarı
snoktas
Yeni Başlamış
 
Kayıt: 16 Nis 2018 14:28
Meslek: gh
Yaş: 39
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#8)  hemso41 » 11 May 2018 16:56

Ekteki dosyada bir defa açıyor başka aynı dosyayı ne açıyor ne de soruyor.
deneme.rar
.Ben mi yanlış anladım acaba?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 329
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#9)  snoktas » 11 May 2018 18:16

Sizinkini denedim evet sormuyor.Ancak benimkinde olmuyor nedense herseyi denedim.
Kullanıcı avatarı
snoktas
Yeni Başlamış
 
Kayıt: 16 Nis 2018 14:28
Meslek: gh
Yaş: 39
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosyanin 2.kez acilmasini engelleme

İleti#10)  xpeker » 15 May 2018 01:12

Benzer bir sorunla karşılaştığım çalışmamda;
açılışta sadece Userform'u göstermek için Module;
Kod: Tümünü seç
Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub
kodunu kullanmışım.

Benzer sorunlarda esas olay userform'un kapatılması ancak excel sayfasının gizli şekilde arka planda çalışması neticesinde oluşuyor.
Şahsen benim kullandığım kendimce makul yöntem Userform'un "X" (Kapatma) sembolünü yokedip, "KAPAT" butonu koyarak userform ile birlikte gizli excel dosyasını da kaydederek kapatmak. Bunun için;
Userform'un kod bölümünün en başına;

Kod: Tümünü seç
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


UserForm_Initialize() altında;

Kod: Tümünü seç
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


Kapat butonuna ise;

Kod: Tümünü seç
Private Sub CommandButton3_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


kodlarını kullanarak gayet stabil ve sorunsuz dosyayı kullanabiliyorum ve tekrar açmak zaten mümkün olmuyor dosyayı.
Umarım işinize yarar.
Kullanıcı avatarı
xpeker
Yeni Başlamış
 
Kayıt: 05 Oca 2015 19:41
Meslek: memur
Yaş: 37
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe