Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

VBA"Workbook_BeforeSaveRoutine" Bitte mal anschaun

VBA"Workbook_BeforeSaveRoutine" Bitte mal anschaun
30.01.2006 12:38:37
MUC
Was ist an folgender "Workbook_BeforeSave-Routine" falsch?
nach dem Klicken auf "OK" in der MsgBox soll soll nichts weiter passieren. Die datei darf nur nach schliessen und speichern ja oder nein verlassen werden.
derzeit wird zwar die MsgBox angezeigt. nach klicken von ok, kann die datei trotzdem gespeichert werden.
_____________________________________________________________________________

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim objsh As Worksheet
Dim i As Byte
If SaveAsUI Then
MsgBox "ACHTUNG:  Diese Arbeitsmappe darf nicht an einem anderen Ort gespeichert werden."
Else
With Application
End With
Tabelle4.Visible = xlSheetVisible
For Each objsh In Worksheets
If Not objsh Is Tabelle4 Then _
objsh.Visible = xlSheetVeryHidden
Next
ThisWorkbook.Save
For i = 1 To Sheets.Count
If Sheets(i).Name <> "schlusstabelle" Then _
Sheets(i).Visible = xlVeryHidden
Next
With Application
End With
ThisWorkbook.Saved = True
End If
End Sub

_____________________________________________________________________________

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

Betreff
Datum
Anwender
Anzeige
AW: VBA"Workbook_BeforeSaveRoutine" Bitte mal anschaun
30.01.2006 12:49:43
volker
hallo,
in deinem code vermisse ich cancel = true
damit brichst du die vba save abläufe ab
also nach dem zeigen der msgbox machst du cancel true
gruß volker
AW: VBA"Workbook_BeforeSaveRoutine" Bitte mal anschaun
30.01.2006 21:07:58
MUC
vielen dank, klappt.
gruss
Marco
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige