Icoon met macro op Ribbon tijdens openen bestand VBA

[royb73]

Beste mensen,

Ik heb een Excel sheet. Ik wil bij het openen van dit sheet dat er automatisch tabblad toegevoegd wordt in het ribbon (Excel 2010). Gaat om 2 icoontjes die toegevoegd moeten worden: Openen & Afsluiten. Ik heb de macro's al die hier aan gekoppeld moeten worden:

Sub Openen()
     'Prompt the user for a password and unhide the worksheet if correct
         On Error GoTo Einde
    If InputBox("Toegang alleen voor beheerder. Geef het wachtwoord om door te gaan.", _
        "Beperkte toegang") = password Then
        Sheets("Blad1").Visible = xlSheetVisible
        Sheets("Blad2").Visible = xlSheetVisible
        Sheets("Blad3").Visible = xlSheetVisible
        Application.Goto [Blad1!A2]
     Else
        MsgBox "Ingevoerd wachtwoord is onjuist!", _
        vbCritical + vbOKOnly, "Geen toegang!"
    End If
Einde:
End Sub

En:

Sub Afsluiten()
'

' Turn off screen updating to speed up macro.
    
    Dim path As String
    Dim oldFile As String
    
Application.ScreenUpdating = False

Application.DisplayAlerts = False

     
    Sheets("Blad1").Visible = xlVeryHidden
    Sheets("Blad2").Visible = xlVeryHidden
    Sheets("Blad3").Visible = xlVeryHidden

Application.DisplayAlerts = True

Application.ScreenUpdating = True

    path = ActiveWorkbook.path
    oldFile = ActiveWorkbook.FullName
    ActiveWorkbook.SaveAs path & "\Test.xlsm"

    
'ActiveWorkbook.Close
Application.Quit

Wie kan mij hiermee helpen?

Mvg

Roy

 

[edmoor]

Daarvoor moet de CustomUI XML worden aangepast. Hoe dat moet staat hier uitgelegd.
http://www.rondebruin.nl/win/s2/win001.htm

 

[royb73]

Beste Edmoor,

Het is gelukt na enig zoekwerk. Bedankt voor de link.

Ik had nog een kleine vraag. Bij de code "Openen" wordt er naar een password gevraagd. Echter als ik dit invul, dan kan mijn collega meelezen wat ik aan het invullen ben. Kan ik het password afschermen met kruisjes of puntjes o.i.d.?

Mvg

Roy

 

[edmoor]

Dat kan wel, maar niet met de Inputbox. Wel als je een Userform maakt met een TextBox erop. 1 van de eigenschappen van een TextBox is PasswordChar. Daarmee kun je aangeven wel teken er moet worden getoond als je wat intikt terwijl je dan toch het echte ingetikte woord terug krijgt.

 

[royb73]

Is inmiddels gelukt met Textbox. Nog bedankt Edmoor.