Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Speichern unter
14.08.2015 08:25:13
mic13
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Speichern unter
14.08.2015 08:56:24
Nepumuk
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

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

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige