Kullanıcıları makro etkin çalışma kitabı olarak kaydetmeye nasıl zorlayabilirim?
Bir Excel çalışma kitabını kaydettiğinizde, varsayılan olarak xlsx dosya biçiminde kaydedilir ve bu dosya biçimi, birden çok kod varsa çalışma kitabındaki makro kodlarından kurtulacaktır. Kodları korumak için, çalışma kitabını Excel Makro Etkin Çalışma Kitabı biçiminde kaydetmelisiniz. Kullanıcıları makro özellikli bir çalışma kitabı olarak kaydetmeye nasıl zorlayabilirsiniz?
Kullanıcıları, VBA kodu ile makro etkinleştirilmiş bir çalışma kitabı olarak kaydetmeye zorlayın
Kullanıcıları, VBA kodu ile makro etkinleştirilmiş bir çalışma kitabı olarak kaydetmeye zorlayın
Çalışma kitabını varsayılan olarak makro etkin çalışma kitabı olarak kaydetmek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından çift tıklayın Bu Çalışma Kitabı altında VBAProjesi bölümünde yeni bir boş modül açın ve ardından aşağıdaki kodu modüle kopyalayıp yapıştırın:
VBA kodu: Çalışma kitabını varsayılan olarak makro etkin çalışma kitabı olarak kaydetmeye zorlayın:
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 kaydedin ve kapatın, bundan böyle, kullanıcılar bu çalışma kitabı olarak kaydettiklerinde, Excel Makro Etkin Çalışma Kitabı varsayılan olarak aşağıdaki ekran görüntüsü gibi biçimlendirin:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!