VBA Speichern unter
14.08.2015 08:25:13
mic13
Ich habe eine VBA zusammengestellt, welches u.a. beim Speichern eine Messagebox anzeigt. Nun möchte ich aber, dass wenn man das Dokument "Speichern unter" anwählt, dann keine Messagebox angezeigt wird. Leider habe ich keine Ahnung, wie ich das abgrenzen kann.
Ich hoffe es weiss jemand Rat :)
Liebe Grüsse,
mic13
Hier der Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.Sheets("Grunddaten").Activate 'Wenn man speichern anklickt, wechselt es auf das _
Tabellenblatt 1 (Grunddaten)
MsgBox "Das Dokument wurde gespeichert!" & vbCrLf & "" & vbCrLf & "Du kannst die Datei nun _
schliessen." & vbCrLf & "" & vbCrLf & "Ich wünsche dir einen schönen Tag :) LG, Claudia" 'Text in der Message-Box
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="1234"
Next
End Sub
Anzeige