参照設定 追加されている参照設定を解除(一覧より指定)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub RefRemoveChoice() '***************************** '追加されている参照設定を解除 '***************************** '解除する参照設定を選択する場合 Dim objBok As Workbook Dim objReferences As Object Dim strRefName As String Dim strRefDscrp As String Dim strMSG(2) As String strMSG(2) = "[はい] 解除 / [いいえ] 維持" Set objBok = ThisWorkbook With objBok.VBProject For Each objReferences In objBok.VBProject.References strRefName = objReferences.Name strRefDscrp = objReferences.Description strMSG(1) = strRefName & "[ " & strRefDscrp & " ]" If MsgBox(strMSG(1) & vbCrLf & vbCrLf & strMSG(2), vbInformation + vbYesNo, "参照設定解除") = vbYes Then .References.Remove objReferences End If Next objReferences End With End Sub |