Makro zum Speichern einer Arbeitsmappe

[database]

So,

das war's ...
folgender Code wird OHNE Fehler abgearbeitet!

Code [Auswählen] Erweitern


Public Sub Entsperren()
    Dim strPassword As String
   Dim Mysheet As Excel.Worksheet
   strPassword = InputBox("Password eingeben!")

   For Each Mysheet In Application.Worksheets
       
       Debug.Print Mysheet.Name
       Mysheet.Unprotect strPassword
       
   Next Mysheet
   
   MsgBox "Alle Blätter entsperrt"
   Worksheets("Fragen").Activate

End Sub


Oft ist es nur eine Kleinigkeit ...  

1. Dim Mysheet As Excel.Worksheet
2. For Each Mysheet In Application.Worksheets

Mit dieser Syntax werden deine Charts erst gar nicht angerührt.  

Greets
Peter

[ohnePlan]

Super, es funktioniert.
Vielen Dank!!!