Kullanıcıları bir Excel çalışma kitabını makro etkin dosya olarak kaydetmeye nasıl zorlarsınız?
Bir Excel çalışma kitabını kaydettiğinizde, varsayılan olarak makroları desteklemeyen ve çalışma kitabındaki tüm makro kodlarını kaldıracak olan .xlsx dosya formatı kullanılır. Kodları korumak için, çalışma kitabını Excel Makro Etkin Çalışma Kitabı formatında kaydetmelisiniz. Kullanıcıları makro etkin çalışma kitabı olarak kaydetmeye nasıl zorlayabilirsiniz?
Kullanıcıları VBA kodu ile makro etkin çalışma kitabı olarak kaydetmeye zorlayın
Kullanıcıları VBA kodu ile makro etkin çalışma kitabı olarak kaydetmeye zorlayın
Çalışma kitabının varsayılan olarak makro etkin bir çalışma kitabı olarak kaydedilmesini sağlamak için aşağıdaki VBA kodunu kullanabilirsiniz. Lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ardından VBAProject bölümündeki ThisWorkbook öğesine çift tıklayın, yeni boş bir modül açın ve ardından aşağıdaki kodu bu modüle kopyalayıp yapıştırın:
VBA kodu: Çalışma kitabını varsayılan olarak makro etkin çalışma kitabı olarak kaydetmeye zorla:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
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
3. Ardından bu kod penceresini kaydedip kapatın. Bundan sonra, kullanıcılar bu çalışma kitabını kaydettiğinde, aşağıdaki ekran görüntüsünde gösterildiği gibi, varsayılan olarak Excel Makro Etkin Çalışma Kitabı formatında kaydedilecektir:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin