wachtwoord in vba opheffen

[westra77]

wachtwoord in vba tijdelijk opheffen

met:

Sheets("naam").Unprotect ("ww")

kan ik de beveiliging van sheets opheffen.
kan ik in een macrocode ook zorgen dat de beveiliging van het wachtwoord in vba tijdelijk wordt opgeheven (het wachtwoord is bekend)

 

[Ginger]

Westra77, Je moet jezelf ff afvragen waarom de sheets tijdelijk onbeveiligd moeten zijn. Als dit is om de code z'n werk te laten doen, kan je beter het Worksheets("[naam"]).protect UserinterfaceOnly:= True inzetten bij het OnOpen event van ThisWorkbook. De code kan dan gewoon aan't werk, terwijl de gebruiker dat alleen kan in de onbeveiligde cellen. Kijk ff in je VBA-help voor meer info bij Protect Method.

Groet, Leo

 

[westra77]

hallo onderstaande (deel van de code) werkt niet. Deze verwijdert de modules 1, 2, 4 en 6
Het wachtwoord in vba houdt dit tegen.
De volledige code zorgt ervoor dat het bestand onbruikbaar wordt gemaakt wanneer een bepaalde datum is verstreken.
zonder ww werkt de code prima

Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    vbCom.Remove VBComponent:= _
        vbCom.Item("module1")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module2")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module4")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module6")
   Application.ScreenUpdating = True
   
  ActiveWorkbook.Save

 

[Ginger]

Lijkt me vreemd dat deze code iets te maken heeft met een beveiliging op een SHEET. Beveilig je soms het hele workbook? En anders is er iets afhankelijk in een stuk code dat je hier niet toont.

Groet, Leo

 

[westra77]

het hele werkbook is via eigenschappen van vba protect beveiligd.

dit is de code
met in this workbook:

Private Sub Workbook_Open()
Call DeleteThisModule

en in de module:

Option Explicit
Sub DeleteThisModule()
Dim vbCom As Object
'einddatum = 39775 'vertegenwoordigt 22/11/2008
Dim einddatum As Long
einddatum = 40179 'vertegenwoordigt 1/1/2010
    If Date < einddatum Then Exit Sub
    Dim strprompt As String
strprompt = "De datum van het bestand is verlopen, het bestand wordt nu onbruikbaar gemaakt. Even geduld a.u.b." & vbCrLf & "Neem contact op met uw specialist voor een nieuwe versie"
MsgBox strprompt, vbCritical, "beveiligingswaarschuwing"

Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    vbCom.Remove VBComponent:= _
        vbCom.Item("module1")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module2")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module4")
    vbCom.Remove VBComponent:= _
        vbCom.Item("module6")
   Application.ScreenUpdating = True
   
  ActiveWorkbook.Save
  
 
End Sub

 

[Ginger]

Is je VBA-project beveiligd met een password? Zo ja, dan zou ik 't ff niet weten. Als het alleen om het workbook gaat zou je toch deze kunnen gebruiken 'ThisWorkbook.protect UserinterfaceOnly:= True'.

Groet, Leo

 

[Wigi]

Is je VBA-project beveiligd met een password? Zo ja, dan zou ik 't ff niet weten. Als het alleen om het workbook gaat zou je toch deze kunnen gebruiken 'ThisWorkbook.protect UserinterfaceOnly:= True'.

Groet, Leo

Ik betwijfel of je zo zou kunnen "inbreken" in de VBA. In ieder geval, ik zou het niet weten.