*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Excel opstarten  (gelezen 5707 keer)

0 leden en 1 gast bekijken dit topic.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Excel opstarten
« Gepost op: 06 december 2003, 16:49:52 »
Kan ik een kleine excel applicatie opstarten zonder de bovenste menu balk.
Als ik de applicatie start laat ik door een macro al mijn werkbalken, tabbladen, scrollbaren verdwijnen.
Het enigste dat ik niet weg krijg is die bovenste balk.
Is dit mogelijk ?
Enig idee ?
Gelogd
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Excel opstarten
« Reactie #1 Gepost op: 06 december 2003, 17:15:09 »
Al je deze regel bijvoegd in je macro moet het lukken of het moet je toch op de goede weg helpen. :)

 Application.CommandBars("Worksheet Menu Bar").Visible = False

SoftAid
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Excel opstarten
« Reactie #2 Gepost op: 06 december 2003, 17:28:43 »
Dit is de macro voor het uitschakelen van mijn werkbalken, deze werken correct.

'Geldig voor alle werkbladen tergelijkertijd
 Application.CommandBars("Standard").Visible = False
 Application.CommandBars("Formatting").Visible = False
 Application.CommandBars("Protection").Visible = False
 Application.CommandBars("PivotTable").Visible = False
 Application.CommandBars("External Data").Visible = False
 Application.CommandBars("Picture").Visible = False
 Application.CommandBars("Formula Auditing").Visible = False
 Application.CommandBars("Forms").Visible = False
 Application.CommandBars("Chart").Visible = False
 Application.CommandBars("Borders").Visible = False
 Application.CommandBars("Reviewing").Visible = False
 Application.CommandBars("Task Pane").Visible = False
 Application.CommandBars("Drawing").Visible = False
 Application.CommandBars("Text To Speech").Visible = False
 Application.CommandBars("Watch Window").Visible = False
 Application.CommandBars("Visual Basic").Visible = False
 Application.CommandBars("Web").Visible = False
 Application.CommandBars("Stop Recording").Visible = False
 Application.CommandBars("Control Toolbox").Visible = False
 Application.CommandBars("WordArt").Visible = False
 Application.CommandBars("EuroValue").Visible = False

Doch de bovenste menubalk blijft en met uw code loopt het vast

Application.CommandBars("Worksheet Menu Bar").Visible = False


Enig idee ?

Bedankt
Gelogd
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Excel opstarten
« Reactie #3 Gepost op: 06 december 2003, 18:56:54 »
Hallo Oldy,

Neen, lukt mij ook niet. Menu Bar is niet Worksheet of Workbook gebonden, ook zonder geopend Workbook is deze werkbalk beschikbaar.

Sorry, hier ken ik te weinig van.

SoftAid
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Excel opstarten
« Reactie #4 Gepost op: 06 december 2003, 18:57:43 »
In ieder geval bedankt
Gelogd
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Excel opstarten
« Reactie #5 Gepost op: 06 december 2003, 20:12:03 »
Application.CommandBars(1).Enabled = False
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Excel opstarten
« Reactie #6 Gepost op: 06 december 2003, 20:20:51 »
Ongelooflijk, Werkt prima, vriendelijk bedankt
Gelogd
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Excel opstarten
« Reactie #7 Gepost op: 06 december 2003, 22:14:46 »
Citaat van: Ingrid B op 06 december 2003, 20:12:03
Application.CommandBars(1).Enabled = False

Hallo Ingrid, ik had het ook geprobeerd met Application.CommandBars().Enabled = False  maar dat werkte dus niet.
Staat de 1 voor de MenuBar?

Groeten,

SoftAid
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Excel opstarten
« Reactie #8 Gepost op: 06 december 2003, 22:27:14 »
Met deze macro kan je zien welke index waarmee overeenkomt. Start de macro in een leeg werkblad anders kunnen er gegevens overschreven worden.

Sub test()
Dim cb As CommandBar
Dim r As Integer
  r = 1
  For Each cb In Application.CommandBars
    Cells(r, 1) = cb.Index
    Cells(r, 2) = cb.Name
    Cells(r, 3) = cb.NameLocal
    r = r + 1
  Next cb
End Sub
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Excel opstarten
« Reactie #9 Gepost op: 06 december 2003, 22:41:22 »
Citaat van: Ingrid B op 06 december 2003, 22:27:14
Met deze macro kan je zien welke index waarmee overeenkomt. Start de macro in een leeg werkblad anders kunnen er gegevens overschreven worden.

Werkt fantastisch, Ingrid.
Als Oldy de opdracht Application.CommandBars(12).Enabled = True gebruikt had, dan kunnen er veel van de andere commando's weg, niet?
Kan je ook items samenvoegen zoals :
Application.CommandBars(1,2,3,5,12).Visible = True

PS: Ik denk dat je de koffie s'morgens ook maakt met een macro ;D :P

Groeten,

SoftAid
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Excel opstarten
« Reactie #10 Gepost op: 06 december 2003, 23:14:31 »
Je kan aan CommandBars slechts 1 index meegeven, dus dat moet in verschillende regels.

Citaat van: SoftAid op 06 december 2003, 22:41:22
PS: Ik denk dat je de koffie s'morgens ook maakt met een macro

Nee, daarvoor gebruik ik voorwaardelijke opmaak  :)
Voorwaarde 1:
=ALS(uur<"8:00") opmaak Zwart
Voorwaarde 2:
=ALS(uur<"9:00") opmaak Met Melk
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Excel opstarten
« Reactie #11 Gepost op: 07 december 2003, 08:55:52 »
Het gaat inderdaad op die manier heel wat eenvoudiger, doch ik maak mijn koffie nog maar altijd op de oude manier
Nogmaals bedankt
Gelogd
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2
Pagina's: [1]   Omhoog
 


www.combell.com