VBA Speichern unter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: VBA Speichern unter
von: mic13
Geschrieben am: 14.08.2015 08:25:13

Hallo zusammen
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

Bild

Betrifft: AW: VBA Speichern unter
von: Nepumuk
Geschrieben am: 14.08.2015 08:56:24
Hallo,
so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
    Dim i As Integer
    
    If Not SaveAsUI Then
        
        'Wenn man speichern anklickt, wechselt es auf das Tabellenblatt 1 (Grunddaten)
        Me.Worksheets("Grunddaten").Activate
        
        'Text in der Message-Box
        MsgBox "Das Dokument wurde gespeichert!" & vbLf & "" & vbLf & "Du kannst die Datei nun " & _
            "schliessen." & vbLf & "" & vbLf & "Ich wünsche dir einen schönen Tag :) LG, Claudia"
        
        For i = 1 To Sheets.Count
            Me.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
        Next
    End If
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: VBA Speichern unter
von: mic13
Geschrieben am: 14.08.2015 14:21:52
Hallo Nepumuk
Super vielen lieben Dank! Hat geklappt :D
Schönes Wochenende

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Speichern unter"