Opgelost Wachtwoord plaatsen met beveiligings voorwaarden

[Tegno]

Beste Mensen,

Ik gebruik nu deze code om snel mijn blad te beveiligen.

Sub Protect()
Dim ws As Worksheet
Dim sheetArray As Variant
Set sheetArray = ActiveWindow.SelectedSheets
For Each ws In sheetArray
    On Error Resume Next
    ws.Select
    ws.Protect Password:="wachtwoord"
    On Error GoTo 0
Next ws
sheetArray.Select
Select Case MsgBox("Beveiligd")
End Select
End Sub

echter gaat het niet goed met het gebruik van het blad bij mijn collega's.
de code plaatst niet de benodigde beveiligings eisen zoals hieronder benodigd zijn.


dit scherm moet hij niet laten zien maar wel de aangevinkte delen toestaan bij het beveiligen.
kan dat?

Alvast dank voor het lezen.
M.vr.gr.. Tegno

 

[edmoor]

Neem die actie op met de macrorecorder en kijk dan naar de opgenomen code.

 

[Tegno]

hier mee werkt hij wel.
Dankje