VBA"Workbook_BeforeSaveRoutine" Bitte mal anschaun
30.01.2006 12:38:37
MUC
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
_____________________________________________________________________________