Knop in excel beveiligen met een wachtwoord

[Verwijderd]

In excel heb ik een knop gemaakt die beveiligd is. Als ik op de knop moet ik een wachtwoord invoeren om vervolgens bij het werkblad te kunnen komen, zie VBA script onder:

Sub Totaal()
Dim ww As String
ww = InputBox("Voer wachtwoord in")
If ww = "wachtwoord" Then
Sheets("Totaal").Select
Else
MsgBox "Je hebt geen toegang!"
End If
End Sub

Omdat het excelbestand een gedeeld bestand, wil ik het wachtwoord wel blijven gebruiken. Maar het probleem is dat ik het wachtwoord telkens in moeten voeren om bij het werkblad te kunnen komen. Weet iemand of je dit kunt beperken tot 1x invoeren van het wachtwoord en vervolgens bij het gebruiken van de knop rechtstreeks bij het werkblad kom zonder het opgeven van het wachtwoord.

Alvast bedankt voor het meedenken

[Big Womly]

Een publieke boolean die je bij het openen van het document op false zet en na het ingeven van het juiste ww op true?

[F_J_K]

Yup. Verwacht overigens niet dat dit voldoende beveiliging is om iemand tegen te houden die het erg graag wil zien.

[Jewest]

ik zou zo iets doen:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"(ByVal lpBuffer As String, nSize As Long) As Long

Function UserNameWindows() As String

Dim lngLen As Long
Dim strBuffer As String

Const dhcMaxUserName = 255

strBuffer = Space(dhcMaxUserName)
lngLen = dhcMaxUserName
If CBool(GetUserName(strBuffer, lngLen)) Then
UserNameWindows = Left$(strBuffer, lngLen - 1)
Else
UserNameWindows = ""
End If
End Function

op gebruikers naam checken.
is nog steeds zo lek als een mandje, maar je hoeft niet de hele tijd paswoord in te voeren.
en mensen gaan minder snel in je code zoeken.