Blattschutz - VBA spinnt!
03.11.2003 12:59:37
Frank
Sub SchutzAusAlle()
'On Error Resume Next
wb = ActiveWorkbook.Name
For i = 1 To ActiveWorkbook.Worksheets.Count
sh = Sheets(i).Name
MsgBox wb & ": " & sh
Workbooks(wb).Sheets(sh).Unprotect ("bzf1qr")
Next i
End Sub
Sub SchutzEinAlle()
On Error Resume Next
For Each asheet In ActiveWorkbook.Sheets
Worksheets(asheet.Name).Protect ("bzf1qr")
Next
End Sub
so sieht der Code aus.
Aktiviere ich die Arbeitsmappe A und möchte darin den Schutz für alle Blätter aufheben erscheint der richtige Mappenname (A) aber der Blattname von dem aus das Makro ausgeführt wird (Mappe B).
Ich kann nicht mehr, kann einer von euch noch??
Danke
PS: SchutzAusAlle sah vorher natürlich wie SchutzEinAlle aus.