Speicheroptionen unterdrücken bzw. erlauben
04.09.2019 09:10:59
Chris
ich stehe vor folgender Herausforderung: Ich habe ein Excel-Formular, dass von vielen unterschiedlichen Usern ausgefüllt werden soll. Mein Ziel ist es, dass der User nicht über das Disketten-Symbol, Speichern unter oder STRG+S speichern kann, sondern der Bericht über einen Button abgeschlossen werden muss. Beim Anklicken des Buttons startet ein Makro, das verschienenen Kleinkram erledigt und unter anderem auch den Speicherpfad angibt.
Beim Stöbern hier im Forum bin ich auch auf einen Code gestoßen, um die verschiedenen Speicheroptionen zu unterdrücken und habe ihn noch um eine Message Box ergänzt:
Unter DieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If PublicAllowedToSave = False Then Cancel = True
MsgBox prompt:="Speichern nicht möglich, bitte schließen Sie den Bericht ab.", _
Title:="Schichtbericht nicht abgeschlossen!", Buttons:=vbOKOnly + vbInformation
End Sub
Option Explicit
Public PublicAllowedToSave As Boolean
Public Sub SaveMe()
PublicAllowedToSave = True
ThisWorkbook.Save
PublicAllowedToSave = False
End Sub
Ich bin gespannt auf eure Lösungsvorschläge!
Gruß Chris