VBA 코드가 자신의 시트를 삭제하고 "유령"시트를 남깁니다.

Question

VBA 코드가있는 Excel 양식을 사용하여 사용자 폼을 호출합니다. 해당 userform을 실행하면 지침 중 하나가 시트를 삭제하는 것입니다 (하지만 그 시트의 코드가 여전히 실행중인 것으로 보이는 첫 번째 위치에서 userform이 호출되기 때문에). 결국 VBA Microsoft Excel 개체 목록에 "고스트"시트가 남습니다. 옵션이 회색으로 표시되므로이 시트를 제거 할 수 없습니다. 결과적으로 많은 양의 "고스트"시트가 누적됩니다.

screenshot. 시트에

코드 :

Private Sub CommandButton1_Click() 
    Call Show_UserForm 
End Sub 

어떤 조언이나이 문제를 해결하는 데 도움을 크게 감상 할 수있다.

Answer 1

"고스트"시트는 객체의 코드 일뿐입니다.

난 당신이 루틴이 호출 된 시트를 삭제하기 때문에 효과가 어떻게 될지 모르겠어요,하지만 당신은 XXX이 개체의 (name) 인 ThisWorkbook.VBProject.VBComponents("XXX").Delete 방법을 사용하여 이러한 유령 시트를 삭제할 수 있습니다.

Answer 2

나는 비슷한 문제에 직면했다. 그러므로 나는 도움이되는 경우에 게시 할 것이라고 생각했다. Excel에서 삭제 한 시트가 개체로 존재하고 시트를 수동으로 삭제할 수 없었습니다. 속성을 확인할 때 속성 'Visible'이 2 (xlSheetVeryHidden)로 설정되어 있음을 확인했습니다. -1로 변경 한 다음 모두 삭제할 수있었습니다. 시트를 지우려면 아래 코드를 사용했습니다.

그러나 무엇이 시트를 보이지 않게했는지 확실하지 않습니다. 내 첫 페이지에는 삭제 된 페이지에 대한 참조 링크가있어서 이로 인해 발생할 수 있습니다.

Sub deleteGhosts() 

    Dim wb As Workbook 
    Dim tabname As String 

    Set wb = ThisWorkbook 

    For Each Sheet In wb.Worksheets 
     tabname = Sheet.Name 
     If wb.Worksheets(tabname).Visible = 2 Then 
      MsgBox "Deleting " + tabname 
      wb.Worksheets(tabname).Visible = -1 
      wb.Worksheets(tabname).Delete 
     End If 
    Next Sheet 

End Sub