Das Verschwinden der auf einem Tabellenblatt befindlichen Befehlsschaltflächen (ActiveX-Steuerelemente) beim ersten Öffnen von Excel wurde schon an anderer Stelle beschrieben. Bei mir passiert das auch.
In meiner Applikation öffnet sich das Programm mit der Userform1. Wenn man diese dann mittels Cancel-Button schließt, sind die Buttons auf dem Tabellenblatt weg. Wenn man dann aber mit dem Mausrad ein wenig herunterscrollt, sind die Buttons sofort wieder da. Daher habe ich ein Makro aufgezeichnet und diesen Code in die Cancel-Procedur eingefügt, wodurch die Buttons jetzt immer da sind (Workaround). Natürlich landet man dann immer eine Zeile weiter unten :-)
Private Sub CommandButton2_Click() 'Cancel-Button
Unload UserForm1
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("...")
Next i
ActiveWindow.SmallScroll Down:=1 'Workaround
End Sub
Gibt es eine elegantere Lösung?LG und einen schönen Sonntag von
Ecki