Wypróbuj kod:
Dim skor As Workbook
On Error Resume Next
Set skor = Workbooks("Test.xls")
If skor Is Nothing Then
Workbooks.Open Filename:="C:\Test.xls"
Else
Workbooks("Test.xls").Activate
End If
Cytat:
> dezaktywowało zeszyt excela w którym jest ten przycisk czyli nastapiło wywołanie
To się dzieje w momencie otwarcia lub uaktywnienia skoroszytu "Test.xls"
A może chodzi o coś innego? |