Datei vor beenden schreibschützen
28.12.2018 16:41:32
Fred
Ich habe in meiner Mappe das schließen kreuz deaktiviert damit alle den eigenen Schließenbutton benutzen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not SchliessenErlaubt Then Cancel = True
If Not SchliessenErlaubt Then
MsgBox "Bitte benutze den Programm beenden Button!!"
End If
End Sub
Der Code für den Button ist folgender
Private Sub CommandButton4_Click()
If ActiveWorkbook.ReadOnly Then
Call schliessen_x
ActiveWorkbook.Saved = False
Application.DisplayAlerts = False
Application.Quit
Else
Call schliessen_x
ActiveWorkbook.Saved = False
Application.DisplayAlerts = True
Application.Quit
End If
End Sub
Dies ist das Modul was beim Button klick abgerufen wird.
Option Private Module
Public SchliessenErlaubt As Boolean
Sub schliessen_x()
SchliessenErlaubt = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
Gibt es eine Möglichkeit die Datei bevor sie gespeichert wird als RedOnly zu setzen.ich dachte ungefähr so, aber ich weiss nicht genau wie ich den Code implementieren kann das die datei dann auch gespeichert wird und nicht als Kopie gespeichert wird.
With ActiveWorkbook
Application.DisplayAlerts = False
If .ReadOnly = False Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
Application.DisplayAlerts = True
End With
Grüße Fred