off2003 i.O bei off2000 geht Filter+Pageformat nic
06.12.2006 19:10:11
helena
der Code funktioniert einwandfrei mit OFF2003 aber in Firma nicht wegen Off2000
ich muss Blatt schützen und Filter haben sowie Pagesetup sollte auch gehen wobei dies 2te. Prio hat.
DANKE für Hilfe
gruss helena
Sub default_set()
Application.ScreenUpdating = False
Dim wss As Worksheet
For Each wss In ActiveWorkbook.Worksheets
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="x"
wss.Protect Password:="x"
Next wss
Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "d.m.yy") & " erstellt von QA-Dok HGa "
Next ws
ActiveSheet.Protect Password:="x"
Application.ScreenUpdating = True
Sheets("All").Activate
Range("A4").Select
End Sub