共有設定を他の人に変更されたくない！

質問

初めてお世話になります。
よろしくお願いいたします。

私が作った名簿を他の人も利用できるように共有してあります。
しかし、読み取り専用にしていたのにいつの間にかフルコントロールになっていて
折角入力した名簿がほとんど消されてしまいましたヽ(｀Д´)ノ

そこで、他の人には共有設定を変更できないように
したいのですが、パスワードを入れるとか
なにか方法を教えてください。
よろしくお願いいたします。

ＷＩＮ２０００　　ＯＦＦＩＣＥ　ＸＰ

回答No.3

TTak

名簿ファイルはexcelファイルでしょうか？excelファイルであれば、次のマクロMacro1でできます。
パスワードをかけるフォルダまでのパスとパスワードを適宜変更して使ってください。
なお、今パスワードをかけているファイルはすべて解除してください。

Sub Macro1()
Dim openFilePath As String
Dim passWord As Variant
Dim FSO

Set FSO = CreateObject _("Scripting.FileSystemObject")

'パスワードをかけるフォルダ（ここではマイドキュメントの例）
openFilePath = "C:\My Documents"

'パスワード（ここではaaaの例）
passWord = "aaa"

With Application
　.DisplayAlerts = False
　.ScreenUpdating = False
　With .FileSearch
　　.NewSearch
　　.LookIn = openFilePath
　　.FileType = msoFileTypeExcelWorkbooks
　　If .Execute() > 0 Then
　　　For i = 1 To .FoundFiles.Count
　　　　Workbooks.Open .FoundFiles(i)
　　　　ActiveWorkbook.SaveAs _
　　　　　Filename:=.FoundFiles(i), _
　　　　　　WriteResPassword:="passWord"
　　　　FSO.GetFile(.FoundFiles(i)).Attributes = 1
　　　　ActiveWorkbook.Close False
　　　Next i
　　End If
　End With
　.ScreenUpdating = True
　.DisplayAlerts = True
End With
Set FSO = Nothing

MsgBox "終了しました。パスワードを忘れないように注意してください。パスワードは " & passWord & " です。"
End Sub

win2000 excel2000で動作確認

なお、本来はフォルダのアクセス権限で制御することが好ましいと思われます。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=644111

回答No.2

TTak

複数の方が同じパソコンを使っているのでしたら、フォルダの共有設定でフルコントロールを解除した後、あなた以外は制限ユーザーでログオンしてもらう必要があります。ネットワークの場合も同じように、ログオンするユーザー名で制限ユーザーに振り分けておきます。
コントロールパネル＞管理ツール＞コンピュータの管理＞ローカルユーザーとグループ
で、ユーザーの権限を決めることができます。フォルダの共有設定は
フォルダ右クリック＞共有
からできたと思います。

もしこの操作が面倒でしたら、＃１の方法でフォルダ内のexcel,wordファイルに一気にパスワードを付けて保存するマクロも簡単に作れます。

お礼

TTakさん、おはようございます。
マクロを作っていただけるのでしょうか？
全部同じパスワードにしたいのです。すでに大事なファイル５つにはパスワードをつけましたが、これは解除しておかないといけませんか？よろしくお願いいたします。

回答No.1

TTak

WORD や　EXCEL　で作成されたのでしたら、保存ダイアログのツール＞全般オプションに読みとりや書き込みのパスワードを設定できます。
書き込みパスワードを設定して、読みとり専用にすると、パスワードを知らない人は閲覧のみになります。

お礼

TTakさま、早速のお返事ありがとうございました。
欲を言って申し訳ないのですが、ファイルごとではかなりたくさんのファイルがあるので大変です。
フォルダごとにそのような設定方法はないでしょうか?
引き続きよろしくお願いいたします。