Excel VBA質問箱 IV

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

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


1637 / 13646 ツリー ←次へ | 前へ→

【72961】セルの保護解除 komatteruhito 12/10/17(水) 19:19 質問[未読]
【72964】Re:セルの保護解除 ウッシ 12/10/18(木) 10:19 回答[未読]
【72967】Re:セルの保護解除 komatteruhito 12/10/18(木) 11:39 発言[未読]
【72968】Re:セルの保護解除 ウッシ 12/10/18(木) 12:23 回答[未読]
【72969】Re:セルの保護解除 komatteruhito 12/10/18(木) 12:32 お礼[未読]

【72961】セルの保護解除
質問  komatteruhito  - 12/10/17(水) 19:19 -

引用なし
パスワード
   ワークシートを保護しセルの一部を保護解除しようと次のようなコードを書きましたが「実行時エラー1004!アプリケーション定義またはオブジェクトのエラーです」とメッセージがでて困ってます。 解決方法のご教示お願いします。

 Private Public Worksbook_Open()  
  dim Keisan as worksheet      
  set Keisan =worksheets("Keisan")        
  Keisan.Range("e4:e15").Locked=False       
  Keisan.Protect Password:=12345
End Sub

【72964】Re:セルの保護解除
回答  ウッシ  - 12/10/18(木) 10:19 -

引用なし
パスワード
   こんにちは

「実行時エラー1004!」ですか?

Private Public 自体がエラーになりそうですけど。

Private Sub Workbook_Open() に直して下さい。
このプロシージャはブックモジュールにセットして有りますよね?


▼komatteruhito さん:
>ワークシートを保護しセルの一部を保護解除しようと次のようなコードを書きましたが「実行時エラー1004!アプリケーション定義またはオブジェクトのエラーです」とメッセージがでて困ってます。 解決方法のご教示お願いします。
>
> Private Public Worksbook_Open()  
>  dim Keisan as worksheet      
>  set Keisan =worksheets("Keisan")        
>  Keisan.Range("e4:e15").Locked=False       
>  Keisan.Protect Password:=12345
> End Sub

【72967】Re:セルの保護解除
発言  komatteruhito  - 12/10/18(木) 11:39 -

引用なし
パスワード
   ▼ウッシ さん:早速の回答ありがとうございます。 Private Publicは投稿時の私のタイピングミスでした。このプロシージャはブックモジュールにセットして有ります。なおセルE4はセル結合していますがこれがあるいはエラーに影響してますでしょうか? ▼ウッシ さん: >こんにちは > >「実行時エラー1004!」ですか? > >Private Public 自体がエラーになりそうですけど。 > >Private Sub Workbook_Open() に直して下さい。 >このプロシージャはブックモジュールにセットして有りますよね? > > >▼komatteruhito さん: >>ワークシートを保護しセルの一部を保護解除しようと次のようなコードを書きましたが「実行時エラー1004!アプリケーション定義またはオブジェクトのエラーです」とメッセージがでて困ってます。 解決方法のご教示お願いします。 >> >> Private Public Worksbook_Open()   >>  dim Keisan as worksheet       >>  set Keisan =worksheets("Keisan")         >>  Keisan.Range("e4:e15").Locked=False        >>  Keisan.Protect Password:=12345 >> End Sub

【72968】Re:セルの保護解除
回答  ウッシ  - 12/10/18(木) 12:23 -

引用なし
パスワード
   こんにちは

コードの場所とか問題なければ、

Private Sub Workbook_Open()
  Dim Keisan As Worksheet
  Set Keisan = Worksheets("Keisan")
  With Keisan
    .Unprotect 12345
    .Range("e4:e15").Locked = False
    .Protect Password:=12345
  End With
End Sub

とうい事でしょうか?

【72969】Re:セルの保護解除
お礼  komatteruhito  - 12/10/18(木) 12:32 -

引用なし
パスワード
   大変ありがとうございました。今後ともよろしくお願いします。 取り急ぎ御礼まで ▼ウッシ さん: >こんにちは > >コードの場所とか問題なければ、 > >Private Sub Workbook_Open() >  Dim Keisan As Worksheet >  Set Keisan = Worksheets("Keisan") >  With Keisan >    .Unprotect 12345 >    .Range("e4:e15").Locked = False >    .Protect Password:=12345 >  End With >End Sub > >とうい事でしょうか?

1637 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free