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:
En:
Wie kan mij hiermee helpen?
Mvg
Roy
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:
Code:
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:
Code:
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