Article View: pl.comp.lang.vbasic
Article #104432[VBA Excel 2003] jak się dostać do CommandButton
From: Borafu
Date: Wed, 13 Jan 2010 14:37
Date: Wed, 13 Jan 2010 14:37
33 lines
1765 bytes
1765 bytes
Mam w skoroszycie 2 arkusze i jeden z nich zawiera przyciski
(CommandButton).
Chciałbym przy otwieraniu skoroszytu ustawić jednemu takiemu (powiedzmy
że się nazywa btnWykonaj) właściwość Enabled = False.
No i błądzę po omacku, bo:
jak użyję Worksheet_Activate() to jest OK tylko wtedy kiedy skoroszyt
otwiera się na innym arkuszu i przełączam się na ten właściwy. Jeśli
arkusz z guzikami jest tym, który jest aktywny po otwarciu skoroszytu to
Worksheet_Activate() nie odpala się i kiszka.
Chciałem użyć Workbook_Open() ale nie wiem jak się odwołać do
CommandButtona z konkretnego arkusza.
Chciałem przez analogię do tej konstrukcji:
Dim arkuszFZ As Worksheet
Set arkuszFZ = ThisWorkbook.Worksheets.Item("FZ")
arkuszFZ.Cells(10, 1) = "Ala ma kota" '<-- to mi działa
Ale już takie coś nie działa:
arkuszFZ.btnWykonaj.Enabled = False
Daje komunikat "Method or data member not found"
Jak to się robi?
Pozdro
--
Borafu
Technical Details
Message-ID:
<hiklqs$e9u$1@inews.gazeta.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail From: Borafu <borafu_NIELUBIESPAMU@gazeta.pl> Newsgroups: pl.comp.lang.vbasic Subject: [VBA Excel 2003] jak się dostać do CommandButton Date: Wed, 13 Jan 2010 15:37:27 +0100 Organization: "Portal Gazeta.pl -> http://www.gazeta.pl" Lines: 33 Message-ID: <hiklqs$e9u$1@inews.gazeta.pl> NNTP-Posting-Host: 81.219.113.108 Mime-Version: 1.0 X-Trace: inews.gazeta.pl 1263393436 14654 81.219.113.108 (13 Jan 2010 14:37:16 GMT) X-Complaints-To: usenet@agora.pl NNTP-Posting-Date: Wed, 13 Jan 2010 14:37:16 +0000 (UTC) X-User: borafu User-Agent: Thunderbird 2.0.0.23 (Windows/20090812) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit