Tüm Kod'ların Kaldırılması

[cocoa35]

Arkadaşlar; Ekteki kod'ları son kod arşivden aldım ve çalışma kitabındaki tüm kod'ları kaldırıyor, ancak denedim çalışmıyor sorunun nerede olduğunu bulabilirmisiniz..

Sub RemoveAllCode()
  'XL2K:
  ' Dim VBComp As VBComponent, AllComp As VBComponents,
  ' ThisProj As VBProject
  ' XL97 & XL2K:
  Dim VBComp As Object, AllComp As Object, ThisProj As Object
  Dim ThisRef As Reference, WS As Worksheet, DLG As DialogSheet
  If ActiveWorkbook.Name <> ThisWorkbook.Name Then
    Set ThisProj = ActiveWorkbook.VBProject
    Set AllComp = ThisProj.VBComponents
    For Each VBComp In AllComp
      With VBComp
        Select Case .Type
          Case vbext_ct_StdModule, vbext_ct_ClassModule, _
            vbext_ct_MSForm
            AllComp.Remove VBComp
          Case vbext_ct_Document
            .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
        End Select
      End With
    Next
    For Each ThisRef In ThisProj.References
      If Not ThisRef.BuiltIn Then ThisProj.References.Remove ThisRef
    Next
  End If
  Application.DisplayAlerts = False
  For Each WS In Excel4MacroSheets
    WS.Delete
  Next
  For Each DLG In DialogSheets
    DLG.Delete
  Next
End Sub

 

[uzmanamele]

Merhaba

Vba proje erişimine güven onaylanmış olmalıdır, güvenlik merkezi ayarlarına bakınız.
Bu kodlar win7 de çalışmayabilir.