ich brauche Ihre Hilfe:
Ich bin kein Fachmann, beschäftige mich aber mit Erstellen von Tabellen.
Das Beenden habe ich mit Makrobutton eingerichtet (aus einer anderen Datei entnommen).
Möchte aber beim Beenden automatisch den Blattschutz für alle Blätter haben.
Können Sie es mir hier hinein einprogrammieren?
Sub cl_Beenden_Click()
'Programm verlassen
Dim antw As Integer
If MsgBox("Möchten Sie wirklich das Programm schliessen?", vbYesNo, "Programm beenden") = vbYes _
_
_
Then
antw = MsgBox("Möchten Sie speichern?", vbYesNoCancel, "Speichern?")
If antw = vbCancel Then
Cancel = True
Exit Sub
End If
If antw = vbYes Then
ThisWorkbook.Save
End If
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.Quit
Else
Cancel = True
End If
End Sub
Sub BlattschutzEinrichten()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect ("spps")
Next i
End Sub
Sub BlattschutzAufbeben()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect ("spps")
Next i
End Sub
Im Voraus vielen Dank.
HJSp