TommyV2209
Gebruiker
- Lid geworden
- 1 apr 2020
- Berichten
- 26
Hallo,
ik heb een simpele code om een toggle button te activeren (komt er gewoon op neer dat ik de tabbladen wil verbergen of tonen, afhankelijk of de knop ingedrukt is of niet). Ik heb momenteel al ingesteld dat hij dit enkel doet als de computer mijn username heeft.
Ik zou er echter graag 2 zaken toevoegen:
- een paswoord om ervoor te zorgen dat niemand anders dit kan.
- mijn username van mijn computer laten gebruiken zodat dit enkel op mijn computer kan gebeuren iets met
If Environ("Username") = "mijnnaam" Then ...
Welke code voeg ik best toe hiervoor?
Dank je voor alle reacties!
ik heb een simpele code om een toggle button te activeren (komt er gewoon op neer dat ik de tabbladen wil verbergen of tonen, afhankelijk of de knop ingedrukt is of niet). Ik heb momenteel al ingesteld dat hij dit enkel doet als de computer mijn username heeft.
Ik zou er echter graag 2 zaken toevoegen:
- een paswoord om ervoor te zorgen dat niemand anders dit kan.
- mijn username van mijn computer laten gebruiken zodat dit enkel op mijn computer kan gebeuren iets met
If Environ("Username") = "mijnnaam" Then ...
Welke code voeg ik best toe hiervoor?
Dank je voor alle reacties!
Code:
Sub Callback(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
Application.DisplayFormulaBar = True
Application.DisplayAlerts = True
Application.IgnoreRemoteRequests = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = True
Else
Application.DisplayFormulaBar = False
Application.DisplayAlerts = False
Application.IgnoreRemoteRequests = True
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
End If
End Sub
