Melding: "Beveiliging blad opheffen" niet laten tonen

[Roeland035]

Beste forumleden,

Ik heb in mijn excelbestand een paar sheets staan waarvan ik ze beveiligd heb.
Elke keer als ik het bestand opnieuw open vraagt hij gelijk of ik de beveiliging wil opheffen, en deze melding moet ik 8x wegklikken, omdat hij het gelijk voor elke sheet vraagt.

Kan ik deze melding niet uitzetten, en dat je hem alleen nog maar kan opheffen door rechtermuisknop op het tabblad te gebruiken en dan op ontheffen klikt?

Mvg,

Roeland

 

[manamana]

Hallo Roeland. Zit hier wat tussen. Teveel voor mij om verder te lezen. Succes Klik

 

[Roeland035]

Hallo Roeland. Zit hier wat tussen. Teveel voor mij om verder te lezen. Succes Klik

Helaas niet, ik had die pagina ook al gezien, maar er staat alleen maar hoe je een beveiliging kunt opheffen en helaas niks over de melding ervan.

 

[Roeland035]

Normaal gesproken zou dit ook niet moeten gebeuren, maar ik denk dat het aan een macro ligt die gelijk uitvoert bij startup. Ik ga er even naar kijken.

 

[Roeland035]

Helaas, zonder succes.
Ik had gehoopt het probleem op te lossen door de volgende regel toe te voegen:
ActiveSheet.Unprotect "1234"
ActiveSheet.Protect "1234"

Deze regels heb ik beide toegevoegd in de macro's die in "ThisWorkBook" staan, maar nog steeds geeft hij de meldingen wanneer het bestand zich opstart.

Uiteraard weet ik niet of het ook uberhaubt ligt aan mijn macro's.

Private Sub Workbook_Open()
Dim x As Long

    For x = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(x)
        ActiveSheet.Unprotect "1234"
            .Protect UserInterfaceOnly:=True
            .EnableOutlining = True
        End With
    Next
    ActiveSheet.Protect "1234"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a As Variant

ActiveSheet.Unprotect "1234"
a = InputBox("Geef uw wachtwoord: " & Chr$(13) & Chr$(13), "Wachtwoord voor opslaan")
If Not a = "1234" Then Cancel = True
'Pas het wachtwoord x aan
ActiveSheet.Protect "1234"
End Sub

 

[edmoor]

Bij mij werkt het zonder dat die melding komt. Zet aan het begin van de Sub eens Application.DisplayAlerts = False
Aan het einde dan Application.DisplayAlerts = True

 

[Roeland035]

Bij mij werkt het zonder dat die melding komt. Zet aan het begin van de Sub eens Application.DisplayAlerts = False
Aan het einde dan Application.DisplayAlerts = True

Helaas

 

[edmoor]

Iets anders zou ik zo ook niet weten. Maar niet geschoten is altijd mis.

 

[E v R]

Deze regels heb ik beide toegevoegd in de macro's die....
...Uiteraard weet ik niet of het ook uberhaubt ligt aan mijn macro's.

Er staan dus nog andere macro's in jouw bestand?

 

[Roeland035]

Er staan dus nog andere macro's in jouw bestand?

Inderdaad. Het zijn in totaal een stuk of 10 macro's waarvan er 2 in ThisWorkbook staan.

 

[E v R]

Met bovenstaande code uit post#5 haal je enkel het wachtwoord "1234" van de aktieve sheet af en probeer je wel op iedere sheet de outlining aan te zetten

 

[Roeland035]

Met bovenstaande code uit post#5 haal je enkel het wachtwoord "1234" van de aktieve sheet af en probeer je wel op iedere sheet de outlining aan te zetten

Eric,

Bedankt voor je opmerking

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim x As Long

    For x = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(x)
            .Unprotect "1234"
            .Protect UserInterfaceOnly:=True
            .EnableOutlining = True
            .Protect "1234"
        End With
    Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = True
End Sub

Ik krijg op deze manier geen meldingen meer