Hallo Forum
Meine Datei darf von den Usern nicht unter einem neuen Namen gespeichert werden, d.h. "speichern unter" ist mit folgendem Code, den ich im Forum gefunden habe, unterbunden:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName "User1" Then
If SaveAsUI Then
MsgBox ("Die Datei darf nicht unter einem anderen Namen gespeichert werden"), vbOKOnly
Cancel = True
Application.SendKeys ("{ESC}"), True
End If
Else
End If
Nun möchte ich auch verhindern, dass die Datei unter einem neuen Namen gespeichert wird, wenn sie schreibgeschützt geöffnet wird.
Hat jemand eine Idee, wie man das anstellt? Im Archiv hab ich dazu nichts gefunden.
Danke für jeden Hinweis.
Gruss
Ben