schreibschutz
11.05.2019 18:21:04
Thomas
ich kann mit dem unten stehenden vbs Skript eine Exceldatei in einer neuen Instanz öffnen.
ich möchte diese Exceldatei gern schreibgeschützt öffnen.
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible =true
strCurrentFolderPath = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))
objExcel.Workbooks.Open(strCurrentFolderPath & "\forum1.xlsm")
Set objExcel = Nothing
Weis jemand wie ich das anstellen könnte?
mfg thomas