Ein Makro soll eine Datei beim Schließen automatisch an einer bestimmten Stelle unter einem festen Namen speichern. Das Makro hierzu ist bereits fertig und funktioniert auch.
Nun verschicke ich die Datei an jemanden, der keinen Zugriff auf das Laufwerk hat, via EMAIL. Dieser wird beim Schließen der Datei mangels Zugriff eine Fehlermeldung erhalten.
Daher möchte ich in Abhängigkeit des Nutzers das Makro zur automatischen Speicherung ausführen lassen oder auch nicht. So sieht es bislang aus:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
nutzer = Application.UserName
Monat = Month(Date)
Pfad = "G:\Tuser15\Acontos\" & Monat
Datum = Date
Dateiname = "Acontoliste vom " & Datum & ".xls"
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=Dateiname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Immer, wenn der Inhalt der Variablen 'Nutzer' ungleich "Marc Oliver Pohl" ist, sollen die nachfolgenden Anweisungen nicht ausgeführt werden. Wie macht man das?
Danke!
OP