Arbeitsmappenschutz
Wolfgang
mit folgendem Code würde ich gerne erreichen, dass eine MsgBox erscheint, wenn der Arbeitsmappenschutz aktiviert ist und wenn nicht, der Code fortgesetzt wird. Was mache ich falsch?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub CommandButton2_Click()
If ActiveWorkbook.Protect = True Then
MsgBox "Die Arbeitsmappe ist geschützt, bevor Sie weiter vorgehen können, bitte zunächst den _
Arbeitsmappenschutz aufheben", vbCritical
Exit Sub
Else
Call SuchenKopieren
End If
End Sub
Anzeige