[[20160425073248]] 『マクロが動かない』(ひで) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロが動かない』(ひで)

以下のような記録マクロを作成し実行したのですが,シート保護をかけるとマクロが動きません。C5~L44はセルロックを解除しています。
保護をかけないと動くのですが,理由がわかりません
よろしくお願いします。
***********************************
Sub ●などを直すマクロ()
'
' ●などを直すマクロ Macro
'

    Range("C5:L44").Select
    ActiveWindow.SmallScroll Down:=-36
    Selection.Replace What:="追○", Replacement:="○", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="追△", Replacement:="△", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="●", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="▲", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

< 使用 Excel:Excel2013、使用 OS:Windows8 >


こんにちは

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

           , AllowFormattingRows:=True, UserInterfaceOnly:=True

UserInterfaceOnly:=Trueでマクロでの変更を有効にしてみて下さい。

ActiveSheet以下の他の部分の指定は適宜変更して下さい。

(ウッシ) 2016/04/25(月) 07:57


ウッシさん,早速ありがとうございます。

上記を最初に記入すればよいのでしょうか?

初心者なのでよろしくお願いします。ひで

(ひで) 2016/04/25(月) 08:11


こんにちは

検索する癖を付けた方がいいですよ。
「UserInterfaceOnly:=True」で検索するだけでも色々なコードが見られると思います。

対象シートをアクティブにして保護を外しておいて、イミディエイトウィンドウで

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

           , AllowFormattingRows:=True, UserInterfaceOnly:=True

を実行するとか、

Sub test()

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
           , AllowFormattingRows:=True, UserInterfaceOnly:=True
End Sub

として実行してもいいです。

(ウッシ) 2016/04/25(月) 08:28


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.