Word VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

256 / 886

←次へ　｜　前へ→


	【646】Re:LAN内で誰かがファイルを開いていたら開かない

りる - 09/7/25(土) 17:30 -


	引用なし

	パスワード

れおパパさん、こんにちは。

>ワードファイルにパスワードを設定するプログラムを作成中ですが
>誰かがLAN内で同じファイルを開くときに、「使用中のファイル」のメッセージがでますが、このメッセージがでたときはファイルを開かせないか、一度読み取りで開くなりメッセージを出さないようにすることはできるのでしょうか？
サポートにある、ファイルが使用中かどうかをチェックする簡単な関数のサンプルコードです。
htt　p://support.microsoft.com/kb/209189/ja
かなりあやしい日本語ですが（笑）、メッセージボックスを表示する部分を除いてほぼそのまま転載してあります。

パスワードを設定しようとしているならば、開かないほうがよさそうですよね。
Sub Test()
　 Dim Ifile As String
　
　 Ifile = "d:\TEST\TEST.doc"
　 '
　 If FileLocked(Ifile) = True Then
　　　Debug.Print "×", Ifile, Time
　 Else
　　　'正常な処理
　　　Debug.Print "○", Ifile, Now
　　　Application.Documents.Open Ifile
　 End If
End Sub
'//////////////////////////////////////////////////
Function FileLocked(strFileName As String) As Boolean
　 On Error Resume Next
　 ' If the file is already opened by another process,
　 ' and the specified type of access is not allowed,
　 ' the Open operation fails and an error occurs.
　 Open strFileName For Binary Access Read Write Lock Read Write As #1
　 Close #1
　 ' If an error occurs, the document is currently open.
　 If Err.Number <> 0 Then
　　　FileLocked = True
　　　Err.Clear
　 End If
End Function

Debug.Printでイミディエイトウィンドウに処理結果を記録しています。

1,136 hits

▼

【645】LAN内で誰かがファイルを開いていたら開かない れおパパ 09/7/23(木) 22:47