Blattschutz übergehen
26.03.2007 18:16:34
André
habe mal wieder ein Problem zu lösen.
Habe unten zwei Makros, möchte nun diese Makros auslösen leider geht es nicht da ich das Blatt gesperrt habe (ohne Passwort). Nun habe ich gedacht, man müsste doch das Makro so erweitern können, dass vor dem eigentlichen Befehl der Blattschutz aufgehoben werden kann und danach wieder aktiviert wird. Aber wie macht man das?
Praktisch also so:
Blattschutz deaktivieren
jeweiliges Makro ausführen (siehe unten)
Blattschutz aktivieren
Hoffe jemand hat nen Tipp wie man das umsetzen kann.
Gruß
André
Sub aktualisieren()
' aktualisieren Makro
' Makro am 26.03.2007 von Andre aufgezeichnet
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:E8"), Type:=xlFillCopy
Range("E4:E8").Select
Range("E8").Select
Selection.AutoFill Destination:=Range("E4:E8"), Type:=xlFillCopy
Range("E4:E8").Select
Range("A1").Select
End Sub
Sub CE()
' CE Makro
' Makro am 26.03.2007 von Andre aufgezeichnet
Range("D4").Select
ActiveCell.FormulaR1C1 = "50"
Range("D5").Select
ActiveCell.FormulaR1C1 = "51"
Range("D6").Select
ActiveCell.FormulaR1C1 = "52"
Range("D7").Select
ActiveCell.FormulaR1C1 = "53"
Range("D8").Select
ActiveCell.FormulaR1C1 = "54"
Range("B1").Select
End Sub