EnableControl / Application ???

[Koos Timmer]

Hallo.


Hier ben ik weer met een vraag.

Ik ben via een vraag hoe je iets kunt uitschakelen en weer kunt aanschakelen
van Control`s en van Key`s in aanraking met EnableCopyCutAndPaste etc.

Dit heeft bij mij erg veel interesse gewekt.

Nu zullen er wel meer van dit soort EnableControl en DisableControl commando`s zijn neem ik aan.

Ik ben dan ook aan het zoeken wat er zoal aan dit soort commando`s zijn.

Wie weet nog meer over dit soort onderwerpen?

Ps. ik ben me er van bewust dat je wel goed moet uitkijken met wat je er mee doet.

maar het is wel leuk om je in dat soort dingen te verdiepen.

Groeten Koos.

 

[Wigi]

Zoek dan op het net naar info over (effe uit de losse pols, volgorde onbelangrijk): Toolbars, Commandbars, Commandbarbuttons, Commandbarpopup, OnAction, Caption, Control, ...

Voer ook deze code eens uit:

Sub ShowCommandBarNames()
    Dim Row As Integer
    Dim cbar As CommandBar
    Cells.Clear
    Row = 1
    For Each cbar In CommandBars
        Cells(Row, 1) = cbar.Index
        Cells(Row, 2) = cbar.Name
        Select Case cbar.Type
        Case msoBarTypeNormal
            Cells(Row, 3) = "Toolbar"
        Case msoBarTypeMenuBar
            Cells(Row, 3) = "Menu Bar"
        Case msoBarTypePopup
            Cells(Row, 3) = "Shortcut"
        End Select
        Cells(Row, 4) = cbar.BuiltIn
        Row = Row + 1
    Next
    Columns.AutoFit
End Sub

Wigi

 

[Koos Timmer]

Hallo Wigi.

dat zal ik eens doen Hartelijk dank hiervoor.

ik had al even gezocht maar kon niet zo veel vinden vandaar die vraag.

groeten Koos.

 

[Koos Timmer]

Hallo.

Ik heb inmiddels iets gevonden en geprobeerd.

het ziet er zo uit :

Public Sub VerbergToolbars()
'
' verbergtoolbar Macro
' De macro is opgenomen op 24-7-2007 door H Timmer.
'
'
    Dim i As Integer
    For i = 1 To CommandBars.Count
        CommandBars(i).Enabled = False
    Next i
    On Error GoTo volgende:
    CommandBars("mnuCloseForm").Enabled = True
volgende:
End Sub
_______________________________________________________
Public Sub toontoolbar()
'
' toontoolbar Macro
' De macro is opgenomen op 24-7-2007 door H Timmer.
'
'
    Dim i As Integer
    For i = 1 To CommandBars.Count
      CommandBars(i).Enabled = True
    Next i
    On Error GoTo volgende:
    CommandBars("mnuCloseForm").Enabled = False
volgende:
End Sub

met deze tool zet je alles uit en aan.

zie bijlage.

het is altijd oppassen met wat je aan en uit zet.

mischien zijn er nog meer tips die we kunnen testen ?

Groeten Koos.

 

[Koos Timmer]

Hallo.

zie ook de vraag VBA sub script vraag van mij

 

[Wigi]

Hallo.

zie ook de vraag VBA sub script vraag van mij

Zet deze vraag maar op opgelost aub.