2016-10-06 1 views
0

Excelファイルを作成し、VBScriptを使用して読み取り専用でファイルを保存しています。ファイルを手動で開くと、読み取り専用プロンプトが表示されます。私はその読み込み専用のプロンプトを必要としません。ユーザーがファイルを手動で開くときはいつでも、読み込み専用としてファイルを開きたいと思っています。既定では、Excelは読み取り専用でプロンプトを表示しないで開く必要があります

+2

ようこそStackOverflow!しばらくして[良い質問をする](http://stackoverflow.com/help/how-to-ask)を読んだ後、修正するのに役立つコードを投稿してください。 – Tim

答えて

0

これを試してみてください:

excelfile = "Filename of your new excel goes here" 'Example: C:\Documents\TestExcel.xlsx" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objExcel = CreateObject("Excel.Application") 
Set book = objExcel.Workbooks.Add() 
book.SaveAs(excelfile) 
book.Close 
objExcel.Quit 

Set xf = objFSO.GetFile(excelfile) 
If Not xf.Attributes AND 1 Then xf.Attributes = xf.Attributes + 1 
MsgBox "Task Complete", vbOKOnly, "Create Read Only Excel" 

のみ任意のプロンプトなしで読んでそれが直接Excelファイルを開きます。

関連する問題