Fråga : Using enheter i VBA som ska förhindras att upprepa, kodifierar täcker in

I min pröva förmiddag för arbetsbok I att genomföra ett låsa upptillvägagångssättförsök och att uppmuntra folk att anmäla problem de har med thtearbetsböcker.

On varje sida som jag önskar att vara kompetent att klicka en knäppas för att köra fäst kodifierar.

I har knäppas, jag har kodifiera, och jag kan göra det arbete, genom att sätta detta för att kodifiera på varje, täcker med individen knäppas, men denna verkar dum, why högert kodifiera på varje täcker, när du kan rätt det en gång och har varje att täcka anknyter till det?

Thanks för hjälpen,

Haydan


> för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

" codeBody " class= " notpretty " >Public underSheetUnlocker för " klar "

Svar : Using enheter i VBA som ska förhindras att upprepa, kodifierar täcker in

2000/3….,
Lösningen är till flyttningen kodifiera till en enhet och har befalla knäppas appell det.

Privat Sub CommandButton1_Click ()
  SheetUnlocker, 'som detta bor i en enhet
Avsluta suben