İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Istifadəçiləri makro effektiv iş dəftəri kimi saxlamağa necə məcbur etmək olar?

Bir Excel iş kitabını saxladığınızda, bu xlsx fayl formatında standart olaraq saxlanacaq və bu fayl formatı birdən çox kod olduqda iş kitabından makro kodlarından xilas olacaq. Kodları saxlamaq üçün iş kitabını Excel Macro-İş Kitabı formatını aktivləşdirmək kimi saxlamalısınız. Istifadəçiləri makro effektiv iş dəftəri kimi saxlamağa necə məcbur edə bilərsən?

VBA kodu ilə makro effektiv iş kitabını saxlamaq üçün istifadəçilərə məcbur edin


arrow mavi sağ bubble VBA kodu ilə makro effektiv iş kitabını saxlamaq üçün istifadəçilərə məcbur edin

İş kitabını default olaraq makro effektiv iş kitabı olaraq saxlamaq üçün aşağıdakı VBA kodu sizə kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Sonra cüt basın BuWorkbook Altında VBAProject bölməsində yeni bir boş modul açmaq və sonra aşağıdakı kodu kopyalayıp modula yapışdırın:

VBA kodu: İş kitabını default olaraq makro effektiv iş kitabı olaraq saxlamaq üçün məcbur edin:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice 20161222
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub

doc qüvvəsi xlsm 1 kimi saxlaya bilərsiniz

3. Bundan sonra istifadəçilər bu iş kitabı kimi saxladıqda, bu kod pəncərəsini saxlaya və bağlayın, bu kimi qeyd olunacaq Excel Macro Enabled İş Kitabı Aşağıdakı ekran görüntüsü kimi göstərilən formata görə:

doc qüvvəsi xlsm 2 kimi saxlaya bilərsiniz



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jonathan · 1 months ago
    Keep getting a 1004 ERROR.
    Using Off365 2016 for MAC. Got a solutions?
    • To post as a guest, your comment is unpublished.
      skyyang · 23 days ago
      Hello, Jonathan,
      This code works well in Windows Office, but it not tested in MAC.
      You should search for a code for working in MAC.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Shazza · 2 months ago
    fileformat: =52 is a nicer was as making macro enabled workbook. fileformat:=51 is normal workbook.
  • To post as a guest, your comment is unpublished.
    Brevig Madison · 9 months ago
    I'm using Excel 2016 for Mac, and when I use this VBA code to achieve the "force save as .xlsm" I get the following error:

    Run-time error '1004':

    Method 'GetSaveAsFilename' of object '_Application' failed

    Any guidance someone could provide around this error and how I may need to adjust the code to work on the Mac version of Excel would be greatly appreciated!
  • To post as a guest, your comment is unpublished.
    ProbablyNotLadyGaga · 10 months ago
    Nice one!

    Saved me a lot of headache! :)
  • To post as a guest, your comment is unpublished.
    RM · 1 years ago
    Saved me a lot of pain - thanks so much