hat jemand eine Idee,warum bei Aufruf des Makros "Speichern"
der Blattschutz nicht aktiviert wird...obwohl die
MSG-Box aber aufgerufen wird ?!
Sub schutz_akt()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="+"
MsgBox "xxx"
Next
End Sub
Sub speichern()
ActiveWorkbook.Save
End Sub
'in Diese Arbeitsmappe
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
schutz_akt
End Sub
Danke !
Grüße Hannes