テキストファイルを他の人が読書きできないようロックし開く : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





ExcelシートのVBAコード

実行画面
Excel実行画面

・Closeボタン
Private Sub CommandButton2_Click()
    Close fno
End Sub

スポンサーリンク






・Lock Read (他からのReadはできないがWriteはOK。 )
Private Sub ExTextRead()
    fno = FreeFile
    'Lock Read で開く
    Open "c:\test.txt" For Input Lock Read As fno
End Sub

メモ帳で開くと
「プロセスはファイルにアクセスできません。別のプロセスが使用中です。」とメッセージ
ファイルが開かない


・Lock Write (Readは許可するがWriteはできない)
Private Sub ExTextRead()
    fno = FreeFile
    'Lock Write で開く
    Open "c:\test.txt" For Input Lock Write As fno
End Sub

メモ帳で変更し保存しようとすると
「パスおよびファイルが正しいか確認してください。」とメッセージ

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved