|
Guten Morgen,
ich habe einen Macro der mit den Button "Picture 5" aktiviert wird. Ich möchte jetzt gerne das wenn der Macro 1x aktiviert wurde, er erst wieder aktiviert werden kann wenn die Mappe neu geladen wurde.
Kann mich bitte jemand dabei helfen, habe schon alles probiert und komme nicht weiter.
Danke Nico
Sub Speichern()
'
' Speichern Makro
'
'
ActiveSheet.Unprotect
Range("V11:V22").Select
Selection.Copy
Range("W11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W11:W21").Select
Application.CutCopyMode = False
Selection.Copy
Range("X12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W22").Select
Application.CutCopyMode = False
Selection.Copy
Range("X11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X23").Select
Application.CutCopyMode = False
Selection.Copy
Range("S9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Shapes.Range(Array("Picture 5")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
Range("S9").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub
|