Widzę w tym fragmencie kodu rękę Caro liny.
Po każdym uruchomieniu procedury musisz sprawdzić stan przycisków:
With ThisWorkbook.Worksheets("POCZTA")
If .Shapes("Button 1").ControlFormat.Enabled = False And _
.Shapes("Button 2").ControlFormat.Enabled = False And _
.Shapes("Button 3").ControlFormat.Enabled = False And _
.Shapes("Button 4").ControlFormat.Enabled = False Then
MsgBox "Jakaś procedura"
End If
End With
Jeśli w arkuszu są tylko przyciski, które sprawdzasz, procedurkę można trochę uprościć, ale przepaści nie będzie. |