MVP logo
    Sizin Brauzer: , Versiya
Çərşənbə, 28.06.2017, 1:57 PM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [11]
Ümumi [4]

Sorğu
Saytın hansı bölməsini daha çox maraqlı hesab edirsiniz?
Səsvermə sayı: 124

Statistika

Cəmi online: 1
Qonaqlar: 1
Userlər: 0

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

Aktiv Excel kitabının ləğv (delete) edilməsi qaydası
[ Bu serverdən yüklə (27.0Kb) ] 18.12.2012, 6:02 PM
Aktiv excel kitabını adi qaydada delete edən zaman həmin prosesin excel kitabın (excel workbook) bağlanmasından sonra davam etdirilməsini mütləq şəkildə tələb edən mesaj görünür. Buna baxmayaraq bu prosesin gerçəkləşdirilməsi realdır. Bu əməliyyat əsasən faylın avtomatik yenilənməsi prosesində tələb oluna bilinər və bu prosesin aşağıdakı ardıcıllıqla həyata keçirilməsi mümkündür.

Qeyd: bu koddan istifadə etdiyiniz zaman ehtiyyatlı olun. Aşağıdakı kodu lazımlı fayllarınızın modulunda test etməniz məsləhət görülmür. Nümunə faylını yuxarıdakı linkdən yükləyə bilərsiniz.

Sub Delete_Active_File()
'Xeberdarliq mesaji
x = MsgBox("Fayli legv etmek isteyirsiniz?", 17, "Delete File")
'Shert- eger "ok" sechilerse
If x = 1 Then
On Error Resume Next ' eger fayl readonly rejimindedirse
'Faylin readonly rejimine kechirilmesi
ThisWorkbook.ChangeFileAccess xlReadOnly
'Faylin legv edilmesi (delete file)
Kill ThisWorkbook.FullName
'Faylin baglanmasi
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
Kateqoriya: VBA | Yükləyən: Useful | Tags: active workbook, delete workbook, How to delete avtive workbook
Baxış sayı: 397 | Yükləmə sayı: 85 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Ad *:
E-poçt:
Kod *:
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory