speichern nein speichern unter ja
lisa
Ich habe eine Mappe die nur von mir gespeichert werden darf, alle anderen User dürfen sie nicht speichern lediglich speichern unter sollte für alle anderen zulässig sein!
Hat jemand eine Idee, wie ich hierzu das Makro ändern kann?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Environ("Username") "l-n" Then 'Windows-Username
Cancel = True
MsgBox "Speichern nicht erlaubt"
End If
End Sub
Gruß Lisa
Anzeige