Makro läuft nur im Arbmappe, nicht in Personl.xls
15.05.2004 01:22:39
goldherz
Ich versuche, mir ein Makro zu entwerfen, daß in der "Personl.xls" für alle Arbeitsmappen zur Verfügung stehen soll:
Beispielhaft sollen alle Tabellenblätter in einer beliebigen Mappe mit Blattschutz versehen werden, der Zellzeiger soll auf "A1".
Listing wie folgt:
Sub alle_Tabellen_schuetzen()
' alle_Tabellen_schuetzen Makro
Dim ws As Worksheet, i%
Sheets(1).Select
i = 1
For Each ws In ThisWorkbook.Worksheets
Sheets(i).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
i = i + 1
Next ws
Sheets(1).Select
End Sub
Wird dieses Makro aus einer aktiven Arbeitmappe heraus ausgeführt, funktioniert es,
allerdings versagt es den Dienst, wenn es aus der "Personl.xls" heraus gestartet wird.....
("Next ws" hat keine Wirkung - offenbar is "ws = 0", obwohl mehrere Arbeitblätter vorhanden sind...)
Wer löst meinen Hirnknoten ?
;-)
Vielen Dank im voraus !
Goldie