保護の解除・設定
いつもありがとうございます。
現在シートの保護がパスワード入りでかかっています。
マクロで保護を解除するときに、
パスワードを入力不要で解除できませんか？
また、引続きシートを保護するときに、
パスワードを入力しないで、元の、パスワードで、
保護が出来るでしょうか？
現在は、下記のようになっています。
（マクロの記録でしか作れませんので・・、）
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=24
Range("B50:X69").Select
Selection.Copy
ActiveWindow.LargeScroll Down:=-2
ActiveWindow.LargeScroll ToRight:=-3
ActiveWindow.SmallScroll Down:=-9
Range("B1").Select
ActiveSheet.Paste
Range("B2").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
以上、よろしくお願い致します。
お礼
早速の回答ありがとうございます。 ＷＭＰ8から9にしたところチェックを外すのを忘れました。