|
Guten Morgen,
ich habe in Tabelle1 ein Button der einen Macro fur die Tabelle auslöst.
Ich möchte aber jetzt verhindern das der Button in Tabelle1 mehrfach betätigt wird dh. der Macro in Tabelle1 darf nur einmal ausgeführt werden und erst wieder freigegeben werden wenn die Mappe wieder geladen wurde.
Bitte um Hilfe
Nico
Sub Speichern()
'
' Speichern Makro
'
'
ActiveSheet.Unprotect
Range("N23").Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M11:M22").Select
Application.CutCopyMode = False
Selection.Copy
Range("N11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Shapes.Range(Array("Pentagon 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
Range("J9").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub
|