Von |
MarkusSch |
Am |
12. August 2008 um 07:14:30 |
Frage |
Hallo hätte zu folögendem Code eine frage:Application.Workbooks.Open "F:\group\OFPUB\Qualität\OFW1\" & Jahr & "\" & Monat & "\" & Tag & ".xls", Name3 = ActiveWorkbook.Name If Workbooks(Name3).ReadOnly = True Then GoTo neustart End If in diesem öffne ich eine Datei. Wenn diese Schreibgeschützt ist wird ein neustart angestossen.
Problem: wenn die Datei wieder verfügbar ist wird eine NAchricht ausgegeben und die laufenden Markos gestoppt.
Kann mann diese Nachricht unterdrücken?
Gruß Markus |
|