ich habe noch eine Frage.
Nachstehender Code soll so geändert werden, damit beim Versuch, den Schreibschutz zu entfernen, eine Passwortabfrage erscheint (Box).
Habe gesucht und probiert, aber wahrscheinlich was falsch gemacht. Daher stelle ich meine Frage im Forum.
Sub Seite_löschen_Beispiel_Stellungnahme_BÜ()
Sheets("Beispiel Stellungnahme BÜ").Select
Sheets("Beispiel Stellungnahme BÜ").Move Before:=Sheets(1)
Sheets("Stellungnahme BÜ").Select
Sheets("Stellungnahme BÜ").Move After:=Sheets(5)
Sheets("Nachtragsübersicht").Select
ActiveSheet.Unprotect
ActiveSheet.Protect
Range("M14").Select
End With
End Sub
Tausend Dank für die Unterstützung
Konni