MVP logo
    Your browser: , Version
Friday, 29.03.2024, 4:42 PM
Hello! Guest | Group Guest | RSS
Home | Fayl Kataloqu | Profile  | Login
Saytın menyusu

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

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

Statistika

Total online: 1
Guests: 1
Users: 0

Müsabiqələr


Aktiv Excel kitabının ləğv (delete) edilməsi qaydası
[ Download from this server (27.0 Kb) ]18.12.2012, 5: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
Category: VBA | Added by: Useful | Tags: active workbook, delete workbook, How to delete avtive workbook
Views: 947 | Downloads: 109 | Rating: 0.0/0
Total comments: 0
Register to add comments
[ Register | Login ]
Login

Search

Useful Sites
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Visitors
    free counters


    MyExcelWorld © 2024
    Site managed by uCoz