ExcelVBAの事でお尋ねします。今、エクセルで時間外勤務命令表を作

質問

ExcelVBAの事でお尋ねします。今、エクセルで時間外勤務命令表を作っています。一応ロジックも出来がりエクセル表としてはほぼ完成しています。そこで、問題が何点か出てきました。
1.配布の問題　　これは各部署ごとにファイルサーバに共通フォルダを設けて各人のエクセルファイルをコピーして置いておこうと思い　　　　　　　　　ます。
2.最終集計　　総務で集計して給与ソフトに入力するのですが、これは別の一覧表をエクセルで作り各人の合計をリンクさせて行けば解
　　　　　　　決すると思います。
3.承認機能と改ざん防止機能　　ここがネックになっています。上司の承認をどうするか？承認後の改ざん防止をどうするか？です。
　　　　　　　　　　　　　　　具体的に言うと承認は電子印とかを使って押印することは可能でしょう。しかし、その後、今月は少な
　　　　　　　　　　　　　　　かったと言って時間数を増やされることも考えられます。そこで、承認後は改ざん出来ない様にしたい
　　　　　　　　　　　　　　　のです。

考えているのは、このエクセル表は1か月のカレンダー形式になっていて、上から1日2日と入りその横に曜日がはいるようになっています。その行の後ろにボタンを付けて上司がそのボタンを押すとその行のセルの色が変わって保護されるようにしたいと思っています。また、訂正の場合はパスワードを入力してボタンを押すと一部（無理なら全部）のセルの保護が解除されるようにしたいのです。
シートの保護ならわかるのですが、そういう範囲指定した保護やそこの保護の解除などはVBAで可能なのでしょうか？また、その場合どのように表記すればいいのでしょうか？よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

質問に矛盾があるので基本的なところのみ
矛盾点は改ざんできないようにとあるのに
修正できるようにとあります
ここでの改ざんと修正の操作は同じでは？
それとも、担当者以外は改ざんで、担当者は修正と言う意味？

'選択したセルのみのロック設定、解除ができるようにしています
Sub シート保護設定()
ActiveSheet.Protect Password:=1234
End Sub
Sub シート保護解除()
ActiveSheet.Unprotect Password:=1234
End Sub
Sub セルのロック解除()
If ActiveSheet.Protect Then
シート保護解除
Selection.Locked = False
Selection.Interior.ColorIndex = 0
シート保護設定
Else
Selection.Locked = False
Selection.Interior.ColorIndex = 0
End If
End Sub
Sub セルのロック設定()
If ActiveSheet.Protect Then
シート保護解除
Selection.Locked = True
Selection.Interior.ColorIndex = 3
シート保護設定
Else
Selection.Locked = True
Selection.Interior.ColorIndex = 3
End If
End Sub

参考まで

お礼

ありがとうございました。

参考になりました。実際にやってみようと思います。

補足

ちょっと誤解を生じました。

改ざんは各自が勝手に変えてしまうことです。だから保護が必要です。

修正は間違って悪意なく入力してしまった場合です。これは上司の承諾を

得て上司に保護を解除してもらい訂正すると言う意味です。悪意があるかないかの違い

と考えて下さい。

ありがとうございます。