Datei als Anhang versenden (neu)
Tim
dank der Hilfe hier im Forum habe ich folgenden Code erstellt.
Das klappt soweit sehr gut, so dass nun nur noch ein letztes Problem besteht:
Wie kann ich verhindern, dass man innerhalb der Datei auf Senden klicken und damit die Datei automatisch einer Email anhängen kann ?
Bei mir heißt diese Funktion "Save & Send" bzw. "Speichern und Senden".
Falls es keine Möglichkeit gibt, das direkt abzufangen, hat vielleicht jemand eine Idee für einen Umweg ?
Das wäre eine riesen Hilfe !
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not Sheets(1).Range("F1204") = "Administrator" Then
MsgBox "Confidential data - Saving is only allowed for administrators !", _
vbCritical, "Deactivated Feature"
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not Sheets(1).Range("F1204") = "Administrator" Then
MsgBox "Confidential data - Printing is only allowed for administrators !", _
vbCritical, "Deactivated Feature"
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Sheets(1).Range("F1204") = "Administrator" Then
ThisWorkbook.Saved = True
End If
End Sub
Anzeige