Macro değiştiğinde tüm makrolar silinsin

[cocoa35]

Arkadaşlar;
Ekli dosyanın yeri değiştiğinde tüm makrolar otomatik olarak siliniyor , bu kod'u şöyle değiştirebilirmiyiz;
Dosyada bulunan makrolardan herhangi birinde bir değişiklik olursa tüm makrolar silinsin..
Bu konuda yardım ederseniz sevinirim..

 

[cocoa35]

Arkadaşlar yardım lütfen..

 

[halit3]

Dosyanızın içindeki kod açılışta istenen klasörün yanında değilse kod kendini siliyor.

Sub Workbook_Open()
MsgBox ThisWorkbook.Path
    If ThisWorkbook.Path <> "C:\\user\makro" Then
        For Each VBComp In ActiveWorkbook.VBProject.VBComponents
            Select Case VBComp.Type
            Case 100
                With VBComp.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            Case Else
                ActiveWorkbook.VBProject.VBComponents.Remove VBComp
            End Select
        Next VBComp
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    End If
End Sub

Burada makro bölümüne girdikten sonra hiç bir kod kendi kendini silmez burada en güzel uygulama eğer kodları göstermemekse amaç makro bölümünü şifreliyebilirsiniz.

 

[cocoa35]

İlginiz için teşekkür ederim, peki ekli kod'u şöyle değiştirilemezmi?

Sub Workbook_Open()
MsgBox ThisWorkbook.Path
If "Buçalışma kitabındaki Macrolar değişir ise"Then
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
ActiveWorkbook.VBProject.VBComponents.Remove VBComp
End Select
Next VBComp
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub