Functie werkblad invoegen blokkeren

[Bart198099]

Goedendag,

Is het mogelijk de knop 'werkblad invoegen' (Shift-F11) te blokkeren of te verbergen?

Ik heb namelijk een excel document waar door veel verschillende mensen in gewerkt wordt, en waarin iedereen tot een beperkt deel toegang heeft met een wachtwoord.
Ik merk echter dat er elke paar dagen een nieuw leeg blad is ingevoegd.
Ik vermoed dat iemand om deze knop drukt.

Alvast bedankt voor het meedenken.

Groeten,
Bart

 

[gast0660]

Hoi Bart,
Test deze eens (code in ThisWorkbook)

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim vbMsg As VbMsgBoxResult
Dim strPassword As String
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
 
    vbMsg = MsgBox("Je moet beheerder zijn om een nieuw blad toe te voegen" & vbCrLf & "Heb je een paswoord?", vbYesNo)
    If vbMsg = vbYes Then
        strPassword = Application.InputBox("Beheerderspaswoord invullen", "Paswoord")
        If strPassword <> "test" Then
            MsgBox "Paswoord is niet correct.", vbExclamation
            ActiveSheet.Delete
            MsgBox "Je kan geen blad toevoegen.", 16
        End If
    Else
        ActiveSheet.Delete
        MsgBox "Je kan geen blad toevoegen.", 16
    End If
   
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

Edit: paswoord is test

 

[Bart198099]

Top, dat werkt!

Hartelijk dank
Bart

 

[gast0660]

ok :thumb:
Suc6

 

[HSV]

Sh.delete

Waarom niet.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
 if inputbox("geef wachtwoord") <> "test" then sh.delete
Application.DisplayAlerts = True
End Sub