Commandbutton tonen en verbergen

[Sytse1]

Mijn werkblad wordt in HTM formaat op een internetsite gezet.
Voor de bewerking in Excel zijn er opdrachtknoppen gemaakt.
Ik wil deze knoppen niet zichtbaar op de site hebben
Is het mogelijk dat bij het openen van het werkblad in Excel de knoppen automatisch zichtbaar worden?
Ik denk aan b.v. een autoexec bij openen.
Bij sluiten van het werkblad moeten de knoppen automatisch verborgen worden.
Heeft er iemand hiervoor een oplossing?
Bij voorbaat dank,
Sytse

 

[HSV]

Zo zou het volgens mij wel moeten lukken.
De beide codes in 'Thisworkbook' zetten.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Sheets("Blad1").CommandButton1.Visible = False
End Sub

Private Sub Workbook_Open()
 Sheets("Blad1").CommandButton1.Visible = True
End Sub

 

[Sytse1]

Harry,
Bedankt voor je oplossing.
Het is vreemd als je met IE opent krijg je een pop up venster met een keuze voor active x toestaan of niet, als je kiest voor geblokkeerde inhoud toestaan zie je de (niet werkende) knoppen.
Als bij dit pop up venster in IE klikt op het kruisje zie je de knoppen niet.
gr
Sytse

 

[HSV]

Heb je zojuist Microsoft Office updates geïnstalleerd?

 

[Sytse1]

Nee, omdat de website met joombla alleen htm van 2003 leest heb ik Excel 2003 in gebruik. Ik krijg alleen bij IE ook de vraag. Deze webpagina wil invoegtoepassingen uitvoeren Microsoft Forms.dll. Bij firefox en chrome niet. En zie je de knoppen ook niet.
Bij IE zie je dan de knoppen of op deze plaats kruisjes. Aangezien veel mensen met IE werken vindt ik dit slordig.
Ik heb trowens geen updates van office 2003 geinstalleerd.
Trouwens had ik nog iets vreemd. Op een andere pc met excel 2003 het htm met excel geopend en toen werkten de opdrachtknoppen ook niet omdat de ontwerpmodus niet was af te sluiten. Blijft toch altijd uitzoeken met microsoft.
Dit htm moet op een website door mensen die toegang hebben via een ftp verbinding wekelijks geupdated kunnen worden. Nou bij de eerste ging dit al niet.
Sytse

 

[HSV]

Test deze eens.
Bij workbook open is de commandbutton zichtbaar, bij afsluiten wordt het verborgen als het goed is.
Dit is te testen door een selectiechange (onzichtbaar), dubbelklik (zichtbaar).

 

[Sytse1]

Harry,

Een simpele maar doeltreffende oplossing bedankt.
Door overal in de sheet dubbel te klikken worden de opdrachtknoppen zichtbaar.
Dat ze weer verdwijnen als je gaat invullen is niet erg.
Alleen nu werken de opdrachtknoppen als ze zichtbaar zijn niet meer?
Dit heb ik als volgt opgelost Sheets("Blad1").CommandButton1.Activate
Het vreemde is echter dat van 1 knop deze direct weer verdwijnt en door opnieuw 1 keer te klikken zichtbaar wordt.
De code is voor alle knoppen gelijk?

Sytse

 

[HSV]

Het bestandje van mij is maar een voorbeeldje zonder code aan de Commandbutton gekoppeld.
Ik weet niet hoe jouw bestand er uit ziet, dus is het handiger dat je je bestand hier plaatst zonder gevoelige info.

 

[Sytse1]

CommandButtom moet niet zichtbaar in IR in HTM formaat

Een paar dagen weggeweest vandaar mijn late reactie.
Ik probeer eerst wat knoppen samen te voegen.
Als het niet lukt nog graag wat hulp en dan stuur ik heb bestand mee.
Bestand is ge-zipt.
Plaatjes in de knoppen geplaatst maar helaas.
Het blijven grijze knoppen in IE.
In Firefox en Chrome zjin de knoppen niet zichtbaar.
De opdrachtknoppen werken goed.

Groet,
Sytse

 

[HSV]

Helaas ben ik niet thuis in .htm bestanden.
Probeer onderstaande eens.

Private Sub Workbook_Open()
 Sheets("Blad1").CommandButton1.Visible = IIf(Right(ThisWorkbook.Name, 4) = ".xls", True, False)
End Sub

Als je een andere extensie hebt, pas dan de code aan: bv.

Right(ThisWorkbook.Name, 5) = ".xlsm"

 

[Sytse1]

Ga ik doen, opnieuw bedankt.
Sytse