コマンドボタンをクリックしても作動せず

質問

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

下記のマクロで
　1　シート「元本」のコピーをコマンドボタンをクリックしても作動しません。
　　　ボタンの所にポメイントを当てても十字に変化して固まった状態なります。
　2　 K3:S32の範囲で○や△がWクリックしても値を返しません。

このブックの他にはいくつかマクロがありそれらは作動しこの「元本」の下記のマクロ
のみ作動しません。
今までは作動していたのですがなぜなんでしょうか。
この不具合をどうすればいいか御指導いただけませんでしょまうか。

参考に
Private Sub CommandButton1_Click()

Dim NewSheetName As String
Dim c As Object
Dim MatchFLG As Boolean

Do
MatchFLG = False
NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で4桁の新しいシート名を入力してください。例:１月１日を0101のように")
If StrPtr(NewSheetName) = 0 Then
MsgBox "キャンセルします", vbInformation
Exit Sub
ElseIf NewSheetName = "" Then
MsgBox "未入力です", vbExclamation
Exit Sub
End If
For Each c In Worksheets
If c.Name = NewSheetName Then
MatchFLG = True
MsgBox ("既に、同名のシートがあり再度入力し直して下さい。"), vbExclamation
Exit For
End If
Next
Loop Until MatchFLG = False
Sheets("元本").Copy After:=Sheets("元本")
With ActiveSheet
.Name = NewSheetName
With .Range("A1")
.NumberFormatLocal = "0000"
.Value = NewSheetName
End With
.OLEObjects("CommandButton1").Delete
.Range("A2").Select
End With
Sheets("元本").Activate
Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRange As Range

Set myRange = Intersect(Target, Range("K3:S32"))
If Not myRange Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case "○"
Target.Value = "△"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

回答No.1

DreamyCat · ベストアンサー

12月の月例更新ファイルの適用でActiveXコントロールが機能しなくなりました。
セキュリティ強化の一環なのですが困ったものです。
　このフォルダーの中の該当ファイルを削除すればなおりますが、
今までここを削除したことがなければついでに中身を全部削除するとPCの動作が改善します。
C:\Users\実\AppData\Local\Temp

　ネット検索すればたくさんの情報がでているので、気に入った方法を選んでもいいです。

お礼

ありがとうございました。
temp のところは何も入っていませんでした。

引き続きご指導いただきたいのですがお願いします。

補足

早速のご指導有難うございます。
御指導の下記ですが、
C:\Users\実\AppData\Local\Temp

エキスプローラ―で
C:\Users\実　までは解りましたが
\AppData\Local\Temp　の部分が見当たりません。

私の探し方が悪いのでしょうか。
念のためにですが　WINDOWS7でありますでしょうか。
再度ご指導いただけるとうれしいです。　よろしくお願いします。

調べてみましたらこのサイトのこと思いますが

http://www.microsofttranslator.com/BV.aspx?ref=IE8Activity&a=http%3A%2F%2Fexcelmatters.com%2F2014%2F12%2F10%2Foffice-update-breaks-activex-controls%2F

回答No.2

tamao-chi

AppDataは隠しフォルダです。
http://support.microsoft.com/kb/2453311/ja#windows7

お礼

ありがとうございました。

これからに大変役立ちます。

大変恐縮ですがこの場を貸してください。
DreamyCatさんの回答が参考になり又他の人大変困っている方もあると思います。

とりあえず解決しました。
マイクロソフト社が修正プログラムを出すまでの対応です。

「KB2553154」をアンインストールするといいみたいです。
※アンインストールは自己責任で御願いします。

tamao chiさん　ここをお借りして申し訳ありませんでした。