🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104432

[VBA Excel 2003] jak się dostać do CommandButton

#104432
From: Borafu
Date: Wed, 13 Jan 2010 14:37
33 lines
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-mail

Show 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