ich krieg es leider nicht hin.
Public Sub Für_Monate_Schutz_Aufheben()
Dim i As Integer
For i = 1 To 12
Unprotect ("mn")
Next
End Sub
mfg
sigrid
Public Sub Für_Monate_Schutz_Aufheben()
Dim i As Integer
For i = 1 To 12
Unprotect ("mn")
Next
End Sub