vernel
Yeni Üye
- Katılım
- 12 Ağu 2021
- Mesajlar
- 321
- Çözümler
- 1
- Aldığı beğeni
- 127
- Excel V
- Office 2013 TR
Konu Sahibi
Merhabalar, Aşağıdaki makro kodunda kırmızı renkli satırları çalışır vaziyette iken VBA parola koruması gerçeklemiyor. Otomatik kayıttan sonra dosyayı açıtığımda VBA parolasının kaydedilmemiş olduğu anlaşılıyor. Yani Save olayını makro kodu ile yapınca VBA parolasını kaydetmiyor.
Ama kırmızı renkli Kaydet ve Kapat satırları silerek kodu çalıştırdığımda ise VBA parolası ilgili yere yazılıyor. Dosyayı elle kaydedip kapattıktan sonra tekrar açtığımda VBA parolası kaydedilmiş olduğu anlaşılıyor.
.Save olayı kodda neden çalışmaz!
Sub MAKRO2()
Dim Name As String
Sheets("DATA").Copy
Name = ThisWorkbook.Path & "\" & "Apricot" & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
VBName = "Apricot" & ".xlsm"
ProtectVBProject Workbooks(VBName), "TESLA"
'Workbooks("Apricot" & ".xlsm").Save
'Workbooks("Apricot" & ".xlsm").Close
End Sub
Ama kırmızı renkli Kaydet ve Kapat satırları silerek kodu çalıştırdığımda ise VBA parolası ilgili yere yazılıyor. Dosyayı elle kaydedip kapattıktan sonra tekrar açtığımda VBA parolası kaydedilmiş olduğu anlaşılıyor.
.Save olayı kodda neden çalışmaz!
Sub MAKRO2()
Dim Name As String
Sheets("DATA").Copy
Name = ThisWorkbook.Path & "\" & "Apricot" & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
VBName = "Apricot" & ".xlsm"
ProtectVBProject Workbooks(VBName), "TESLA"
'Workbooks("Apricot" & ".xlsm").Save
'Workbooks("Apricot" & ".xlsm").Close
End Sub
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
