Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45582 / 76807

←次へ　｜　前へ→


	【36218】シートの保護をVBAで書くと・・

- 06/3/25(土) 10:42 -


	引用なし

	パスワード

いつもお世話になっています。
昨日3枚のシートの保護をかけて別ファイルにそのシートを
コピーし保存するマクロを書いて実行しました。
2枚のシートに保護はかかったのですが、3枚目は
保護されませんでした。
また、ロック解除されているセル以外は、選択もできない
設定にしましたが、保存されたファイルを確認すると
選択出来てしまっています。（入力などは出来ませんが、、）
これはエクセル（2002）の仕様なのでしょうか？

お分かりになる方がいらっしゃいましたら
教えていただけると助かります。

記録マクロ---------------------------------------------------------------

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
　　ActiveSheet.EnableSelection = xlUnlockedCells
　　Sheets("Sheet2").Select
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
　　ActiveSheet.EnableSelection = xlUnlockedCells
　　Sheets("Sheet3").Select
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
　　ActiveSheet.EnableSelection = xlUnlockedCells
　　ActiveWorkbook.SaveAs Filename:= _
　　　　"C:\Documents and Settings\Owner\My Documents\test1.xls", FileFormat:= _
　　　　xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
　　　　, CreateBackup:=False

------------------------------------------------------------------

2 hits

▼

【36218】シートの保護をVBAで書くと・・ an 06/3/25(土) 10:42

≪