Juli 15, 2020, 13:54:29

Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!


Makro zum Speichern einer Arbeitsmappe

Begonnen von ohnePlan, Juli 20, 2010, 12:46:35

⏪ vorheriges - nächstes ⏩

database

So,

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


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 ...   ;D

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!!!