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
VG und vielen Dank im Voraus, Tim