Eine Datei darf nur von einem
bestimmten Benutzer gespeichert werden.
Dies ist kein besonders guter Schutz,
ist aber bei aktivierten Makros und dem richtigen
Benutzernamen in den
Optionen einsetzbar:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
If Application.UserName <> "Rainer Zufall" Then
Cancel = True
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
|