ExcelVBAで時間外勤務命令表を作成する際の問題点と解決方法

2009/12/26 23:36

このQ&Aのポイント

ExcelVBAを使用して時間外勤務命令表を作成中ですが、配布や最終集計、承認機能と改ざん防止機能に問題があります。
配布に関しては、各部署ごとに共通フォルダを設けてエクセルファイルをコピーする方法が考えられます。
最終集計は、別の一覧表を作成して各人の合計をリンクさせることで解決できます。

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

ExcelVBAの事でお尋ねします。今、エクセルで時間外勤務命令表を作っています。一応ロジックも出来がりエクセル表としてはほぼ完成しています。そこで、問題が何点か出てきました。 1.配布の問題　　これは各部署ごとにファイルサーバに共通フォルダを設けて各人のエクセルファイルをコピーして置いておこうと思い　　　　　　　　　ます。 2.最終集計　　総務で集計して給与ソフトに入力するのですが、これは別の一覧表をエクセルで作り各人の合計をリンクさせて行けば解　　　　　　　決すると思います。 3.承認機能と改ざん防止機能　　ここがネックになっています。上司の承認をどうするか？承認後の改ざん防止をどうするか？です。　　　　　　　　　　　　　　　具体的に言うと承認は電子印とかを使って押印することは可能でしょう。しかし、その後、今月は少な　　　　　　　　　　　　　　　かったと言って時間数を増やされることも考えられます。そこで、承認後は改ざん出来ない様にしたい　　　　　　　　　　　　　　　のです。考えているのは、このエクセル表は1か月のカレンダー形式になっていて、上から1日2日と入りその横に曜日がはいるようになっています。その行の後ろにボタンを付けて上司がそのボタンを押すとその行のセルの色が変わって保護されるようにしたいと思っています。また、訂正の場合はパスワードを入力してボタンを押すと一部（無理なら全部）のセルの保護が解除されるようにしたいのです。シートの保護ならわかるのですが、そういう範囲指定した保護やそこの保護の解除などはVBAで可能なのでしょうか？また、その場合どのように表記すればいいのでしょうか？よろしくお願いします。

aki567
お礼率72% (480/660)

その他（プログラミング・開発）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hige_082
ベストアンサー率50% (379/747)

2009/12/27 03:06 回答No.1

質問に矛盾があるので基本的なところのみ矛盾点は改ざんできないようにとあるのに修正できるようにとありますここでの改ざんと修正の操作は同じでは？それとも、担当者以外は改ざんで、担当者は修正と言う意味？ '選択したセルのみのロック設定、解除ができるようにしています 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 参考まで

質問者