"Datei speichern unter" verhindern
01.02.2006 17:54:21
Torsten
mit dem folgenden Code konnte ich unter Excel2000 das "Speichern unter" verhindern:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Username As Integer
If Application.Username <> "ABC" Then
If SaveAsUI Then
MsgBox ("Die gewählte Funktion ist in dieser Datei nicht möglich!"), vbOKOnly
Cancel = True
End If
Else
End If
End Sub
Unter Excel2003 kommt zwar die MsgBox, aber dann öffnet sich doch das Fenster zum "Speichern unter". Weiß jemand Rat?
Vielen Dank im voraus.
Gruß
Torsten