Elk wachtwoord aanvaard

[hafidakzin]

Goede morgen allemaal ,

ik heb een bestand waar meerdere personen op werken.
Bij opstart van het bestand moet er een wachtwoord ingegeven worden:
"d" of "p" of "w" of "f".
Nu neemt het bestand eigenlijk alles aan. Kan er een aanpassing gebeuren waarbij indien niet één van
deze letters ingegeven wordt , er een foutmelding komt => wachtwoord niet correct ofzo?
Annuleren moet zorgen dat het bestand afgesloten wordt , nu kan je na annuleren gewoon in het bestand werken.

Dikke merci voor jullie hulp !



Sub Wachtwoord()
Dim a As Variant
a = InputBox("Geef uw wachtwoord: " & Chr$(16) & Chr$(163), "Wachtwoordmodule")
Sheets("MAART").ScrollArea = "A1:Z7000" '("G1")
If a = "" Then Exit Sub

If a = "d" Then
Sheets("MAART").ScrollArea = ("B1:C7000")
Range("A3").Select
End If

If a = "w" Then
Sheets("MAART").ScrollArea = ("D37000")
Range("A3").Select
End If

If a = "f" Then
Sheets("MAART").ScrollArea = ("E3:F7000")
Range("E3").Select
End If

If a = "p" Then
Sheets("MAART").ScrollArea = ("H3:Z7000")
Range("H3").Select
End If

End Sub


Private Sub Opstart()
Call Module2.Wachtwoord
End Sub


Private Sub command3()
Columns("A:G").Hidden = False
End Sub

 

[snb]

Wat lost zo'n wachtwoord op ?

 

[hafidakzin]

Wat lost zo'n wachtwoord op ?

Door het ingeven van een wachtwoord kunnen enkele kolommen bewerkt worden -het bestand is helaas na zippen nog 400kb groot ...

wachtwoord d = werken in kolom b + c
wachtwoord f = werken in kolom e + f
wachtwoord p = werken in kolom h tot z
wachtwoord w = werken in kolom d

 

[snb]

Dat kan ook zonder wachtwoord op basis van de Environ("username"), maar beter nog via een userform.

 

[hafidakzin]

Dat kan ook zonder wachtwoord op basis van de Environ("username"), maar beter nog via een userform.

Heb dit net even opgezocht maar is wat te ingewikkeld op dit moment - dat zal voor later zijn

Is er niemand die de macro zelf kan aanpassen zodat deze bij het niet ingeven van 1 van de 4 mogelijkheden
een foutmelding weergeeft : "wachtwoord niet correct." & het bestand sluit ?

Alvast bedankt

 

[VenA]

Hier vast een beginnetje.

Sub wachtwoord()
    Select Case InputBox("Geef uw wachtwoord: " & Chr$(16) & Chr$(163), "Wachtwoordmodule")
        Case "d": MsgBox "d"
        Case "w": MsgBox "w"
        Case "f": MsgBox "f"
        Case "p": MsgBox "p"
        Case Else: MsgBox "fout"
    End Select
End Sub

 

[hafidakzin]

Bedankt VenA voor uw inbreng.

Ik heb ondertussen de code zo aangepast - vraag is nu hoe zorg je ervoor dat je NIET kan verderwerken in het bestand als je annuleert of een verkeerd wachtwoord
ingeeft ?

Sub Wachtwoord()
Dim a As Variant
a = InputBox("Geef uw wachtwoord: ")
Sheets("MAART").ScrollArea = ("A1:Z7000")

If a = "d" Then
Sheets("MAART").ScrollArea = ("B1:C7000")
Range("A1").Select

ElseIf a = "w" Then
Sheets("MAART").ScrollArea = ("D17000")
Range("A1").Select

ElseIf a = "f" Then
Sheets("MAART").ScrollArea = ("E1:F7000")
Range("E1").Select

ElseIf a = "p" Then
Sheets("MAART").ScrollArea = ("H1:Z7000")
Range("H1").Select

Else
MsgBox " Wachtwoord niet correct"
End If
End Sub

 

[VenA]

ThisWorkbook.close zal het bestand afsluiten

 

[hafidakzin]

ThisWorkbook.close zal het bestand afsluiten

Thanks , daarmee is dit probleem opgelost.

:thumb: