Persönliche Arbeitsmappe Warnhinweis unterdrücken
30.07.2024 08:50:11
Carl
Ich habe ein Makro geschrieben, dass SAP Transaktionen ausführt. Leider werden die Excel Dateien in einer neuen Instanz geöffnet. Dadurch ploppt die Hinweismeldung auf, dass die Arbeittsmappe Personal.xlsb durch einen anderen Benutzer gesperrt ist und ich die Datei entweder schreibgeschützt geöffnet werden kann, oder ich benachrichtigt werden kann. Wie kann ich das unterbinden? Ich habe in DieseArbeitsmappe den folgenden Code eingefügt, der aber nicht funktioniert, bzw. nicht das gewünschte Ergebnis liefert. Vielen Dank im Voraus.
Sub Workbook_Open1()
Application.DisplayAlerts = False
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks.Open(Filename:=ThisWorkbook.FullName, ReadOnly:=True)
On Error GoTo 0
Application.DisplayAlerts = True
End Sub
Anzeige