ＥＸＣＥＬで困っています

質問

Excelに関して質問させて頂きます。

オフィスのパソコンでデータ管理しているExcelのファイルを、作業現場のパソコンから閲覧できるようにするよう指示を受けました。

それ自体はマイネットワークからショートカットを作成して簡単に出来たのですが、作業現場で開いた作業者が、自由に上書き保存出来てしまいます。

そこで、ファイルに書き込みパスワードを設定し、作業現場などの管理者以外の者は読み取り専用で開いてもらうにしたのですが、問題が生じました。

ファイルに組んであるマクロが実行出来なくなってしまうのです。

マクロは簡単に言うと、以下の内容です。

１、実行すると、指定したセルに入力されている日付を、自動的にファイル名として指定されたフォルダに保存。

２、データ内容を一週間分ズラして書き換え。

３、書き換えたシートを印刷。

４、書き換えた内容で、元のファイル名に上書き保存。

１～３までは実行されるのですが、４番の上書き保存でエラーが出てしまうのです。

ちなみに、マクロは私が作成したものではなく、作った人は既に退社されて連絡もつきません。
社員の中でマクロが分かる人もいません。

インターネットで調べても、専門用語とかチンプンカンプンで、何がなんだか分からず、途方に暮れています・・・。

Ａ　）　書き込みパスワードが設定された状態で、今までのようにマクロで１～４が実行できる。

Ｂ　）　今までどおり使えるように書き込みパスワードの設定を諦め、管理者以外は強制的に読み取り専用で開くようにする。

結論としては、ＡかＢのどちらかが出来れば解決するのですが、そのどちらも出来ずに困っています。

作業現場のパソコンに作ったショートカットの、プロパティの属性で読み取り専用にチェックを入れましたが、実際に読み取り専用で開いてくれません。

どなたか、助けて頂けないでしょうか。　宜しくお願い致します。

※実際に作ってあるマクロは以下のような感じになっていました。
　　　↓

Sub 自動更新()
'
' マクロ記録日 : 2008/2/10

Dim fileName As String
fileName = Format(Range("AG19"), "yyyy-mm-dd")

If MsgBox(fileName & " で保存しますか？", vbYesNo) <> vbYes Then Exit Sub

Application.DisplayAlerts = False

ThisWorkbook.SaveAs "Y:\1 ： 文書管理\３ ： DCO-H\DCO-H-4 ：記録\DCO-H-4-02 ： 過去の記録\AA983\" & fileName

Application.DisplayAlerts = True

ActiveSheet.Unprotect
Range("AG19:AR22").Select
Selection.UnMerge

Range("AG41:AR44").Select
Selection.UnMerge

Range("AG41").Select
Selection.Copy

Range("AG19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Range("AG19:AR22").Select
Selection.Merge

Range("AG41:AR44").Select
Selection.Merge

Range("AG47:DL61").Select
Selection.Copy

Range("AG25:DL39").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

Range("AG69:DL83").Select
Application.CutCopyMode = False
Selection.Copy

Range("AG47:DL61").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

Range("AG91:DL105").Select
Application.CutCopyMode = False
Selection.Copy

Range("AG69:DL83").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

Range("AG91:DL105").Select
Selection.ClearContents

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs fileName:= _
　　　　"Y:\1 ： 文書管理\３ ： DCO-H\DCO-H-4 ：記録\DCO-H-4-01 ： 最新の記録\AA983\ .xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Application.DisplayAlerts = True

Range("AG25").Select

End Sub

回答No.3

chayamati

Sheetの保護をかけたらどうでしょう
これはパスワード設定もできますので、管理者だけにパスワードを通知して置く

セルの書式の中に「保護」のタグはロックとなっています
この設定はSheetの保護をかけると有効になります。

現場で入力してほしいセルのロックを外して現場に提供します。

お礼

無事に解決しました。
回答ありがとうございました。

回答No.2

noname#252332

ファイルをパスワードで保護するのではなく、ネットワークの共有設定で書き込みを禁止してはいかがですか。

お礼

無事に解決しました。
回答ありがとうございました。

回答No.1

lv4u

質問者さんのやりたいことは、エクセルではできないでしょう。
そういう使い方は、データベースとグループウエア等の組み合わせなどで実現します。
最近なら、クラウドアプリを使うかもしれません。

「自転車しかないが、１０人を一度に運んでくれ」という要求みたいなものです。リヤカー等でなんとか数１０ｍは移動できても、実用にはなりませんよね？

お礼

無事に解決しました。
回答ありがとうございました。