AÇIK OLAN TÜM SAYFALARIN KAPATILMASI

[ildizim]

MERHABA AÇIK OLAN TÜM EXCEL SAYFALARININ SAKLANMADAN KAPATILMASI İÇİN UFAK BİR MACROYA İHTİYACIM VAR.
ÞİMDİDEN TEÞEKKÜRLER.

 

[ildizim]

olabilir mi böyle bir macro açılan dosyalar cok fazla oluyor ve sabit isimleri yok.
:kafa:

 

[Mahmut Bayram]

Konuyu biraza daha açabilirseniz. Acaba formun görünüp te sayfalar arkada mı gizlenecek. Yoksa sayfa sekmeleri mi.

 

[ildizim]

açık olan tüm userformların ve excel çalışma sayfalarının saklanmadan kapatılmasını istiyorum.
teşekkürler.

 

[Mahmut Bayram]

Eğer ki tüm sayfalar gizlenirse bence hata verir
Üstatlar yanılıyor muyum yoksa? :düsün:
gene de aşağıdaki kodu bir deneyin ben de hata verdi

[vb:1:8ae1c25e04]Sub gizle_tüm()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = False
Next
End Sub[/vb:1:8ae1c25e04]

 

[Haluk]

Eğer ki tüm sayfalar gizlenirse bence hata verir

Sayfa değil, kitapların kapatılması isteniyor.

for i=1 to workbooks.count
workbooks(i).close false
next


gibi bir şey isteniyor sanırım ...

 

[ildizim]

hata veriyor iyiki kata verdi çünkü çalıştırdığım an aktif olan sheeti silmişti...
:hayir:

 

[ildizim]

evet sheetlerin değil workbookların kapatılmasını istiyorum

 

[ildizim]

günaydın...arkadaşlar hala yardımlarınızı bekliyorum teşekkürler,

 

[Haluk]

Yukarıda önerdiğim kod işinize yaramadı mı ?

 

[ildizim]

malesef bu kodu denediğimde açık olan sheeti silmeye kalkıştı.

 

[Haluk]

Sayfa değil, kitapların kapatılması isteniyor.

for i=1 to workbooks.count
workbooks(i).close false
next


gibi bir şey isteniyor sanırım ...

Sheet' leri silmez .... açık olan kitapları kapatır !!!

 

[ildizim]

Eğer ki tüm sayfalar gizlenirse bence hata verir

Sayfa değil, kitapların kapatılması isteniyor.

for i=1 to workbooks.count
workbooks(i).close false
next


gibi bir şey isteniyor sanırım ...

pardon sizin bu kodunuzla sadece macronun yazıldığı excel kitabı kapanıyor bağımsız kitaplar kapanmıyor.

 

[Haluk]

Merhaba;

O zaman demek ki değişik oturumlarda çeşitli Excel uygulamaları var.

O kod, aynı oturumdaki açık kitapları kapatır.

Bu durumda, bir de aşağıdaki kodu bir module yerleştirip deneyin ...

[vb:1:5af8735cad] Const strComputerName As String = "."
Const strNameSpace As String = "root\cimv2"
Const strClassName As String = "win32_process "
'
Sub Test()
Dim Prog As Object
Dim objWMIService As Object
Dim RunningProcesses As Object
On Error Resume Next
If Err.Number <> 0 Then
MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
"Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
Set objWMIService = GetObject("winmgmts:\\" & strComputerName & _
"\" & strNameSpace)
Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)
For Each Prog In RunningProcesses
If LCase(Prog.Name) Like "excel*" Then Prog.terminate
Next
End Sub
[/vb:1:5af8735cad]

 

[ildizim]

"Const strComputerName As String = "."
Const strNameSpace As String = "root\cimv2"
Const strClassName As String = "win32_process "

bu
kopları nereye yazacagım?

 

[Haluk]

Modulün en tepesine yapıştırın.

 

[ildizim]

OLDUUUU HARİKAAA TEÞEKÜRLERRRRR RAIDER.. :hiho: :icelim: :hihoho: :hey:

 

[Haluk]

eheheee......

Hayırlı olsun .... :mrgreen:

 

[ildizim]

SAÐOL RAIDER UMARIM YAPTIÐIN İÞTE KISMETİN BİLİNİYORDUR. BİZ SAÐDAN SOLDAN YARDIM ALARAK GEMİMİZİ YÜRÜTÜYORUZDA... SAÐOLUN VAROLUN