Lint aanpassen (zoek codes)

Status
Niet open voor verdere reacties.
Kramer

Kramer

Gebruiker
Lid geworden
12 jun 2002
Berichten
447
Hallo Iedereen.

Het is me gelukt na denk ik 2 weken lang op internet en daar elke forum lezen om een eigen lint te maken.

Maar mijn vraag is nu weet iemand een boek of site waar mee je net als VBA alle codes voor het xml gedeelte voor het officepakket kan vinden. Want ik denk dat er tussen het normale xml en het xml voor het office gedeelte ook een verschil zit. En zoals er verschil zit tussen VB en VBA.

Als vast bedankt voor het meedenken.
 
Het is me gelukt na denk ik 2 weken lang op internet en daar elke forum lezen om een eigen lint te maken.
Klik om te vergroten...

Kun je wat meer prijs geven, hoe en waar je daarover informatie hebt gevonden? Ik denk niet dat ik de enige ben die daarin is geïnteresseerd. Bij voorbaat dank.
 
Ik heb een code gemaakt voor fullscreen mode en een eigen werkbalk:
Werkt in excel 2003, 2007, 2010
In module:
Code: 
Sub Werkbalken_weg()
'alle werkbalken verbergen

Application.ScreenUpdating = False
Dim wbBook As Workbook
Dim wsSheet As Worksheet

Set wbBook = ThisWorkbook

For Each wsSheet In wbBook.Worksheets
wsSheet.Activate
With ActiveWindow
.DisplayHeadings = False
End With
Next wsSheet
Sheets("TK WEV").Select


    Application.OnKey "{f11}", ""  'F11 uitschakelen (grafiek)

  On Error Resume Next
                     If ("TK WEV!AT3") >= 12 Then 'Office 2007 of later, ribbon uitschakelen
        Application.DisplayFullScreen = True 'Office 2007 of later, ribbon uitschakelen
    End If 'Office 2007 of later, ribbon uitschakelen
  
    Application.CommandBars("worksheet menu bar").Enabled = False
    Application.CommandBars("Standard").Controls("Cut").Visible = False
    Application.CommandBars("Standard").Controls("Knippen").Visible = False
    Application.CommandBars("Standard").Controls("Copy").Visible = False
    Application.CommandBars("Standard").Controls("Kopiëren").Visible = False
    Application.CommandBars("Standard").Controls("Paste").Visible = False
    Application.CommandBars("Standard").Controls("Plakken").Visible = False
    Application.CommandBars("Standard").Controls("Opmaak kopiëren/plakken").Visible = False
    For n = 30 To 0 Step -1
        Application.CommandBars(n).Visible = False
    Next n
    CommandBars("eigenbalk").Delete
  
   
    Application.DisplayFormulaBar = False
    Application.DisplayHeadings = False
    Application.EnableAutoComplete = False
    ActiveWindow.WindowState = xlMaximized
        
    Set mijnbalk = CommandBars.Add("eigenbalk", msoBarTop, True, True)
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=3 'Save
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=23 'Open
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=1849 'Zoeken
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=109 'Afdrukvoorbeeld
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=4 'Afdrukken
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=47 'inhoud wissen
    mijnbalk.Controls.Add Type:=msoControlSplitDropdown, ID:=128 'ongedaan maken
    mijnbalk.Controls.Add Type:=msoControlSplitDropdown, ID:=129 'opnieuw
    mijnbalk.Controls.Add Type:=msoControlComboBox, ID:=1733 'Zoom %
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=1605 'Design mode
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=106 'Close
    mijnbalk.Controls.Add Type:=msoControlButton, ID:=752 'Exit
    mijnbalk.Visible = True
    Run "DisableAllShortcutMenus"
    
   
    Application.ScreenUpdating = True

End Sub


Code: 
Sub Werkbalken_terug()
'Werkbalken weer terugzetten

Application.ScreenUpdating = False
Dim wbBook As Workbook
Dim wsSheet As Worksheet

Set wbBook = ThisWorkbook

For Each wsSheet In wbBook.Worksheets
wsSheet.Activate
With ActiveWindow
.DisplayHeadings = True
End With
Next wsSheet
Sheets("TK WEV").Select
Application.ScreenUpdating = True


    On Error Resume Next
    Application.OnKey "{f11}"
    CommandBars("eigenbalk").Delete

    Application.CommandBars("worksheet menu bar").Enabled = True
    Application.CommandBars("Standard").Visible = True
    ActiveWorkbook.DisplayHeadings = True
        Application.CommandBars("Standard").Controls("Cut").Visible = True
        Application.CommandBars("Standard").Controls("Knippen").Visible = True
        Application.CommandBars("Standard").Controls("Copy").Visible = True
        Application.CommandBars("Standard").Controls("Kopiëren").Visible = True
        Application.CommandBars("Standard").Controls("Paste").Visible = True
        Application.CommandBars("Standard").Controls("Plakken").Visible = True
        Application.CommandBars("Standard").Controls("Opmaak kopiëren/plakken").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.DisplayFormulaBar = True


    Application.DisplayFullScreen = False

End Sub

Zet onderstaande code in ThisWorkbook:

Code: 
Private Sub Workbook_Open()

    DisableAllShortcutMenus
    Werkbalken_weg
    
    Application.OnKey "^1", "Werkbalken_terug"
    Application.OnKey "^2", "Werkbalken_weg"
    Application.OnKey "^3", "EnableAllShortcutMenus"
    Application.OnKey "^4", "DisableAllShortcutMenus"
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
        Application.CommandBars("eigenbalk").Delete
        Run "Werkbalken_terug"
        Run "EnableAllShortcutMenus"
        
        Application.OnKey "^1", ""
        Application.OnKey "^2", ""
        Application.OnKey "^3", ""
        Application.OnKey "^4", ""

End Sub
Private Sub Workbook_Deactivate()
        Run "Werkbalken_terug"
        Run "EnableAllShortcutMenus"
        
        Application.OnKey "^1", ""
        Application.OnKey "^2", ""
        Application.OnKey "^3", ""
        Application.OnKey "^4", ""

End Sub

Gebruik Ctrl 1 en 2 om te togglen naar normaal scherm en fullscreen, en Ctrl 3 en 4 om rechtermuisknop weer de activeren en de-activeren.

N.B.:
Als je een bestand na wijzigen hebt opgeslagen moet je het opnieuw openen, anders gaat excel na afsluiten niet terug naar originele werkbalken.
 
Mooie code

@oceanrace

Ziet er mooi uit .

Maar mijn vraag was of iemand een boek of site had waar de codes kan vinden. Want dan kan je het namelijk een werkbalk maken voor het hele officepakket en niet alleen Excel.

Maar ga dit wel wel bekijken en waarschijnlijk ook toepassen.
 
Laatst bewerkt:
@oceanrace

Wanneer ik hem opent krijg ik op verschillende foutmeldingen
DisableAllShortcutMenus, foutmelding dat hij deze niet kan vinden.
Sheets("TK WEV").Select, foutmelding subscript valt buiten bereik.

Kan je misschien een bestand waar alles inzet bijvoegen.
 
Niemand

Is er niemand die mij kan helpen.

Kramer zei:
Hallo Iedereen.

Het is me gelukt na denk ik 2 weken lang op internet en daar elke forum lezen om een eigen lint te maken.

Maar mijn vraag is nu weet iemand een boek of site waar mee je net als VBA alle codes voor het xml gedeelte voor het officepakket kan vinden. Want ik denk dat er tussen het normale xml en het xml voor het office gedeelte ook een verschil zit. En zoals er verschil zit tussen VB en VBA.

Als vast bedankt voor het meedenken.
Klik om te vergroten...
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan