Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5770 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48990】一部セルのみロックをかけたいです。 もりです。 07/5/19(土) 18:32 質問[未読]
【48993】Re:一部セルのみロックをかけたいです。 マクロマン 07/5/19(土) 19:52 発言[未読]
【48994】Re:一部セルのみロックをかけたいです。 もり 07/5/19(土) 20:21 質問[未読]
【48995】Re:一部セルのみロックをかけたいです。 マクロマン 07/5/19(土) 20:55 発言[未読]
【48996】Re:一部セルのみロックをかけたいです。 もり 07/5/19(土) 21:03 質問[未読]
【48997】Re:一部セルのみロックをかけたいです。 マクロマン 07/5/19(土) 21:13 発言[未読]
【48998】Re:一部セルのみロックをかけたいです。 もり 07/5/19(土) 22:06 発言[未読]
【48999】Re:一部セルのみロックをかけたいです。 Kein 07/5/19(土) 22:57 発言[未読]
【49000】Re:一部セルのみロックをかけたいです。 マクロマン 07/5/20(日) 6:56 発言[未読]
【49065】Re:一部セルのみロックをかけたいです。 syugyoutyu 07/5/22(火) 10:57 発言[未読]
【49082】Re:一部セルのみロックをかけたいです。 Kein 07/5/22(火) 16:32 回答[未読]
【49085】Re:一部セルのみロックをかけたいです。 Kein 07/5/22(火) 17:30 発言[未読]
【49112】Re:一部セルのみロックをかけたいです。 syugyoutyu 07/5/23(水) 14:53 お礼[未読]
【49118】Re:一部セルのみロックをかけたいです。 もり 07/5/23(水) 23:25 お礼[未読]
【48990】一部セルのみロックをかけたいです。
質問  もりです。  - 07/5/19(土) 18:32 -
引用なし
パスワード
   お世話になっております。
VBAで開発中です。
作成したEXCELファイルの一部分セルのみロックかけて、修正できないように
したいですが、やり方法が分からないですが、
教えて頂けませんか？
宜しくお願い致します。
【48993】Re:一部セルのみロックをかけたいです。
発言  マクロマン  - 07/5/19(土) 19:52 -
引用なし
パスワード
   手作業では出来ますか？
【48994】Re:一部セルのみロックをかけたいです。
質問  もり  - 07/5/19(土) 20:21 -
引用なし
パスワード
   ▼マクロマン さん：


>手作業では出来ますか？

データベースからデータ取得し、EXCELファイルに出力する処理です。
お客様は作成後のEXCELファイルを手作業で修正する場合はあります。

修正時、確定処理後のデータ（確定ステータス＝１）であれば、
金額、率などある項目は修正不可としたいです。

ですので、手作業で設定することではなく、作表される時
確定ステータスをみて、セルをロックかけると考えっております。

宜しくお願い致します。
【48995】Re:一部セルのみロックをかけたいです。
発言  マクロマン  - 07/5/19(土) 20:55 -
引用なし
パスワード
   いや、ではなくて・・・。
手作業で
>ファイルの一部分セルのみロックかけて、修正できないように
という作業はしたことがありますか？
ということです。
やったことがあるのなら、マクロの自動記録である程度のコードが
得られます。

この作業の手順自体が分からないのか、マクロ化する方法が分から
ないのか、が回答者には見えません。
【48996】Re:一部セルのみロックをかけたいです。
質問  もり  - 07/5/19(土) 21:03 -
引用なし
パスワード
   >この作業の手順自体が分からないのか、マクロ化する方法が分から
>ないのか、が回答者には見えません。

申し訳御座いません。

マクロ化する方法が分からないですが、
宜しくお願い致します。
【48997】Re:一部セルのみロックをかけたいです。
発言  マクロマン  - 07/5/19(土) 21:13 -
引用なし
パスワード
   再掲です。

>やったことがあるのなら、マクロの自動記録である程度のコードが
>得られます。
【48998】Re:一部セルのみロックをかけたいです。
発言  もり  - 07/5/19(土) 22:06 -
引用なし
パスワード
   ▼マクロマン さん：
>再掲です。
>
>>やったことがあるのなら、マクロの自動記録である程度のコードが
>>得られます。

やったことがありますが、
一部セルのみのかけ方法が分かりません。

宜しくお願い致します。
【48999】Re:一部セルのみロックをかけたいです。
発言  Kein  - 07/5/19(土) 22:57 -
引用なし
パスワード
   1 シートの全セルを選択。
2 メニューの書式で"セル"を選び、保護タブでロックのチェックマークを外す。
3 ロックしたいセル範囲を選択、再び書式メニューでロックのチェックを付ける。
4 シートを保護する。

という手順です。
【49000】Re:一部セルのみロックをかけたいです。
発言  マクロマン  - 07/5/20(日) 6:56 -
引用なし
パスワード
   mougで解決済みのようです。
【49065】Re:一部セルのみロックをかけたいです。
発言  syugyoutyu  - 07/5/22(火) 10:57 -
引用なし
パスワード
   修行中のものです。勉強がてら作ってみましたがパスワード表示も出てこないし、
なんか不細工です。

Sub Macro6()
If Sheets("Sheet2").Protect = True Then
　　Sheets("Sheet2").Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If

If Cells.Locked = True Then
Cells.Locked = False
End If

If Range("E15:G20").Locked = True Then
　　Range("E15:G20").Locked = False
End If

　　Range("E15:G20").Locked = True
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

これでよいのでしょうか？
【49082】Re:一部セルのみロックをかけたいです。
回答  Kein  - 07/5/22(火) 16:32 -
引用なし
パスワード
   Sub Macro6()
　 With Sheets("Sheet2")
　　　If .Protect = False Then
　　　　 .Cells.Locked = False
　　　　 .Range("E15:G20").Locked = True
　　　　 .Protect
　　　End If
　 End With
End Sub
【49085】Re:一部セルのみロックをかけたいです。
発言  Kein  - 07/5/22(火) 17:30 -
引用なし
パスワード
   間違えました、すいません。
>If .Protect = False Then
↓

If .ProtectContents = False Then
【49112】Re:一部セルのみロックをかけたいです。
お礼  syugyoutyu  - 07/5/23(水) 14:53 -
引用なし
パスワード
   ▼Kein さん：
ありがとうございます。Keinさんのレスを基に、マクロの記録でコードを出して、セルの解除のマクロも出来ました。　これからもここで勉強します。
【49118】Re:一部セルのみロックをかけたいです。
お礼  もり  - 07/5/23(水) 23:25 -
引用なし
パスワード
   ▼Kein さん：
教えて頂きまして、有難う御座いました。

大変勉強になりました。
また宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5770 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free