Excel bestand beveiligen met ww in vba

[niets70]

Goedenavond

Ik ben op zoek naar een code die mijn excel bestand beveiligd voor alleen lezen.
Ik heb nu een code die heel goed werkt, alleen er zit 1 nadeel aan.
Als ik op de knop beveiliging blad opheffen klik dan is ook gelijk mijn beveiliging weg.
Ik wil dus graag dat dit gebeurd met een wachtwoord
Weet iemand toevallig wat er niet goed staat in mijn code

Option Explicit

Private Sub Workbook_Open()
Dim sh As Worksheet

For Each sh In Worksheets
sh.Protect UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True
Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet

On Error Resume Next
For Each sh In Worksheets
sh.UsedRange.SpecialCells(xlConstants).Locked = True 'cellen met inhoud (geen formules) blokkeren
Next
ThisWorkbook.Save
End Sub


Ik hoop echt dat iemand mij kan helpen

 

[Warme bakkertje]

Voor UserInterfaceOnly:=True moet er nog Password:= "je wachtwoord"

 

[niets70]

Hoi Rudi

Het werkt perfect Bedankt.

:thumb::thumb::d

Ik gebruik dit deze code op een resultaten formulier van een invulformulier.
Deze is gedeeld en ik wil niet dat andere hier veranderingen in brengen (alleen via het invulformulier kunnen de gegevens veranderd worden)
Nu mogen ze dit blad ook niet zomaar opslaan, maar alleen "opslaan als" mogen ze kunnen gebruiken.
Of is dit technisch niet mogelijk, of vraag ik nu misschien te veel.

Alvast bedankt

 

[VenA]

Waarschijnlijk met een kleine aanpassing

ThisWorkbook.Save[COLOR="#FF0000"]As[/COLOR]

Maak svp gebruik van codetags.

 

[niets70]

Bedankt VenA ik ben opgelucht dat alles werkt zoals ik het voor ogen had.