beforesave - beforeclose
28.11.2006 21:22:43
Frank
hatte mir letztens aus den Foren mein Sicherungsmakro gebastelt. bin damit aber nicht zufrieden. Normal müßte ich es in eine beforeclose Anweisung umwandeln. Aber Close und save beißen sich irgendwie.
Normal soll es so sein, dass ich meine daten immer speichern kann ohne dass sich irgendwelche tabellenblätter schliesen oder öffnen - ganz normal speichern.
Was aber verhindert werden muß ist, dass irgendein User die datei unter einen anderen namen speichert, Und zum anderen soll beim schließen nur noch tabelle2 sichtbar sein - speichern - sodas beim erneuten öffnen nur tabelle2 sichtbar ist. Die anderen werden über eine UF welche mit dem öffnen der datei angezeigt wird eingeblendet.
Kann mir jemand helfen
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim objWks As Worksheet
If SaveAsUI Then
MsgBox "Speichern unter ist nicht erlaubt"
Else
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Tabelle2.Visible = xlSheetVisible
For Each objWks In Worksheets
If Not objWks Is Tabelle2 Then _
objWks.Visible = xlSheetHidden
Next
ThisWorkbook.Save
For Each objWks In Worksheets
objWks.Visible = xlSheetVisible
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ThisWorkbook.Saved = True
End If
Cancel = True
End Sub