Hilfe bei Schleife
08.12.2008 17:02:00
Fred
Ich habe da heute noch mal ein Problem und hoffe mir kann noch mal jemand aus der Patsche Helfen.
Ich benutze unten stehenden Code um meine Tabelle beim Speichern zu schützen. Leider kriege ich das nur für den aktiven Sheet hin. meine Arbeitsmappe besteht aber aus 53 Sheets, die ich alle so schützen würde. Weiss jemand Rat.
Sub ProtectSheet()
Range("A1").Select
Range("A1:BF165").CopyPicture _
Appearance:=xlScreen, _
Format:=xlBitmap
ActiveSheet.Paste
ActiveSheet.Protect
End Sub
Und diesen zum wieder frei machen
Sub UnprotectSheet()
ActiveSheet.Unprotect
ActiveSheet.Pictures(1).Delete
End Sub
Vielen Dank Fred