ich speicher eine Kopie meines Datei unter dem Zellnamen A1 & _Viewer wie folgt:
Sheets("Hauptblatt").Select
Application.Dialogs(xlDialogSaveAs).Show Range("a1") & "_Viewer"
Funzt auch richtig.
Was muss ich ergänzen, damit NUR die neue Viewer-Datei (nicht die ursprünglich ORIGINAL-Datei) einen Blattschutz bekommt der alle sichtbaren und unsichtbaren Tabellenblätter betriftt mit dem Passwort "rot".
Danke im voraus für Eure Hilfe
Gruß
Claudia